UC知道vb中求平均数问题
来源：百度知道 编辑：UC知道 时间：2024/06/03 20:31:02
产生20个0-1000的随机整数,放入一个数组中,然后输出这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
我也是这么写的,可是Sum = Sum + arrN(i)老是提示下标越界
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
我也是这么写的,可是Sum = Sum + arrN(i)老是提示下标越界
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 * 1000) 'rnd 产生的随机数是0~1之间 所以你可以用rnd*1000，哪么就是你希望得到最大的数，如果有最小值，哪么就是Int((6 * Rnd) + 1) 生成 1 到 6 之间的随机数值。
Next i
Sum = 0 'sum 这个变量初始化，初始化为0
For i = 1 To 20
Sum = Sum + arrN(i) '数组进行循环，然后相加
Next i
Aver = Sum / 20 '求平均数
Print Aver
End Sub
运行正常，没有错误提示，自己看看是不是程序自己输入的时候那里出现了错误！