作业帮 > 综合 > 作业

用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
哪里错了?
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
程序上给你标注出来了