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