編程人員從大量的程序開發中積累了許多非常實用的經驗與技巧，它們就象一盤盤的快餐，看似簡單但營養絕對豐富！用“餐”之後，您的VB程序將立即超頻。還猶豫什麼，快來品嘗品嘗吧...
用Mid$命令超速字符串添加操作 大家都知道，&操作符的執行速度是相當慢的，特別是處理長字符串時。當必須重復地在同一變量上附加字符時，有一個基於Mid$命令的技巧可以使用。基本思路就是：預留一個足夠長的空間存放操作的結果。下面是應用這個技術的一個例子。
假設要建立一個字符串，它要附加從1開始的10000個整數："1234567...999910000"。下面是最簡單的實現代碼：
->res=""
Fori=1to10000:res=res&Str(i):
Next->
代碼雖然簡單，但問題也很明顯：Res變量將被重分配10000次。下面的代碼實現同樣的目的，但效果明顯好轉：
->DimresAsString
DimiAsLong
DimindexAsLong
'預留足夠長的緩沖空間
res=Space(90000)
'指針變量，指出在哪裡插入字符串
index=1
'循環開始
Fori=1to10000
substr=Str(i)
length=Len(substr)
'填充字符串的相應區間段數值
Mid$(res,index,length)=substr
'調整指針變量
index=index length
Next
'刪除多余字符
res=Left$(res,index-1)->
測試表明：在一個333MHz的計算機上，前段代碼執行時間為2.2秒，後者僅僅為0.08秒！代碼雖然長了些，可是速度卻提高了25倍之多。呵呵，由此看來：代碼也不可貌相啊
從頭開始刪除集合項目 刪除集合中的所有內容有許多方法，其中有些非常得迅速。來看看一個包含10,000個項目的集合：
->DimcolAsNewCollection,iAsLong
Fori=1To10000
col.Addi,CStr(i)
Next->
可以從末尾位置為起點刪除集合內容，如下：
->Fori=col.CountTo1Step-1
col.Removei
Next->
也可以從開始位置為起點刪除集合內容，如下：
->Fori=1Tocol.CountStep1
col.Removei
Next->
試驗證明，後者要快於前者百倍多，比如0.06秒比4.1秒。原因在於：當引用接近末尾位置的集合項目時，VB必須要從第1個項目開始遍歷整個的項目鏈。更有趣的是，如果集合項目的數量加倍，那麼從末尾開始刪除與從頭開始刪除，前者要比後者花費的時間將成倍增長，比如前者是24秒，後者可能為0.12秒這麼短！
最後提醒您：刪除集合的所有內容的最快方法就是“毀滅”它，使用下面的語句：
->Setcol=NewCollection->
對於一個包含20,000個項目的集合，上述操作僅僅耗時0.05秒，這比使用最快的循環操作進行刪除也要快2倍左右。
用InStr函數實現代碼減肥 可以采用“旁門左道”的方式使用Instr函數實現代碼的簡練。下面是一個典型的例子，檢測字符串中是否包含一個元音字母：
1、普通的方法：
->IfUCase$(char)="A"OrUCase$(char)="E"OrUCase$(char)="I"OrUCase$(char)="O"OrUCase$(char)="U"Then
'itisavowel
EndIf->
2、更加簡練的方法：
->IfInStr("AaEeIiOoUu",char)Then
'itisavowel
EndIf->
同樣，通過單詞中沒有的字符作為分界符，使用InStr來檢查變量的內容。下面的例子檢查Word中是否包含一個季節的名字：1、普通的方法：
->IfLCase$(word)="winter"OrLCase$(word)="spring"OrLCase$(word)=_"summer"OrLCase$(word)="fall"Then
'itisaseason'sname
EndIf->
2、更加簡練的方法：
->IfInstr(";winter;spring;summer;fall;",";"&word&";")Then
'itisaseason'sname
EndIf->
有時候，甚至可以使用InStr來替代SelectCase代碼段，但一定要注意參數中的字符數目。下面的例子中，轉換數字0到9的相應英文名稱為阿拉伯數字：
1、普通的方法：
->SelectCaseLCase$(word)
Case"zero"
result=0
Case"one"
result=1
Case"two"
result=2
Case"three"
result=3
Case"four"
result=4
Case"five"
result=5
Case"six"
result=6
Case"seven"
result=7
Case"eight"
result=8
Case"nine"
result=9
EndSelect->
2、更加簡練的方法：
->result=InStr(";zero;;one;;;two;;;three;four;;five;;six;;;seven;eight;nine;",_
";"&LCase$(word)&";")6->
精用Boolean表達式，讓代碼再減肥 當設置基於表達式結果的Boolean型數值時，要避免使用多余的If/Then/Else語句結果。比如：
->IfSomeVar>SomeOtherVarThen
BoolVal=True
Else
BoolVal=False
EndIf->
上面這段代碼就很煩瑣，它們完全可以使用下面的一行代碼來替代：
->BoolVal=(SomeVar>SomeOtherVar)->
括號不是必須的，但可以增加可讀性。根據表達式中的操作數不同，後者比前者執行起來大約快50到85。後者中的括號對速度沒有影響。
有時，使用這個技術實現代碼的簡練並非很明顯。關鍵是要牢記：所有的比較操作結果或者是0（false），或者是－1（True）。所以，下面例子中的2段代碼是完全相同的，但是第2段要運行得快些：
1、傳統方法：
->IfSomeVar>SomeOtherVarThen
x=x 1
EndIf->
2、更簡練的方法
->x=x-(SomeVar>SomeOtherVar)->
函數名巧做局部變量 很多程序員都沒有認識到“在函數本身中使用函數名”的妙處，這就象對待一個局部變量一樣。應用這個技巧可以起到臨時變量的作用，有時還能加速程序運行。看看下面的代碼：
->FunctionMax(arr()AsLong)AsLong
DimresAsLong,iAsLong
res=arr(LBound(arr))
Fori=LBound(arr) 1ToUBound(arr)
Ifarr(i)>resThenres=arr(i)
Next
Max=res
EndFunction->
去掉res變量，使用函數名稱本身這個局部變量，可以使程序更加簡練：
->FunctionMax(arr()AsLong)AsLong
DimiAsLong
Max=arr(LBound(arr))
Fori=LBound(arr) 1ToUBound(arr)
Ifarr(i)>MaxThenMax=arr(i)
Next
EndFunction->->
