select case中为什么不能进行数值比较(>使用不 来 )
通过case is>19也 执行不来 ,to也 是错误的 。
dim n
n=inputbox("请输入数值:","名称")
Select Case n
Case 1 To 5
MsgBox "Hello World!"
Case 7
MsgBox "Hello Software Testing!"
Case Else
MsgBox "Hello 51Testing!"
End Select
这段代码,1到 5之间的 数,不会执行对应语句,请 问哪出错了。
还有case >的比较为什么会报错。
------解决方案--------------------------------------------------------
n必须是整数,所以要转换成整形
------解决方案--------------------------------------------------------
范围比较用If
- VBScript code
n=inputbox("请输入数值:","名称") If n>=1 And n<=5 Then MsgBox "Hello World!" ElseIf n=7 Then MsgBox "Hello Software Testing!" Else MsgBox "Hello 51Testing!" End If
------解决方案--------------------------------------------------------
要么就列举出来
- VBScript code
n=CINt(inputbox("请输入数值:","名称")) Select Case n Case 1,2,3,4,5 MsgBox "Hello World!" Case 7 MsgBox "Hello Software Testing!" Case Else MsgBox "Hello 51Testing!" End Select
------解决方案--------------------------------------------------------
还有就是和比较TRUE,这和If就类似了
- VBScript code
n=CInt(inputbox("请输入数值:","名称")) Select Case TRUE Case n>=1 And n<=5 MsgBox "Hello World!" Case n=7 MsgBox "Hello Software Testing!" Case Else MsgBox "Hello 51Testing!" End Select
------解决方案--------------------------------------------------------
vbscript和vb6的语法有不同 不支持case is
------解决方案--------------------------------------------------------
- VBScript code
n = inputbox("请输入数值:","名称")If IsNumeric(n) Then n = CInt(n) .....Else MsgBox "空"End If