欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

select case中为什么不能进行数值比较(>使用不 来 ),该如何处理

更新时间: 2014-01-05 01:52:49 责任编辑: Author_N1

 

select case中为什么不能进行数值比较(>使用不 来 )
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 			
			
		
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:49
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2454/
本文WWW.DOC100.NET DOC100.NET版权所有。