vb编写应用程序输入若干学生一门课程的成绩,统计平均成绩,及格和不及格的人数
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/04/29 03:50:40
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)
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)
vb编写应用程序输入若干学生一门课程的成绩,统计平均成绩,及格和不及格的人数
C语言:从键盘上输入若干学生的成绩,计算出平均成绩,并输出不及格的成绩和人数
用C语言写出输入10个学生成绩,要求统计出及格人数和不及格人数
编写一个JAVA应用程序允许教师输入学生人数和所有学生该门课的成绩,然后输出最高分最低分及平均成绩
c语言编程:逐个输入n个学生的两门课成绩,统计有一门不及格的人数和两门不及格的人数各是多少?
c语言用数组编写,输入十个学生成绩求出平均分,并统计高于平均分的人数
帮忙看个程序:需要输入一个班全体学生的成绩,把不及格的学生成绩输出,并求及格学生的平均成绩.
用二维数组做:输入n个学生的数学,英语成绩,然后统计每门课程的总成绩,平均分,最高分和最低分,最后输
用c语言 输入10个同学的成绩,统计不及格的人数,并输出及格率
C语言,编写程序,依次输入某位学生的数学、英语和计算机课程的成绩,计算并输出该生3门课程的平均分
用C语言编写程序:输入某位学生的数学、英语和计算机课程的成绩,求该生3门课程的平均分.
利用一维数组存储由键盘输入10个学生的成绩,分别统计优、良、中、及格、不及格的人数.