Question

vb编程关于选择平均数利用自定义函数,设计数组统计程序、随机生成50个100以内的正整数,放入ZS数组.设计并调用自定义

Answer 1

Private Sub Form_Click()

Dim a(50),m,s,n,p

s = 0

n = 0

Randomize

Print "原数组"

For m = 0 To 49

a(m) = Int(100 * Rnd)

s = s + a(m)

Print Tab((m Mod 10) * 5); a(m);

If (m + 1) Mod 10 = 0 Then Print

Next

Print

Print "平均值："; s / 50

For m = 0 To 49

If a(m) > s / 50 Then n = n + 1

Next

Print "超过平均值数值的个数"; n

End Su