作业帮 > 综合 > 作业

VB:用函数array产生一组数并输出,然后求出其大于平均值的元素个数并输出

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 02:32:10
VB:用函数array产生一组数并输出,然后求出其大于平均值的元素个数并输出
Private Sub Command1_Click()
Dim s%,x%
sum = Array(1,3,4,12,32,1,3)
For i = 0 To UBound(sum)
s = s + 1
x = x + sum(i)
Next i
For i = 0 To UBound(sum)
If sum(i) > x / s Then
Print sum(i)
End If
Next i
End Su