正在阅读：VB十七种可用一行代码完成的技巧VB十七种可用一行代码完成的技巧

2005-07-07 10:44 出处：作者：devil_xp 责任编辑：moningfeng

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)

键盘也能翻页，试试“← →”键

聚超值

热门排行