VB数组中的元素累加，但是元素的个数不确定，怎么做

Private Sub Form_load()
Randomize
n = (Int(Rnd * 30 + 70))
End Sub
Private Sub Form_Click()
sum = 0
For i = 0 To n - 1
sum = sum + fs(i)
Next i
End Sub

前面的dim我就不写了，这么写说下标越界。

'只解决出错问题，程序本身毫无意义
Option Explicit
Dim n
Private Sub Form_load()
Randomize
n = (Int(Rnd * 30 + 70)) '产生一个70-99的数
End Sub
Private Sub Form_Click()
Dim sum, fs(), i
ReDim fs(n - 1) '根据你的随机数重新定义数组的个数
For i = 0 To n - 1
sum = sum + fs(i) 'fs(i)没有赋值所以程序毫无意义
Next i
MsgBox "sum=" & sum
Unload Me
End Sub

VB6中数据组元素的上标下标可以用Lbound()\Ubound()两个函数来实现,就可以实现元素个数不确定的相加了,也可以用For each循环实现,

不知道你的程序需求是什么.

可以给你个例子

Dim T sum = 0

For Each T In fs Sum= Sum + T Next

这样,你不知道Fs的元素个数也可以运行

或者

sum = 0 For i = Lbound(fs) To Ubound(fs) sum = sum + fs(i) Next i