最近学习VB的使用，在http://www.chneic.这个网址上找了个习题做。
做出来以后提示实时错误424.
s = Val(Txt1.Text)
t1 = "成绩评定:"
If s < 2900 Then t2 = "不及格"
If s >= 2900 Then t2 = "及格"
If s >= 3020 Then t2 = "中等"
If s >= 3120 Then t2 = "良好"
If s >= 3200 Then t2 = "优秀"
lab2.Caption = t1 + t2

Txt1.Text = ""
lab2.Caption = "成绩评定："

End

这是cmd1 cmd2 cmd3 的代码
在线等解答

倒一下顺序，理正包容关系：
If s >= 3200 Then t2 = "优秀"
If s >= 3120 Then t2 = "良好"
If s >= 3020 Then t2 = "中等"
If s >= 2900 Then t2 = "及格"
If s < 2900 Then t2 = "不及格"
或者用IF……Then……ElseIf……的语式。