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