VB循环求和程序，高手帮忙！

Private Sub Command1_Click()
'假设有10个数 1、3、5、10、7、12、23、18、89、21、、、、
Dim a(9) As Integer
a(0) = 1
a(1) = 3
a(2) = 5
a(3) = 10
a(4) = 7
a(5) = 12
a(6) = 23
a(7) = 18
a(8) = 89
a(9) = 21

Dim b(9) As Integer
b = FX(a)
End Sub

Public Function FX(a() As Integer) As Integer()
Dim b(9) As Integer
For i = 0 To UBound(a) - 4
b(i) = a(i) + a(i + 1) + a(i + 2) + a(i + 3) + a(i + 4)
Next i
FX = b()
End Function

给你个思路吧，懒得编了。
方法1：正如二楼所说用数组比较容易，但是他的方法有局限性，也就10个数字。

应该用InputBox来输入你的数，然后赋值到数组myArray(),注意此数组没有定义大小，也就是说你爱输入多少就多少。

然后再用ReDim Preserve myArray(),再加上最基本的循环即可。
For N As Integer =1 to (N+5)
Sum+=N
Next

方法2：

还是用InputBox来输入你的数，这次不用数组。先随便定义一个整数x，起数数的作用。输入一个数，x就加1，然后直接结合循环即可。

但是这次不能用Dim,改用static，这样计算机就能记住你输入的一系列数了。

Private Function Sum(Num() As Integer) As Long
Dim i,k As Intege