51问答网 > vbs中select case语句怎么完成分数分支的选择（比如：85分以上为优秀，75分以上为良好）

vbs中select case语句怎么完成分数分支的选择（比如：85分以上为优秀，75分以上为良好）

2025-03-09 13:59:58

推荐回答（2个）

回答1：

1楼给的是vb的代码，但是vbs中select语句不支持is、to

Option Explicit
Dim a
a=InputBox("请输入分数","输入")
Select Case True
Case a<75
MsgBox "OMG"
Case a>=75 And a<85
MsgBox "良好"
Case a>=85
MsgBox "优秀"
End Select

回答2：

Sub command1_click()
Dim i As Integer '定义变量
i = Val(Text1) '指定变量的值来源
If i < 1 Or i > 100 Then MsgBox "超过范围" '限制值域
Select Case i
Case 1 To 74
MsgBox "伤不起"
Case 75 To 85
MsgBox "良好"
Case 85 To 100
MsgBox "优秀"
End Select
End Sub