我初学VB 请大家帮我看下这段代码的错误在哪里为什么运行的时候老是出错

#2

小篮子2013-01-20 22:34

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

#3

yz10252013-01-21 10:16

程序代码：

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

#4

jianchixia2013-01-21 19:07

回复 3楼 yz1025

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

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

#5

寂寞黑仔2013-03-01 14:34

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

我初学VB 请大家帮我看下这段代码的错误在哪里 为什么运行的时候老是出错