...的(vb课程)期末考试成绩(0~100)放入数组a中,然后输

发布网友发布时间：2024-10-23 23:00

共1个回答

热心网友时间：2024-11-10 07:49

Private Sub Form_Click()
Dim a(10) As Integer, sum As Integer, x As Single
For i = 1 To 10
a(i) = Val(Rnd * 101)
sum = sum + a(i)
Next i
For i = 1 To 10
If a(i) < sum / 10 Then k = k + 1
Next i
Print "成绩小于平均分的人数为："; k
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com