VB代碼優(yōu)化，一行代碼完成的技巧

現(xiàn)在所什么事情都是要講效率，我們編程也要講效率，盡管現(xiàn)在的計算機，速度是不成問題，但是，如果一行代碼能完成，examda提示:為什么要用更多的代碼呢？現(xiàn)在介紹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、字串重復次數(shù)
    RepeatCount=Ubound(Split(StrOrg,StrFind))
    同樣，如果要對字串有效性判斷：
    RepeatCount=Iif((Len(StrOrg & \"\")=0), 0, Ubound(Split(StrOrg,StrFind))
    6、有時需要判斷字串數(shù)組中是否有這一元素，這時不用數(shù)組，而用分隔符字串,于是：
    If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then
    則表明，此元素不存在。
    7、對數(shù)組初始化,用變體，這樣，也是一行語句,如：
    IntArr=Array(12,28,29,30,31,52,24,60)
    注意，此時需要用變量后綴。上面代碼，如要定義為長整型，則
    IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&)
    要將IntArr 定義為變體
    8、判斷大?。?BR>    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