3.编写一个程序和界面,输入某学生的语文、数学、英语三门课程的成绩,单击计算可以得出该学生的平均分和总分。
4.编写一个程序,根据输入学生的成绩分数得出学生的等级“合格”、“良好”“优秀”,平均分在60分一下是不及格,60-70分是及格,70-85分以上是中等,85分以上是优秀。点击判断等级按钮,弹出该生的等级为“XX”!
3.编写一个程序和界面,输入某学生的语文、数学、英语三门课程的成绩,单击计算可以得出该学生的平均分和总分
编写一个程序,根据输入学生的成绩分数得出学生的等级“合格”、“良好”“优秀”,平均分在60分一下是不及格,60-70分是及格,70-85分以上是中等,85分以上是优秀。点击判断等级按钮,弹出该生的等级为“XX”
追答等级判断按钮的代码如下:
Private Sub Command1_Click()
Dim s%, g$ ' 变量s是成绩、变量g是等级
s = CInt(Text1.Text)
If s < 60 Then
g$ = "不及格"
Else
If s <= 70 Then
g$ = "及格"
Else
If s <= 85 Then
g$ = "中等"
Else
g$ = "优秀"
End If
End If
End If
MsgBox g$, , " "
End Sub