现在所什么事情都是要讲效率，我们编程也要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，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
责任编辑：小草
