Select...Case Statement

αž€αŸ†αžŽαžαŸ‹β€‹αž”αžŽαŸ’αžαž»αŸ†β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸβ€‹αž˜αž½αž™ αž¬β€‹αž…αŸ’αžšαžΎαž“β€‹ αžŠαŸ„αž™β€‹αž•αŸ’αž’αŸ‚αž€β€‹αž›αžΎβ€‹αžαž˜αŸ’αž›αŸƒβ€‹αž“αŸƒβ€‹αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž˜αž½αž™β€‹Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’ αŸ–

Select Case condition Case expression Statement Block [Case expression2 Statement Block][Case Else] Statement Block End Select

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

Condition αŸ– αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž˜αž½αž™β€‹αž…αŸ†αž“αž½αž“β€‹ αžŠαŸ‚αž›β€‹αžαŸ’αžšαž½αžαžαŸ’αžšαžΆβ€‹αž”αŸ’αžšαžŸαž·αž“β€‹αž”αžΎβ€‹αž”αžŽαŸ’αžαž»αŸ†β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž”αž“αŸ’αžβ€‹αž–αžΈβ€‹αž’αž“αž»β€‹αž”αŸ’αžšαž™αŸ„αž‚ Case αžšαŸ€αž„β€‹αŸ—β€‹αžαŸ’αž›αž½αž“β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·Β αŸ”

Expression αŸ– αž€αž“αŸ’αžŸαŸ„αž˜αž˜αž½αž™β€‹αž…αŸ†αž“αž½αž“β€‹ αžŠαŸ‚αž›β€‹αž†αž”β€‹αž‚αŸ’αž“αžΆβ€‹αž‡αžΆαž˜αž½αž™β€‹αž€αž“αŸ’αžŸαŸ„αž˜β€‹αž”αŸ’αžšαž—αŸαž‘β€‹αž›αž€αŸ’αžαžαžŽαŸ’αžŒΒ αŸ” αž”αžŽαŸ’αžαž»αŸ†β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ αžŠαŸ‚αž›β€‹αž“αŸ…β€‹αž€αŸ’αžšαŸ„αž™β€‹αž’αž“αž»β€‹αž”αŸ’αžšαž™αŸ„αž‚ Case αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžαž·αž”αžαŸ’αžαž·β€‹ αž”αŸ’αžšαžŸαž·αž“β€‹αž”αžΎ αž›αž€αŸ’αžαžαžŽαŸ’αžŒ αž•αŸ’αž‚αžΌαž•αŸ’αž‚αž„ αž€αž“αŸ’αžŸαŸ„αž˜Β αŸ”

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–

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