用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.将10个学生
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/18 19:18:51
![用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.用inputbox输入一个班10个学生的成绩,要求10个学生的平均成绩,然后统计高于平均分的人数.将10个学生](/uploads/image/z/10333209-57-9.jpg?t=%E7%94%A8inputbox%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E7%8F%AD10%E4%B8%AA%E5%AD%A6%E7%94%9F%E7%9A%84%E6%88%90%E7%BB%A9%2C%E8%A6%81%E6%B1%8210%E4%B8%AA%E5%AD%A6%E7%94%9F%E7%9A%84%E5%B9%B3%E5%9D%87%E6%88%90%E7%BB%A9%2C%E7%84%B6%E5%90%8E%E7%BB%9F%E8%AE%A1%E9%AB%98%E4%BA%8E%E5%B9%B3%E5%9D%87%E5%88%86%E7%9A%84%E4%BA%BA%E6%95%B0.%E7%94%A8inputbox%E8%BE%93%E5%85%A5%E4%B8%80%E4%B8%AA%E7%8F%AD10%E4%B8%AA%E5%AD%A6%E7%94%9F%E7%9A%84%E6%88%90%E7%BB%A9%2C%E8%A6%81%E6%B1%8210%E4%B8%AA%E5%AD%A6%E7%94%9F%E7%9A%84%E5%B9%B3%E5%9D%87%E6%88%90%E7%BB%A9%2C%E7%84%B6%E5%90%8E%E7%BB%9F%E8%AE%A1%E9%AB%98%E4%BA%8E%E5%B9%B3%E5%9D%87%E5%88%86%E7%9A%84%E4%BA%BA%E6%95%B0.%E5%B0%8610%E4%B8%AA%E5%AD%A6%E7%94%9F)
用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
程序上给你标注出来了