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      
麻烦大家了 这是我自己编写的 但找不出错误

case语句不能用比较的吧 改成80to100或者区间（80,100）

Private Sub Command1_Click()
Dim i
    i = Val(Text1)
    
    If i <> 0 Then
        If (i = 100) Then
            MsgBox "优"
        ElseIf ((i < 100) Or (i >= 80)) Then
            MsgBox "良"
        ElseIf ((i < 80) Or (i >= 60)) Then
            MsgBox "及格"
        ElseIf ((i < 60) Or (i >= 0)) Then
            MsgBox "不及格"
        Else
            MsgBox "只能输入1 ~ 100 的数"
        End If
    Else
        MsgBox "请输入分数"
    End If

End Sub

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

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

好像把or都改成and就行哦。