Dim a(100) As Integer, n As Integer, k As Integer
Private Sub Form_Click()
n = Val(InputBox("n="))
For i = 1 To n
a(i) = Int(Rnd * 101)
Print a(i);
If i Mod 10 = 0 Then Print
Next i
x = aver()
Print "Aver="; x
Print "<"; x; ":"; k
End Sub
Public Function aver()
For i = 1 To n
s = s + a(i)
Next i
pj = s / n
k = 0
For i = 1 To n
If a(i) < pj Then k = k + 1
Next i
aver = pj
End Function
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024