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

Please support us!