...的(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
