用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.将10个学生
来源:学生作业帮助网 编辑:六六作业网 时间:2025/01/30 11:20:20
用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.将10个学生
用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个学生的平均成绩,然后统计高于平均分的人数.用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.将10个学生
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
程序上给你标注出来了