Pernyataan Select...Case
Menentukan satu atau lebih blok pernyataan tergantung pada nilai ekspresi.
Pilih kondisi Case ekspresi Case Pernyataan Blok [Case expression2 Blok Pernyataan] [Case Else] Blok Pernyataan End Select
condition: Any expression that controls if the statement block that follows the respective Case clause is executed.
expression: Any expression that is compatible with the condition type expression. The statement block that follows the Case clause is executed if condition matches expression.
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Angka dari 1 sampai 5"
Case 6, 7, 8
Print "Angka dari 6 sampai 8"
Case 8 To 10
Print "Lebih besar dari 8"
Case Else
Print "Di luar jangkauan 1 sampai 10"
End Select
End Sub