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

Question

如题所述

Answer 1

举例如下：

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

Answer 2

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

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

Answer 3

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本回答被网友采纳

Answer 4

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