作业帮vb编写应用程序输入若干学生一门课程的成绩,统计平均成绩,及格和不及格的人数现在学的是循环语句,希望有循环语句的答案
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 16:11:03
vb编写应用程序输入若干学生一门课程的成绩,统计平均成绩,及格和不及格的人数现在学的是循环语句,希望有循环语句的答案
vb编写应用程序输入若干学生一门课程的成绩,统计平均成绩,及格和不及格的人数
现在学的是循环语句,希望有循环语句的答案
vb编写应用程序输入若干学生一门课程的成绩,统计平均成绩,及格和不及格的人数现在学的是循环语句,希望有循环语句的答案
Dim a As Double = 0 '总成绩
Dim b As Double = 0 '平均成绩
Dim c As Integer = 0 '及格人数
Dim d As Integer = 0 '不及格人数
'定义一个变量,输入人数
Dim i As Integer = InputBox("请输入人数：", "提示", 5)
'循环填入每个人的成绩
For j = 1 To i
Dim k As Double = InputBox("请输入第 " & j.ToString.Trim & " 个学生的成绩：", "提示", 0)
a = a + k '记录总成绩
If k >= 60 Then '判断输入的成绩是否及格
c = c + 1 '及格
Else
d = d + 1 '不及格
End If
Next
b = a / i '计算平均成绩
'输出结果
MsgBox("总人数：" & i.ToString & vbCrLf & "总成绩：" & a.ToString & vbCrLf & "平均成绩：" & b.ToString & vbCrLf & "及格人数：" & c.ToString & vbCrLf & "不及格人数：" & d.ToString)