用VB编程：随机产生10个0~100之间的随机整数，存放在一个数组中，然后求

Answer 1

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