[原创]补充一些编程加速的小技巧

UNARTHUR

论坛中已有不少关于提高代码运算速度的帖子，已经提到的我就不再赘述了，感兴趣的朋友不妨搜索一下。我只补充一些鲜有提及的小技巧，并不是很多，如果有新的我会继续补充进来。 以下语句的运算速度 (C)>(B)>(A)。 1，(A) if a>b then c>d endif (B) if a>b then c>d 注释：如果代码中的if语句只需要返回一个结果，请您尽量使用(B)语句。 2， (A) c=iif(a>b,10,100) (B) if a>b then c=10 else c=100 endif (C) c=100 if a>b then c=10 注释：(1) iif()函数书写简单可惜速度并不快，这是经我试验得到的结论，可能其它软件会有不同，例如foxpro帮助就指出："iif( ) 函数比等价语句 IF ... ENDIF 执行速度快得多。" 可是对于VBA我得出的结论恰好相反。(B)>(A) (2) 如果代码中的if语句需要返回2个结果,建议您先对[U]最可能出现的结果[/U]赋值(c=100)，然后再对其进行[U]单句的if判断。[/U] 3， (A) if a=0 or b=0 or c=0 then c=100 (B) if a*b*c=0 then c=100 注释：如果可能，请尽量减少if判断的条件。 4，(A) if flag=0 then d=100 (B) dim flag as Boolean ...... if flag=0 then d=100 注释：对于真假判断的[U]请明确定义变量类型[/U]为Boolean，千万别偷懒。计算机对于处理二进制数据有先天的优势。这些都应该养成长期的习惯。 5，(A) for i=1 to 100 for j=1 to 100 a=arr(i,j) ...... b=arr(i,j) ...... b=arr(i,j) next j (B) for i=1 to 100 for j=1 to 100 temp=arr(i,j) a=temp ...... b=temp ...... b=temp next j next i 注释：返回一个数组中指定坐标的元素比返回一个简单变量值要慢很多，数组越大差别就越明显。因此当您需要[U]反复调用[/U]同一数组元素时，不妨先用一个简单变量将存贮数组元素，然后再多次调用这个变量就可以了。在数组编程中这是一个很重要且很容易被忽视的提速技巧。 6，(A) sub calc() line1: ..... ..... ..... a=5 b=6 goto line1 end sub (B) sub calc(a&,b&) ....... ....... ....... call calc(5,6) end sub 注释：代码中使用递归编程往往能事半功倍，例如很多需要分而治之的运算尤为实用。现今很多成熟的算法都是通过递归来实现的。另外递归受堆栈空间的限制，这是使用中需要注意的。 7，最后是一点提示：大家在编写代码的时候经常会镶套很多诸如for,do等等循环，请您仔细检查您的循环语句，以减少重复语句的计算。例如不要对[U]同样的变量反复赋相同的值[/U]或进行[U]相同的重复if判断[/U]。我优化的代码中这样的例子是很多的。 以上这些希望对大家有所帮助！[em27]

[此贴子已经被作者于2006-2-28 17:38:27编辑过]

plxmm

N有帮助的了。谢谢！[em27][em27]

auteet

呵呵，学习！！！

hehua

楼主辛苦！

qee用

如果可能，对IF语句进行分解：
(1)IF A AND B THEN
写成
IF A THEN
IF B THEN

(2)IF A OR B
写成
IF A THEN
...
ELSE IF B THEN

或者
IF A THEN GOTO D1
IF B THEN GOTO D1
GOTO D2
D1:
....
D2:
麻烦是肯定的,用于当计算条件复杂且对速度要求高时.

[此贴子已经被作者于2006-3-1 17:52:25编辑过]

qee用

for each...in.. 快于 for... to...
证明如下:
Sub TestFor()
Dim i&, j%, s, rg As Range
Dim t1, t2, t3
t1 = Timer
For i = 1 To 65535
For j = 1 To 10
s = Cells(i, j)
Next
Next
t2 = Timer
For Each rg In Range("a1:j65535")
s = rg
Next
t3 = Timer
MsgBox t2 - t1 & Chr(10) & t3 - t2
End Sub

northwolves

与一些参考书籍的说法不太一致,发现

c = False
If a > b Then c = True

快于

c = (a > b)

Sub xx()
Dim a As Integer, b As Integer, c As Boolean, t As Single
a = 5
b = 6
t = Timer
For i = 1 To 10000000
c = False
If a > b Then c = True
Next
Debug.Print Timer - t

For i = 1 To 10000000
c = (a > b)
Next
Debug.Print Timer - t
End Sub

UNARTHUR

to;northwolves

没发现和我说的哪一条相关吖？请不妨说清楚一些。

UNARTHUR

谢谢qee用兄的补充，第一点是我没想到的，第二点就可惜不适用于数组操作。现在偶很少写操作工坐表的代码了，呵呵！

gvntw

学习，谢谢！