VB十七種可用一行代碼完成的技巧

編程要講效率，盡管現(xiàn)在的計(jì)算機(jī)，速度是不成問(wèn)題，但是，如果一行代碼能完成，為什么要用更多的代碼呢？現(xiàn)在介紹VB中一些可用一行代碼完成的技巧。
    1、下列代碼，則是對(duì)邏輯運(yùn)算不清楚造成
    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、字串有效性檢測(cè)：
    If IsNull(StrOrg) Or StrOrg="" then
    可以：
    If Len(StrOrg & "")<>0 then
    5、字串重復(fù)次數(shù)
    RepeatCount=Ubound(Split(StrOrg,StrFind))
    同樣，如果要對(duì)字串有效性判斷：
    RepeatCount=Iif((Len(StrOrg & "")=0), 0, Ubound(Split(StrOrg,StrFind))
    6、有時(shí)需要判斷字串?dāng)?shù)組中是否有這一元素，這時(shí)不用數(shù)組，而用分隔符字串,于是：
    If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then
    則表明，此元素不存在。
    7、對(duì)數(shù)組初始化,用變體，這樣，也是一行語(yǔ)句,如：
    IntArr=Array(12,28,29,30,31,52,24,60)
    注意，此時(shí)需要用變量后綴。上面代碼，如要定義為長(zhǎng)整型，則
    IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&)
    要將IntArr 定義為變體