编程要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，为什么要用更多的代码呢？现在介绍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
    
    则只要：
    DesStr=RsAdo.GetString()