Select...Case Statement
āĻāĻāĻāĻŋ āĻāĻāĨ¤āϏāĻĒā§āĻļāύā§āϰ āĻŽāĻžāύā§āϰ āĻāĻĒāϰ āύāĻŋāϰā§āĻāϰāĻļā§āϞ āĻāĻ āĻŦāĻž āĻāĻāĻžāϧāĻŋāĻ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻž āĻšā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āĻ āĻŦāϏā§āĻĨāĻž: āϝā§āĻā§āύ⧠āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āϏāĻāĻļā§āϞāĻŋāώā§āĻ āĻ āĻŦāϏā§āĻĨāĻž āĻŦāĻžāĻā§āϝāĻžāĻāĻļ āĻ āύā§āϏāϰāĻŖāĻāĻžāϰ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ āĻāĻžāϞāĻžāύ⧠āĻšāϞ⧠āύāĻŋā§āύā§āϤā§āϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ: āϝā§āĻā§āύ⧠āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āĻļāϰā§āϤā§āϰ āϧāϰāύ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύā§āϰ āĻāĻĒāϝā§āĻā§āϤāĨ¤ āϝāĻĻāĻŋ āĻļāϰā§āϤ āĻāϰ āϏāĻžāĻĨā§ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āĻāϰ āĻŽāĻŋāϞ āĻĨāĻžāĻā§ āϤāĻžāĻšāϞ⧠āĻā§āϏ āĻŦāĻžāĻā§āϝāĻžāĻāĻļ āĻ āύā§āϏāϰāĻŖāĻāĻžāϰ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻāĻāĻŋ āĻāĻžāϞāύāĻž āĻāϰāĻž āĻšāĻŦā§āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Number from 1 to 5"
Case 6, 7, 8
Print "Number from 6 to 8"
Case 8 To 10
Print "Greater than 8"
Case Else
Print "Out of range 1 to 10"
End Select
End Sub