VB中的Select Case语句能不能举例子啊？

举例如下：

Private Sub Form_Click()

Dim a As Integer

a = InputBox("请输入一个数：")

Select Case a

Case Is > 0

MsgBox "是正数"

Case Is < 0

MsgBox "是负数"

Case Else

MsgBox "是零"

End Select

End Sub

扩展资料：

参数    

testExpression：必要参数，任何数值表达式或字符串表达式。

expression：如果有Case出现，则为必要参数。    

statements：可选参数，一条或多条语句，当 testExpression 匹配 expression 中的任何部分时执行。    

elseStatements：可选参数，一条或多条语句，当 testExpression 不匹配 Case 子句的任何部分时执行。

参考资料来源：百度百科-Select Case

比如在一个文本框里输人一个分数，按一下按钮，根据分数判断出级别，代码如下：

Private Sub Command1_Click()
Select Case Val(Text1.Text)
Case 0 To 59
MsgBox ("不及格")
Case 60 To 79
MsgBox ("及格")
Case 80 To 89
MsgBox ("良好")
Case 90 To 100
MsgBox ("优秀")
Case Else
MsgBox ("输人不正确，请重新输人！")
End Select
End Sub

Private Sub Form_Click()
Dim a As Integer
a = InputBox("请输入一个数：")
Select Case a
Case Is > 0
MsgBox "是正数"
Case Is < 0
MsgBox "是负数"
Case Else
MsgBox "是零"
End Select
End Sub

Select Case a
Case b to c
t=100
case 1,2,3
t=200
...
case else
t=0
end select
case后可以有几种格式来写