Private Sub Command1_Click()
select case 7, 9 + 1 这里应该是接受测试的变量,
Case Is > 7 这里才是测试表达式
Print "d"
Case Is < 8
Print "a"
End Select
End Sub
----------------------
Private Sub Command1_Click()
select case a '变量 a
Case 8 , Is > 8 '=8 或者大于 8 。这里二个测试表达式。
Print "d"
Case Is < 8
Print "a"
End Select
End Sub