请教关于学生成绩表的错误提示

jdfhappy

dim $s
$s=InputBox("学生成绩","请输入学生的成绩")
If @error=1 Or $s="" Then
    Exit
EndIf
Select
        Case $s>90 And $s<100
                MsgBox(0,"学生成绩","优秀！")
        Case $s>80 And $s<=90
                MsgBox(0,"学生成绩","良好！")
        Case $s>=60 And $s<=80
                MsgBox(0,"学生成绩","及格！")
        Case $s>=0 And $s<60
                MsgBox(0,"学生成绩","不及格！")
        Case Else
                MsgBox(0+16,"学生成绩","学生成绩输入错误！")
EndSelect


为什么输入字符应该出来学生成绩输入错误，我那里出的错

958806868

dim $s
$s=InputBox("学生成绩","请输入学生的成绩")
If @error=1 Or $s="" Then
    Exit
EndIf
Select
        Case $s>=90 And $s<=100
                MsgBox(0,"学生成绩","优秀！")
        Case $s>=80 And $s<=90
                MsgBox(0,"学生成绩","良好！")
        Case $s>=60 And $s<=80
                MsgBox(0,"学生成绩","及格！")
        Case $s>=0 And $s<60
                MsgBox(0,"学生成绩","不及格！")
        Case Else
                MsgBox(0+16,"学生成绩","学生成绩输入错误！")
EndSelect

jdfhappy

这和我的有什么区别吗。出来的一样的提示,随便输入字符，出来的是不及格啊，应该是错误提示

[ 本帖最后由 jdfhappy 于 2009-2-5 14:11 编辑 ]

958806868

原帖由 jdfhappy 于 2009-2-5 14:08 发表
这和我的有什么区别吗。出来的一样的提示,随便输入字符，出来的是不及格啊，应该是错误提示

当然不一样，楼主的输入100分都提示错误，你的条件设置错误

958806868

楼主应该多看看基础教程，另外检查不够仔细

958806868

不符合$>=0 或$s<=100都会提示错误

[ 本帖最后由 958806868 于 2009-2-5 14:57 编辑 ]