VB十七种可用一行代码完成的技巧

文章作者 100test 发表时间 2007:09:15 12:15:20
来源 100Test.Com百考试题网

　　编程要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，为什么要用更多的代码呢？现在介绍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 定义为变体