Select Case 用法

发布网友

我来回答

共3个回答

热心网友

Private Sub Command1_Click()
Dim XX As Integer
XX = Val(Text1.Text)     '将文本框的文本转换为数字
If XX = 0 Then Exit Sub
Select Case XX
    Case 1               '一个变量的判断
        Label1.Caption = "变量为1"
    Case 2, 3            '二个变量的判断
        Label1.Caption = "变量为2或3"
    Case 4 To 8         '多个变量的判断
        Label1.Caption = "变量为4到8"
    Case 9              '一个变量的判断
        Label1.Caption = "变量为9"
    Case Else           '不符合上面的判断
        Label1.Caption = "变量为其他数"
End Select
End Sub

复制后你运行一下就明白了。

热心网友

Select Case 变量
Case 1

......................

Case 2,3,4
......................
......................

热心网友

Dim number As Integer = 8
Select Case number
    Case 1 To 5
        Debug.WriteLine("Between 1 and 5, inclusive")
        ' The following is the only Case clause that evaluates to True. 
    Case 6, 7, 8
        Debug.WriteLine("Between 6 and 8, inclusive")
    Case 9 To 10
        Debug.WriteLine("Equal to 9 or 10")
    Case Else
        Debug.WriteLine("Not between 1 and 10, inclusive")
End Select