Visual Basicteki Select Case yapısı birçok programlama dilindeki switch case yapısıyla aynıdır.Şarta bağlı birden fazla seçenek olduğunda Select Case şart yapısını kurduktan sonra seçenekleri case şeklinde belirtiriz.Kullanıcıların belirtilen seçeneklerin dışında bir seçenek girmesi halinde yapılacak işlemler ise Case Else şartı ile belirtilir.
If Else yapısı diğer C#,JAVA gibi dillerde kullanışıyla aynı şekildedir.

[php]
Module Module1
Dim film As Integer
Dim anket As Integer
Dim puan As Integer
Sub Main()
Console.WriteLine("Film Sec:" + vbCrLf + " 1-Kelebegin Ruyası " + vbCrLf + " 2-Ghajini " + vbCrLf + " 3-Memento " + vbCrLf + " 4-Angels&Demons")
film = Console.ReadLine()

Select Case film
Case 1
Console.WriteLine("Kelebeğin Ruyası filmini Sectiniz.Iyi Seyirler")
Case 2
Console.WriteLine("Ghajini filmini Sectiniz.Iyi Seyirler")
Case 3
Console.WriteLine("Memento filmini Sectiniz.Iyi Seyirler")
Case 4
Console.WriteLine("Angels&Demons filmini seçtiniz.Iyi Seyirler")
Case Else
Console.WriteLine("Oyle bir Film bulunmamaktadır.")
End Select

Console.WriteLine(vbCrLf + "Film Hakkındaki Anketimize Katılmak Ister misiniz?" + vbCrLf + "Evet:1–Hayır 2" + vbCrLf)
anket = Console.ReadLine()
If (anket = 1) Then
Console.WriteLine("Filme 1 ile 5 Arasında kaç puan verirsiniz?")
puan = Console.ReadLine()
Console.WriteLine("Anketimize katıldiginiz icin Tesekkurler..")
Else
Console.WriteLine("İyi Gunler")
End If
Console.ReadLine() ‘console islemi yaptıktan sonra beklemesi icin
End Sub
End Module

[/php]