Private Sub Command1_Click() If i >= 80 Then Label2.Caption = "优秀" ElseIf i >= 60 Then Label2.Caption = "及格" Else Label2.Caption = "不及格" End If End Sub 每次运行的时候,不管我输什么数字,都是出现不及格,请哪位帮一下,谢谢啦!
Private Sub Command1_Click() din i as long i=inputbox("请输入成绩") If i >= 80 Then Label2.Caption = "优秀" ElseIf i >= 60 or i<80 Then Label2.Caption = "及格" Else Label2.Caption = "不及格" End If End Sub