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 定义为变体