用VB编制程序，计算某个学生奖学金的等级，以三门课程成绩为评奖依据。

Question

用VB编制程序，计算某个学生奖学金的等级，以三门课程成绩为评奖依据。奖学金评奖标准如下：符合下列条件之一者获一等奖：（1）平均分大于95分者；（2）有两门成绩是100分，且第三门课程成绩不低于80分者。符合下列条件之一者获二等奖：（1）平均分大于90分者；（2）有一门成绩是100分，且其他成绩不低于75分者。符合下列条件者获三等奖：各门成绩不低于70分。符合条件者就高不就低，只能获得高的那一项奖学金。要求显示获奖的等级。

Answer 1

建立:一个文本框:TEXT1
一个标签框:LABEL1
三个命令按钮:COMMAND1、COMMAND2、COMMAND3
全部程序如下（已经运行过）：
Dim a(2), b As Single
Dim nam, jj As String
Dim i, j As Integer
Dim ur As Boolean

Private Sub Command1_Click()
Call csh
nam = InputBox("请输入考生姓名,退出直接回车:", "输入名字")
If nam = "" Then Exit Sub
For i = 0 To 2
b = 0
ur = True
Call urij
a(i) = b
Next
Text1.Text = "考生姓名:" & nam & Chr(10) & "第一科成绩:" & a(0) & Chr(10) & "第二科成绩:" & a(1) & Chr$(13) & "第三科成绩:" & a(2)
Label1.Caption = "请检查输入是否正确,若不正确,请重新输入!"
End Sub

Private Sub Command2_Click()
If nam = "" Then
Call csh
Exit Sub
End If
For i = 0 To 1
For j = i + 1 To 2
If a(i) < a(j) Then
b = a(i)
a(i) = a(j)
a(j) = b
End If
Next
Next
b = 0
For i = 0 To 2
b = b + a(i)
Next
b = b / 3
If b > 95 Or (a(0) = 100 And a(1) = 100 And a(2) > 80) Then
jj = "一等奖"
ElseIf b > 90 Or (a(0) = 100 And a(1) > 75 And a(2) > 75) Then
jj = "二等奖"
ElseIf a(0) > 70 And a(1) > 70 And a(2) > 70 Then
jj = "三等奖"
Else
jj = ""
End If
If jj <> "" Then
Label1.Caption = "该考生获得 " & jj & "! :)"""
Else
Label1.Caption = "该考生没有获奖:( "
End If
End Sub

Private Sub Command3_Click()
End
End Sub
Private Sub form_load()
Text1.Text = ""
Text1.Locked = True
Label1.Caption = ""
Command1.Caption = "输入信息"
Command2.Caption = "分析成绩"
Command3.Caption = "退 出"
End Sub
Sub csh()
nam = ""
a(0) = 0
a(1) = 0
a(2) = 0
b = 0
Text1.Text = ""
jj = ""
Label1.Caption = ""
End Sub

Sub urij()
Do While ur
jj = InputBox("请输入" & nam & "的第" & Str$(i + 1) & " 科成绩:", nam & "输入成绩")
For j = 1 To Len(jj)
If Asc(Mid(jj, j, 1)) < 48 Or Asc(Mid(jj, j, 1)) > 57 Then
ur = True
Exit For
End If
ur = False
Next
If ur = False Then
b = Val(jj)
If b > 100 Then
ur = True
b = 0
End If
End If
Loop
End Sub本回答被网友采纳