Question

关于VB嵌套块IF语句的问题

Private Sub Form_Click()
score = Val(InputBox("输入成绩"))
If score > 60 Then
If score >= 85 Then
st = "优秀"
Else
st = "合格"
End If
If score < 60 Then
st = "不合格"
End If
Print st
End If
End Sub

用嵌套块If语句，为什么输入49就不显示？

Answer 1

Private Sub Form_Click()
score = Val(InputBox("输入成绩"))
If score >= 60 Then
    If score >= 85 Then
        st = "优秀"
    Else
        st = "合格"
    End If
Else
    st = "不合格"
End If
Print st
End Sub

Answer 2

if
score>=60
then
....
else
if
score>=85
then
....
else
.....
endif
print
st
>60
的当然不会小于49，嵌套以后，输入49
当然就不显示了，因为49<60
在最外层的if语句就被排除了。不会执行if
内部的语句了。

Answer 3

if score>=60 then
....
else if score>=85 then
....
else
.....
endif
print st

>60 的当然不会小于49，嵌套以后，输入49 当然就不显示了，因为49<60
在最外层的if语句就被排除了。不会执行if 内部的语句了。

Answer 4

Private Sub Form_Click()
Dim score, st
score = InputBox("输入成绩")
If IsNumeric(score) Then
score = Val(score)
Else
MsgBox "输入一个有效的数字！"
Exit Sub
End If
If score >= 60 Then
If score > 100 Then
st = "无效的分数"
ElseIf score >= 85 Then
st = "优秀"
Else
st = "合格"
End If
Else
If score < 0 Then
st = "无效的分数"
Else
st = "不合格"
End If
End If
Print st
End Sub

Answer 5

因为你把
If score < 60 Then
st = "不合格"
End If
这段写在了最后一个End if里面。只要把那段程序和输出语句写拉出到你现在的最后一个
End if之后就可以了。
写嵌套格式的时候一定要注意。