对答案有疑问,请高人解释原因。

Private Sub Form_Click() '窗体点击
a = 95 '变量a=95
If a > 90 Then i = 4 '变量a 95 > 90 i=4
If a > 80 Then i = 3 '变量a 95 > 80 i=3
If a > 70 Then i = 2 '变量a 95 > 70 i=2
If a > 60 Then i = 1 '变量a 95 > 60 i=1
Print i '输出i 结果当然是1
End Sub

如果按你的思路当95大于90的直接输出结果的话可以这样写

Private Sub Form_Click()
a = 95
If a > 90 Then i = 4 :Print i: Exit Sub
If a > 80 Then i = 3 :Print i: Exit Sub
If a > 70 Then i = 2 :Print i: Exit Sub
If a > 60 Then i = 1 :Print i: Exit Sub
End Sub

执行 If a > 90 Then i = 4 ，i=4
然后 If a > 80 Then i = 3 ，i=3

。。。。。。。。。。。。。。。。
最后 If a > 60 Then i = 3 ，i=1

if 这样写，是一个一个的执行
a>90同时也>60

用If实现跳转除了加End If就是Goto

做成一个 If 块。把后面的 If 改成 ElseIf，在 I＝？之后加上 Print I 和 Exit Sub。

执行到最后，肯定是1.如果设置上限，比如70≥a > 60，应该就可以了。