UC知道急谁能帮我做一道visual basic 程序题？
来源：百度知道 编辑：UC知道 时间：2024/04/27 21:16:42
在Visual Basic软件下做一个成绩等级判断系统
输入学生成绩，单机运行，在窗体上显示成绩的等级，90-100分为“优秀”
，80-89分为“良好”，70-79分为“中等”，60-69分为“及格”，
60分以下为不及格。
这个程序的代码是什么，急用请告知？
程序中用InputBox来输入数据的函数。
谢谢
输入学生成绩，单机运行，在窗体上显示成绩的等级，90-100分为“优秀”
，80-89分为“良好”，70-79分为“中等”，60-69分为“及格”，
60分以下为不及格。
这个程序的代码是什么，急用请告知？
程序中用InputBox来输入数据的函数。
谢谢
在窗体上放一个命令按钮，程序运行单击按钮，要求输入成绩。单击确定输出等级。代码如下：
Private Sub Command1_Click()
Dim cj As String
cj = InputBox("请输入成绩:")
Do While Not IsNumeric(cj)
MsgBox "请输入数字！", vbOKOnly + vbInformation, "提示"
cj = Val(InputBox("请输入成绩:"))
Loop
Select Case cj
Case 90 To 100
Print "优秀"
Case 80 To 89
Print "良好"
Case 70 To 79
Print "中等"
Case 60 To 69
Print "及格"
Case Is < 60
Print "不及格"
End Select
End Sub
Private Sub Form_Load()
Command1.Caption = "运行"
End Sub
private sub form_click()
1
s = inputbox("输入成绩")
if not isnumeric(s) or s < 0 or s > 100 then goto 1
select case s
case 90 to 100
msgbox "优