Select...Case Statement

གནད་དོན་གནས་སྟངས་གནད་དོན་གསལ་བརྗོད་གསལ་བཤད་བཀག་དམ་སེལ་འཐུ་འབད [Case expression2 Statement Block][Case Else] གསལ་བཤད་བཀག་དམ་མཇུག་སེལ་འཐུ་འབད།

Sub ExampleRandomSelect

Dim iVar As Integer

    iVar = Int((15 * Rnd) -2)

    Select Case iVar

        Case 1 To 5

            དཔར་མསྐྲུན་འབད "Number from 1 to 5"

        Case 6, 7, 8

            དཔར་བསྐྲུན་འབད"Number from 6 to 8"

        Case 8 To 10

            དཔར་བསྐྲུན་འབད"Greater than 8"

        Case Else

            དཔར་བསྐྲུན་འབད "Out of range 1 to 10"

    End Select

End Sub