灵鹊做题网vb编程关于选择平均数
来源：学生作业帮 编辑：灵鹊做题网作业帮 分类：综合作业 时间：2024/04/27 15:37:01
vb编程关于选择平均数
利用自定义函数,设计数组统计程序、随机生成50个100以内的正整数,放入ZS数组.设计并调用自定义函数,统计ZS数组的平均数和超过平均数的数值个数.
我前面都写出来了,但是不知道怎么找超过平均数的个数.求解,谢谢
Private Sub Form_Click()
Dim a(50), m, s, n, p
s = 0
n = 0
Print "原数组"
For m = 0 To 49
a(m) = Int(100 * Rnd + 0)
s = s + a(m)
If m Mod 10 = 0 Then Print
Print Tab((m Mod 10) * 5); a(m);
If a(m) > s / 50 Then n = n + 1
Next
Print
Print "平均值："; s / 50
Print "超过平均值数值的个数"; n
利用自定义函数,设计数组统计程序、随机生成50个100以内的正整数,放入ZS数组.设计并调用自定义函数,统计ZS数组的平均数和超过平均数的数值个数.
我前面都写出来了,但是不知道怎么找超过平均数的个数.求解,谢谢
Private Sub Form_Click()
Dim a(50), m, s, n, p
s = 0
n = 0
Print "原数组"
For m = 0 To 49
a(m) = Int(100 * Rnd + 0)
s = s + a(m)
If m Mod 10 = 0 Then Print
Print Tab((m Mod 10) * 5); a(m);
If a(m) > s / 50 Then n = n + 1
Next
Print "平均值："; s / 50
Print "超过平均值数值的个数"; n
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
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 "平均值："; s / 50
For m = 0 To 49
If a(m) > s / 50 Then n = n + 1
Next
Print "超过平均值数值的个数"; n
End Su