VB问题，会的看下！

来源：百度知道 编辑：UC知道 时间：2024/06/21 22:51:06
编写一个程序，用户输入某学生百分制考试成绩，输出该生总评成绩。总评标准：60分以下不及格，60—69及格，70-79中等，80-89良好，90-100优秀。
我已经写好一个了，但想找种简单的不用InputBox函数这类的，最好TEXT、Label、命令按钮之类就能解决,而且要注意输入100以上的数字了怎么解决～～

Private Sub Command1_Click()
Dim A
A = Text1.Text
If A<0 or A>100 Then
label1.caption="出错了"
ELSEIf A < 60 Then
Label1.Caption = "不及格"
ElseIf A >= 60 And A <= 69 Then
Label1.Caption = "及格"
ElseIf A >= 70 And A <= 79 Then
Label1.Caption = "中等"
ElseIf A >= 80 And A <= 89 Then
Label1.Caption = "良好"
ElseIf A >= 90 And A <= 100 Then
Label1.Caption = "优秀"
End If
End Sub

放一个textbox(采用默认的名称text1),一个label(采用默认的名称label1),两个commandbutton(采用默认的名称command1和command2),所有控件调整好大小和摆放位置，其它不用设定。
Dim A As Integer

Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "请输入数字！"
Text1.Text = ""
Text1.SetFocus
Else
A = Val(Text1.Text)
If A > 100 Or A < 0 Then
MsgB