Perintah Select...Case pada VB.net

Jika statement If melakukan pemilihan berdasarkan kondisi, maka perintah Select melakukan pemilihan berdasarkan nilai ekspresi dengan syntax sebagai berikut :
Select [ Case ] testexpression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select

Contoh :
Option Explicit On
Imports System
Module ModHari
Sub Main()
Dim Hari As Byte
Console.Write("Masukkan No Hari :")
Hari = Console.ReadLine()
Select Case Hari
Case 1
Console.WriteLine("Senin")
Case 2
Console.WriteLine("Selasa")
Case 3
Console.WriteLine("Rabu")
Case 4
Console.WriteLine("Kamis")
Case 5
Console.WriteLine("Jumat")
Case 6
Console.WriteLine("Sabtu")
Case 7
Console.WriteLine("Minggu")
Case Else
Console.WriteLine("No Hari tidak sah")
End Select
End Sub
End Module

Contoh Lain :
Option Explicit On
Imports System
Module ModHari
Sub Main()
Dim Angka As Integer
Console.Write("Masukkan Angka 1 s/d 9 :")
Angka = Console.ReadLine()
Select Case Angka
Case Is < 1
Console.WriteLine("Terlalu kecil")
Case 1 To 5
Console.WriteLine("Berada antara 1 dan 5")
Case 6,7,8,9
Console.WriteLine("Berada antara 6 dan 9")
Case Else
Console.WriteLine("Terlalu besar")
End Select
End Sub
End Module

Posted in: Tutorial VB,VB.Net