Private Sub Command1_Click()
i = Text1
If i <> "" Then
Select Case i
Case Is = 100
MsgBox "优"
Case Is < 100 And i >= 80
MsgBox "良"
Case Is < 80 And i >= 60
MsgBox "及格"
Case Is < 60 And i >= 0
MsgBox "不及格"
Case Else
MsgBox "只能输入1 ~ 100 的数"
End Select
Else
MsgBox "请输入分数"
End If
End Sub      
麻烦大家了 这是我自己编写的 但找不出错误

谢谢你了。   or 改成and 就是我想要的了。

[ 本帖最后由 jianchixia 于 2013-1-21 19:12 编辑 ]