批处理之家 - Powered by Discuz! Board

标题: [技术讨论] [已解决]VBS中Select Case 不支持Is、To？ [打印本页]

作者: Hello123World 时间: 2011-7-15 16:49 标题: [已解决]VBS中Select Case 不支持Is、To？

dim a 
a=1 '处理inputbox返回字符串的问题 
select case a 
case 1 
msgbox "壹" 
case 2 
msgbox("贰") 
case 3 
msgbox("叁") 
case else 
msgbox("输入错误") 
end select 
复制代码

这样是可行的。

Dim a
a=29
Select Case a
	Case 1 to 25
		MsgBox "1-25之间的数"
	Case 25 to 50
		MsgBox "25-50之间的数"
End Select
复制代码

这样会提示语法错误。

Dim a
a=3
Select Case a
	Case Is=0
		MsgBox "等于0",,"结果"
	Case Is>0 
		MsgBox "大于0",,"结果"
	Case Is<0 
		MsgBox "小于0",,"结果"
End Select
复制代码

这样也会提示语法错误。

可见Vbs中Select Case 不支持Is、To，这样Select Case的功能削弱不少。

作者: broly 时间: 2011-7-15 16:54

这是VBS跟VB的差别之一。当然，语法是死的，人是活的，自己扩展用法select case不比在vb下弱

作者: powerbat 时间: 2011-7-15 19:21

Dim a
a=3
Select Case true
    Case a=0
        MsgBox "等于0",,"结果"
    Case a>0 
        MsgBox "大于0",,"结果"
    Case a<0 
        MsgBox "小于0",,"结果"
End Select
复制代码

作者: fastslz 时间: 2011-7-15 20:15

Dim a
a=29
Select Case true
        Case a>0  and a<26
             MsgBox "1-25之间的数"
        Case (a>25) and (a<51)
             MsgBox "25-50之间的数"
End Select
复制代码

作者: Hello123World 时间: 2011-7-16 11:45

经楼上两位补充，即便不支持Is、To，功能也没有削弱。

欢迎光临批处理之家 (http://bathome.net./)