Private Sub Command1_Click()
If i >= 80 Then
Label2.Caption = "优秀"
ElseIf i >= 60 Then
Label2.Caption = "及格"
Else
Label2.Caption = "不及格"
End If
End Sub
每次运行的时候，不管我输什么数字，都是出现不及格，请哪位帮一下，谢谢啦！

你的i是怎么定义的？

你并没有把你输入的值赋给i是吧？那i永远是0，当然永远都是不及格了阿！

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

谢谢各位帮忙～～～