发布网友
共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