作业帮 > 数学 > 作业

vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数.

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/15 15:09:16
vb中随机产生10个1—100之间的数,求出小于这十个平均数的数字个数.
通过Sub Main启动
Sub main()
Dim a(9) As Integer,p As Double,i As Integer,n As Integer
p = 0
n = 0
For i = 0 To 9
a(i) = Rnd * 100
p = p + a(i)
Next
p = p / 10
For i = 0 To 9
If a(i) < p Then n = n + 1
Next
MsgBox n,vbInformation,"提示"
End Su