求好心人帮忙做个简单VB程序

来源：百度知道 编辑：UC知道 时间：2024/05/28 16:00:46
设计一程序，该程序实现输入学生姓名、六门课程成绩，计算并输出学生的评定等级。

1。评定方法：六门课程平均分数85分以上并且没有低于60分的课程为优秀。
六门课程平均分数75分以上并且低于60分的课程不多于一门为良好。
六门课程平均分数60分以上为及格。
其余为不及格。
2。有六门课程成绩输入框
3。有姓名输入框
4。输出平均成绩和评定等级。
5。要求界面友好、可多次输入和计算，输入错误可以重输，有退出按钮。

考虑下

Private Sub Command1_Click()
Dim avg As Single
For i = 0 To 5
avg = avg + Val(Text2(i))
Next
avg = Format(avg / 6, "0.00")
For i = 0 To 5
If Val(Text2(i)) > 60 Then
m = m + 1
End If
Next
If avg > 85 And m = 6 Then
Label1 = Text1 & "学生平均成绩为" & avg & "输出学生的评定等级为优秀"
ElseIf avg > 75 And m = 5 Then
Label1 = Text1 & "学生平均成绩为" & avg & "输出学生的评定等级为良好"
ElseIf avg > 60 Then
Label1 = Text1 & "学生平均成绩为" & avg & "输出学生的评定等级为及格"
Else
Label1 = Text1 & "学生平均成绩为" & avg & "输出学生的评定等级为不及格"
End If
End Sub

Private Sub Command2_Click()
Text1 = ""
For i = 0 To 5
Text2(i) = ""
Next
End Sub

Private Sub Command3_Click()
End
End Sub

分数也太少了吧，加分的话可以考虑下呵呵