VB：17种可用1行代码完成的技巧

'作者:CSDN 许仙
'Homepage : jjweb.126.com
'MSN :Coderxu#hotmail.com
'QQ:19030300
'转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果

'不知道哪位牛人写的 以前在www.gameres.com看到过这个帖子,今天突然想到一个经典语句就又给翻了出来,的确经典啊.. 好东西当然要存档了 :)
来自：太平洋软件资讯      整理：Phenee

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

10、按表达式的Select Case(这种转换要求不能有Case Else的才可以这样，否则会出错)

Function MatchUp (CityName As String)
   Matchup =tch(CityName = "London", "English", CityName _
   = "Rome", "Italian", CityName = "Paris", "French")
End Function

11、使用Iif，前面已有

Function CheckIt (TestMe As Integer)
   CheckIt = IIf(TestMe > 1000, "Large", "Small")
End Function

12、字串动态数组是否已初始化

If Len(Join(StrArr))=0 then

　字串动态数组未初始化。

13、指定只读CombBox的当前值，如果能确认这个值就在其中，一定不会错，则：

Combbox=CurValue

　注意，不可以写成：

Combbox.text=CurValue

　前者实际是写 _default 这个属性，而后者则是写Text 因为只读，则会导致错误

14、如果有下列代码：

Select Case CombBox.text
   Case "London"
      Call FuncStrLang(3)
   Case "Rome"
      Call FuncStrLang(5)
   ......
End Select

　则可以用ItemData属性,即：

"London" 的 Itemdata=3
"Rome" 的 Itemdata=5

　于是：

Call FuncStrLang(CombBox.ItenData)

15、如果有下列代码：

Select Case CombBox.text
   Case "London"
      Call ClsCity.CityIntr_London
   Case "Rome"
      Call ClsCity.CityIntr_Rome
   ......
End Select

　只要：

CallByName ClsCity, "CityIntr_" & CombBox.text, vbMethod

16、复制数组到另一变量中：

Dim iOrgArr(30) as Integer
Dim iDesArr as Variant
......
iDesArr = iOrgArr

　即主变体直接取数组指针，则所有元素都复制了过去。

17、如果有下列代码：

Do While Not RsAdo.Eof
   If len(DesStr)<>0 then
      DesStr=DesStr & VbTab
   End if
   DesStr=RsAdo!Rec_id
   RsAdo.MoveNext
Loop

　则只要：

DesStr=RsAdo.GetString()