VB编程 功能是产生20个0到999的随机整数，放入一个数组中，然后输出这20个整数的平均值。

Question

VB编程
功能是产生20个0到999的随机整数，放入一个数组中，然后输出这20个整数的平均值。VB编程
功能是产生20个0到999的随机整数，放入一个数组中，然后输出这20个整数的平均值。程序运行后，单击命令按钮。，即可求出平均值，并在窗体上显示出来。请补充完整一下代码
Option Base 1
Private Sub Command1_Click()
Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer, i
Randomize
For i=1 To 20
arrN(i)=Int(Rnd* __ )
Next i
Sum= __
For i=1 To 20
Sum= __
Next i
Aver= __
Print Aver
End Sub

Answer 1

Dim arrN(20) As Integer
Dim Aver As Single
Dim Sum As Integer, i
Randomize
For i = 1 To 20
arrN(i) = Int(Rnd * 20)
Next i
Sum = 0
For i = 1 To 20
Sum = Sum + arrN(i)
Next i
Aver = Sum / 20
Print Aver追问

这里是20嘛？
arrN(i) = Int(Rnd * 20)

追答

看错了应该是 arrN(i) = Int(Rnd * 999),

追问

好的

本回答被提问者采纳