Private Sub Command3_Click()
'用VB编程:随机产生10个0~100之间的随机整数,存放在一个数组中,
'然后求个元素和、
平均值,统计
'大于平均值的元素个数并把它们显示出来?
Dim MyValue(100) As Integer
Dim i As Integer
Dim n As Integer
Dim sum As Double
Dim ave As Double
n = 100
sum = 0
ave = 0
For i = 1 To n
MyValue(i) = Int(100 * Rnd) ' 生成 0 到 6 之间的随机数值。
sum = sum + MyValue(i)
Next i
ave = sum / n
For i = 1 To n
If MyValue(i) > ave Then
Print MyValue(i)
End If
Next i
End Sub
本回答被网友采纳