例如：有一个数组（ARR）：
Dim ARR(80000) As Long
ARR(0) = 1
ARR(1) = 2
ARR(2) = 3
...
...
ARR(N) = N

用什么方法可以一次性的给数组的每个元素都加5？
我可以用循环来实现：
For p = LBound(ARR) To UBound(ARR)
    ARR(p) = ARR(p) + 5
Next

但是这种方法很慢，每次执行，都要循环80000次，有没有快速的方法，一次性的给所有的元素都加一个值

到用的时候再加好了

谢谢您的回复！！！

我的意思是这样的：
For p = LBound(ARR) To UBound(ARR)
    ARR(p) = ARR(p) + 5
Next
上面的代码是嵌套在其它循环中，外层还有若干次的循环，导致程序执行到这里时，都要再次的重复80000次，最终使得整个过程执行效率很慢，我想问有没有办法，让其一次性给所有元素，都加一个值；

一定要都加上去吗？

版主,您好！！！

是的，都加上去，但外层循环控制着每次相加的数，如：
第一次循环：ARR(p) = ARR(p) + 5
第二次循环：ARR(p) = ARR(p) + 7
第三次循环：ARR(p) = ARR(p) + 4
... ...
... ...

我想问：有没有类似于COPYMemory，或是其它方法可以实现？

你这貌似全部输出的都是 5 7 4 样，怎么使app（i+1）=app（i）+5啊，我是个新手，但这样写要发生越界现象

不是app（i+1）=app（i）+5
而是app（i）=app（i）+5
不会有越界现象。
至于5，7，4，我只是举例说明，实际上，它是在外层循环中，通过其它代码的运行而得到的。
我的问题的重点是要数组中各个元素都加上相同的数，
还有，我在一楼中举的例子是：
Dim ARR(80000) As Long
ARR(0) = 1
ARR(1) = 2
ARR(2) = 3
...
...
ARR(N) = N '（给元素赋初值，是顺序递增的，但实际情况是无顺的）

只能这样加啊.如果你要追求这里的运算速度,那只能不要使用 VB 了.

VB 编译成 机器代码后, 你还认为这样执行慢了,那自然没办法.

循环里,如果需要加快执行速度 .使用如下方案进行优化.

1\少用函数,特别是VB内置函数.自己定义的函数,比 VB 内置函数所需要的额外开销要小.但自己的定义的
2\少用变体类型的变量 ,尽量多用 long 类型的变量
3\如果有几个地方引用某个属性,或几个地方使用某个计算结果,尽量用变量保存属性或结果,然后使用变量.

谢谢回复！！！
看来只能用循环了。

我原本想着数组有一种“矩阵”算法，
能实现：数组A = 数组B + 数组C
等同于：A（0） = B（0）+ C（0）
        A（1） = B（1）+ C（1）
        ...  ...
        ...  ...

看来，这种想法是错误的
谢谢，诸位的回复！！！

给数组每一元素赋一类至于4+ i这样的值，用代码改变i的值，这样可以吗？