15问答网 > Vb 随机函数产生20个10到50之间的数，放入数组，并且计算所有20个随机整数的平均值并输出

Vb 随机函数产生20个10到50之间的数，放入数组，并且计算所有20个随机整数的平均值并输出

2025-05-21 06:32:51

推荐回答（2个）

回答1：

窗体中加命令按钮，单击事件代码如下：

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的值

回答2：

Private Sub Command1_Click()
Dim a(1 To 20) As Integer
Dim i As Integer, s As Integer
s = 0
For i = 1 To 20
a(i) = Int(Rnd * 40 +10)
s = s + a(i)
Next i
Print "20个随机整数的平均值=" & s / 20
End Sub