Question

vb中,单击产生随机按钮,产生20个30到50范围的数,单击计算按钮可以计算并输出这些随机数的平均值，该代码

代码怎么编写啊，

Answer 1

dim arr(1 to 20) as integer , i as integer,sum as integer
private sub command1_click()
sum = 0
randomize
for i = 1 to 20
arr(i) = int(rnd*21)+30
sum = sum + arr(i)
print arr(i);
if i mod 10=0 then print
next
end sub

private sub command2_click()
print "平均值是：" ; sum/20
end sub

Answer 2

dim a(20)

private sub command1_click()
randomize
for i=1 to 20
a(i)=int(rnd*21)+30
print a(i);
next
print
end sub

private sub command2_click()
for i=1 to 20
s=s+a(i)
next
print "平均值=";s/20
end sub

追问

，，，补充一下，漏了一句话。。产生的20个随机数是存在数组arr中以每行10个数显示 在窗体上