VB 求每相邻N个数的平均值

来源：百度知道 编辑：UC知道 时间：2024/06/04 03:50:21
比如有1000个数字，要每相连5个数求平均值，并把值保存起来输出
数字是本来就有的，有1000个，需要求平均数后，得到另外一批200个的数字

Private Sub Form_Click()
Dim a(999) As Integer
Dim b(199) As Long

'For i = 0 To 999
'a(i) = Int(Rnd * 10000)
'Next i
'数字是本来就有的，有1000个，需要求平均数后，得到另外一批200个的数字
'这里去掉即可

For i = 0 To 199
For j = 0 To 4
b(i) = b(i) + a(i * 5 + j)
Next j
b(i) = b(i) / 5
Print b(i);
If (i + 1) Mod 10 = 0 Then Print
Next i
End Sub