楼主，你思路就错了
所有数组都加本身就是最笨的方法，你问最笨的方法里有没有好点的方法，实在很搞笑

肯定有不需要每个数组都加的办法，只是你没想到而已，所以说你思路就错了

考虑过用Split函数吗？
如果数组初值是有规律的话，可否考虑对数组进行操作，如：插入数组项。

Private Sub Command1_Click()
Dim v(2) As Integer
Dim dest()   As String
Dim x As Integer
v(0) = 1
v(1) = 2
v(2) = 3
x = 5 ‘设定每次加的数值大小
St = CStr(v(0) + x) & " / " & CStr(v(1) + x) & " / " & CStr(v(2) + x) & " / "
dest = Split(St, "/") ’Split()函数
Text1(0) = dest(0)
Text1(1) = dest(1)
Text1(2) = dest(2)
End Sub
我一个中午没睡午觉写出来的，希望能提高你的“速度”！

[ 本帖最后由 小靓仔仔 于 2010-3-19 14:02 编辑 ]

收到的鲜花

• William1949 于 2010-03-21 10:50 送鲜花  3朵   附言：谢谢您

= =;
还没结贴吗？都说了，没办法。
用别的方法实现吧。

朋友：谢谢您：
开始我也想到Split函数，但是不行，

举一个简单的例子：

Dim Arr(2) As Long
Dim B As Long
B = 5
'给数组Arr赋初值：
Arr(0) = 18
Arr(1) = 7
Arr(2) = 41

'给数组Arr的所有元素都加B
Arr(0) = Arr(0) + B
Arr(1) = Arr(1) + B
Arr(2) = Arr(2) + B

'运算结果：
Print Arr(0) '结果是：23
Print Arr(1) '结果是：12
Print Arr(2) '结果是：46

上面的例子，只有三个元素，不存在速度慢的问题，可是有几万个元素，速度就慢了。

版主：您好

怎么结贴？为什么会提示：

Arr(0) = 18
Arr(1) = 7
Arr(2) = 41-------------有规律吗？如果有，可否考虑对数组进行插入操作？