4、在简单的选择条件情况下,使用IIf()函数 繁琐的代码:
* o; ^9 r5 s) B3 Z% Q If nNum = 0 Then3 ~0 X0 g, L( Q+ R' H+ x
sName = "sancy"' r, n" u. h3 o F
Else
- x* v0 R! y" A2 g0 m sName = "Xu"
6 C) } N; v% A: j; {1 V% Q End If
B* }9 x, N X/ r. ] 简单的代码:
& L: m: a4 @! ?6 |2 g sName=IIf(nNum=0,"sancy","Xu")1 H, G$ Z5 K* F5 s
5、尽量使用Debug.Print进行调试
: {3 u) {/ }, g* ]6 l 在很多初学者的调试中,用MsgBox来跟踪变量值.其实用Debug.Print不仅可以达到同样的功效,而且在程序最后编译过程中,会被忽略.而MsgBox必须手动注释或删除.
; U$ a8 s# \7 x1 N8 v7 J$ c- E, b7 B2 ] 通常:9 T& b4 e- p5 B. h0 z5 G7 b: J
MsgBox nName6 x: Y6 X6 M- [: d9 X& V$ i
应该:$ U, V+ y" M: b$ u# f
Debug.Print nName
4 M! A. Y! M% |0 {5 L0 Z9 B' D" g 6、在重复对某一对象的属性进行修改时,尽量使用With....End With
! C2 l4 [0 ]- Q: X6 | 通常:
( A: e% z* J! B) K9 p# n4 _' t Form1.Height = 5000
; ~) ?& n, @7 d! K Form1.Width = 6000
- |: t% V* T" A+ ]1 e: i% m; E Form1.Caption = "This is MyLabel"
" _: F8 |2 B3 p' T 应该:
* h1 p# y, t: T, m4 B$ \# A, {2 G/ b* o With Form1, K6 p5 ^. l2 \5 r1 ~
.Height = 50006 R2 l5 g! i) H) h* H% C* A0 u# _
.Width = 60001 u7 _- x3 x8 A |; ]7 R3 p
.Caption = "This is MyLabel"7 h5 G; E0 x: I0 P L
End With7 V0 y8 p6 E9 y, S
这种结构程序执行效率比较高,特别在循环语句里。 |