vba編程基礎知識：vb編程入門代碼大全

1、下列代碼，則是對邏輯運算不清楚造成
If A=true Then
C= Not B
Else
C= B
End If
　可以：
C=A XOR B
2、如果加上下列代碼：
If C=true then
D=28
Else
D=29
End IF
D=Iif((A XOR B),28,29)
3、布爾賦值，常被人忽略,如：
If A= 13 then
B=True
Else
B=False
End If
　可以：
B = A = 13
　或者：
B = (A = 13)
　我更喜歡用後者，這樣代碼易於看懂。
4、字串有效性檢測：
If IsNull(StrOrg) or StrOrg=”” then
　可以：
If Len(StrOrg & “”)<>0 then
5、字串重複次數
RepeatCount=Ubound(Split(StrOrg,StrFind))
　同樣，如果要對字串有效性判斷：
RepeatCount=Iif((Len(StrOrg & “”)=0), 0, Ubound(Split(StrOrg,StrFind))
6、有時需要判斷字串數組中是否有這一元素，這時最好不用數組，而用分隔符字串,於是：
If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then
　則表明，此元素不存在。
7、對數組初始化,最好用變體，這樣，也是一行語句,如：
IntArr=Array(12,28,29,30,31,52,24,60)
　注意，此時需要用變量後綴。上面代碼，如要定義為長整型，則
IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&)
　要將IntArr 定義為變體
8、判斷大小：
IntMax = Iif((IntA > IntB), IntA, IntB)
IntMin = Iif((IntA < IntB), IntA, IntB) 9、按索引的Select Case Function GetChoice(Ind As Integer) GetChoice = Choose(Ind, “Speedy”, “United”, “Federal”) End Function 10、按表達式的Select Case(這種轉換要求不能有Case Else的才可以這樣，否則會出錯) Function MatchUp (CityName As String) Matchup =tch(CityName = “London”, “English”, CityName _ = “Rome”, “Italian”, CityName = “Paris”, “French”) End Function 11、使用Iif，前面已有 Function CheckIt (TestMe As Integer) CheckIt = IIf(TestMe > 1000, “Large”, “Small”)
End Function
12、字串動態數組是否已初始化
If Len(Join(StrArr))=0 then
　字串動態數組未初始化。
13、指定只讀CombBox的當前值，如果能確認這個值就在其中，一定不會錯，則：
Combbox=CurValue
　注意，不可以寫成：
Combbox.text=CurValue
　前者實際是寫 _default 這個屬性，而後者則是寫Text 因為只讀，則會導致錯誤
14、如果有下列代碼：
Select Case CombBox.text
Case “London”
Call FuncStrLang(3)
Case “Rome”
Call FuncStrLang(5)
……
End Select
　則可以用ItemData屬性,即：
“London” 的 Itemdata=3
“Rome” 的 Itemdata=5
　於是：
Call FuncStrLang(CombBox.ItenData)
15、如果有下列代碼：
Select Case CombBox.text
Case “London”
Call ClsCity.CityIntr_London
Case “Rome”
Call ClsCity.CityIntr_Rome
……
End Select
　只要：
CallByName ClsCity, “CityIntr_” & CombBox.text, vbMethod
16、複製數組到另一變量中：
Dim iOrgArr(30) as Integer
Dim iDesArr as Variant
……
iDesArr = iOrgArr
　即主變體直接取數組指針，則所有元素都複製了過去。
17、如果有下列代碼：
Do While Not RsAdo.Eof
If len(DesStr)<>0 then
DesStr=DesStr & VbTab
End if
DesStr=RsAdo!Rec_id
RsAdo.MoveNext
loop