问题描述：
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
问题解答：
我来补答
窗体中加命令按钮,单击事件代码如下：
Private Sub Command1_Click()
Randomize
Dim a(1 To 20) As Integer
Dim s As Double
For i = 1 To 20
a(i) = Int(Rnd() * 40 + 10)
s = s + a(i)
Next i
Print s / 20
End Sub
运行过程观察数组a的值
Private Sub Command1_Click()
Randomize
Dim a(1 To 20) As Integer
Dim s As Double
For i = 1 To 20
a(i) = Int(Rnd() * 40 + 10)
s = s + a(i)
Next i
Print s / 20
End Sub
运行过程观察数组a的值
展开全文阅读