VB代码优化，一行代码完成的技巧

现在所什么事情都是要讲效率，我们编程也要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，examda提示:为什么要用更多的代码呢？现在介绍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