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