[已解决]VBS中Select Case 不支持Is、To？

Hello123World

1. dim a
   
2. a=1 '处理inputbox返回字符串的问题
   
3. select case a
   
4. case 1
   
5. msgbox "壹"
   
6. case 2
   
7. msgbox("贰")
   
8. case 3
   
9. msgbox("叁")
   
10. case else
    
11. msgbox("输入错误")
    
12. end select

复制代码

这样是可行的。

1. Dim a
   
2. a=29
   
3. Select Case a
   
4.         Case 1 to 25
   
5.                 MsgBox "1-25之间的数"
   
6.         Case 25 to 50
   
7.                 MsgBox "25-50之间的数"
   
8. End Select

复制代码

这样会提示语法错误。

1. Dim a
   
2. a=3
   
3. Select Case a
   
4.         Case Is=0
   
5.                 MsgBox "等于0",,"结果"
   
6.         Case Is>0
   
7.                 MsgBox "大于0",,"结果"
   
8.         Case Is<0
   
9.                 MsgBox "小于0",,"结果"
   
10. End Select

复制代码

这样也会提示语法错误。

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

broly

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

powerbat

1. 
   
2. Dim a
   
3. a=3
   
4. Select Case true
   
5.     Case a=0
   
6.         MsgBox "等于0",,"结果"
   
7.     Case a>0
   
8.         MsgBox "大于0",,"结果"
   
9.     Case a<0
   
10.         MsgBox "小于0",,"结果"
    
11. End Select
    

复制代码

fastslz

1. Dim a
   
2. a=29
   
3. Select Case true
   
4.         Case a>0  and a<26
   
5.              MsgBox "1-25之间的数"
   
6.         Case (a>25) and (a<51)
   
7.              MsgBox "25-50之间的数"
   
8. End Select

复制代码

Hello123World

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