用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 03:30:24
用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.
用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.将10个学生的成绩、平均成绩、高于平均分的人数均显示在picture控件中.
Private Sub Form_Click()
Dim a(10),s,i,Avg,d
s = 0
d = 0
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个学生的成绩")
Picture1.Print a(i)
s = s + a(i)
Next i
Avg = s / 10
Picture1.Print Avg
For i = 1 To 10
If a(i) > Avg Then
d = d + 1
End If
Next i
Picture2.Print d
End Sub
哪里错了?
用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.将10个学生的成绩、平均成绩、高于平均分的人数均显示在picture控件中.
Private Sub Form_Click()
Dim a(10),s,i,Avg,d
s = 0
d = 0
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个学生的成绩")
Picture1.Print a(i)
s = s + a(i)
Next i
Avg = s / 10
Picture1.Print Avg
For i = 1 To 10
If a(i) > Avg Then
d = d + 1
End If
Next i
Picture2.Print d
End Sub
哪里错了?
Private Sub Form_Click()
Dim a(10), s, i, Avg, d
s = 0
d = 0
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个学生的成绩")
Picture1.Print a(i)
s = s + a(i)
Next i
Avg = s / 10
Picture1.Print Avg
For i = 1 To 10
If a(i) +0> Avg Then ‘a(i)没转换前是字串,有可能比avg大,+0就是强制转换
d = d + 1
End If
Next i
Picture2.Print d
End Sub
程序上给你标注出来了
Dim a(10), s, i, Avg, d
s = 0
d = 0
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个学生的成绩")
Picture1.Print a(i)
s = s + a(i)
Next i
Avg = s / 10
Picture1.Print Avg
For i = 1 To 10
If a(i) +0> Avg Then ‘a(i)没转换前是字串,有可能比avg大,+0就是强制转换
d = d + 1
End If
Next i
Picture2.Print d
End Sub
程序上给你标注出来了
C语言编程题:从键盘输入10个学生的成绩,计算平均成绩,统计及格人数,计算高于平均分的学生的分数
c语言用数组编写,输入十个学生成绩求出平均分,并统计高于平均分的人数
Java编程,利用数组保存20个学生的成绩,统计输出平均分和高于平均分的人数
用二维数组做:输入n个学生的数学,英语成绩,然后统计每门课程的总成绩,平均分,最高分和最低分,最后输
输入一个正整数n,再输入n个学生的成绩,计算平均分,并统计各个等级的成绩的个数.成绩分为五个等级,分
C语言编程:计算10个学生成绩的平均值并输出平均成绩及成绩高于95分(含95分)学生成绩,要求学生成绩由键
C语言:编写程序,输入10个学生的成绩数据,计算并输出平均分及低于平均分的学生的人数.
编程C语言 输入n个学生成绩,计算他们的平均值并输出所有高于平均的学生成绩.
帮忙看个程序:需要输入一个班全体学生的成绩,把不及格的学生成绩输出,并求及格学生的平均成绩.
C语言输入M个学生N门课程的成绩,要求输出成绩单(包括每个学生的平均分及每门课程的平均分)
vb编写应用程序输入若干学生一门课程的成绩,统计平均成绩,及格和不及格的人数
c++语言:输入10个学生一门课的成绩,分别统计大于平均值的人数和小于60分的人数.还有几道题需要问你