VB超频快餐之九(转)

在VB6中，函数是能够返回数组对象的。这种情况下，我们不能象返回对象或者数值的其他函数一样使用函数名当做局部变量来存储中间结果，因此不得不生成一个临时局部数组，函数退出前再分配这个数组给函数名，就象下面的代码一样：

' 返回一个数组，其中含有N个随即元素

' 并且将平均值保存在AVG中

Function GetRandomArray(ByVal n As Long, avg As Single) As Single()

Dim i As Long, sum As Single

ReDim res(1 To n) As Single

' 以随机数填充数组，并计算总和

Randomize Timer

For i = 1 To n

res(i) = Rnd

sum = sum + res(i)

Next

' 赋值结果数组，计算平均值

GetRandomArray = res

avg = sum / n

End Function

难以置信的是，只需要简单地颠倒最后2条语句的顺序，就能使上面这段程序变得快些：

' ... ' 赋值结果数组，计算平均值

avg = sum / n

GetRandomArray = res

End Function

例如，在一个Pentium II 333MHz 机器上，当N＝100,000时，前段程序运行时间为0.72秒，后段程序则为0.66秒，前后相差10%。

原因何在呢？前段程序中，VB将拷贝res数组到GetRandomArray对应的结果中，当数组很大时，花费的时间是很长的。后段程序中，由于GetRandomArray = res是过程的最后一条语句，VB编译器就能确认res数组不会被再使用，因此将直接交换res和GetRandomArray的地址数值，从而节省了数组元素的物理拷贝操作以及随后的res数组释放操作。

总结如下：当编写返回数组的函数时，一定要将分配临时数组到函数名的语句放在最后，就是其后紧挨者Exit Function 或者End Function的位置。

深入使用LIKE操作符

在VB中，相对于本身的潜在功能，LIKE可能是最被忽视的一个操作符了。它的最基本用途是检查一个字符串与给定样式的匹配程度。比如，很容易检查一个产品ID号是否由一个字母以及3个数字组成：

If ProductID Like "[A-Za-z][0-9][0-9][0-9]" Then Print "OK"

' this is equivalment, because "#" stands for a digit

If ProductID Like "[A-Za-z]###" Then Print "OK"

除了上述基本功能，LIKE在其他情况下也非常有用。以下就一一列举：

比如，可以检查一个字符串只包含大写字母：

If Not ProductID Like "*[!A-Z]*" Then Print "OK"

同理，也可以检查一个字符串只包含数字：

If Not ProductID Like "*[!0-9]*" Then Print "OK"

下面的语句检查一个字符串只包含字母或者数字符：

If Not ProductID Like "*[!A-Za-z0-9]*" Then Print "OK"

下面的语句检查一个字符串是否为合法的VB变量名，就是说，开头是一个字母，接着跟随字母或数字符：

' VarName是被检查的字符串

If VarName like "[A-Za-z]*" And Not Mid$(VarName, 2) Like "*[!A-Z_a-z0-9]*" _

Then Print "OK"

下面的语句检查字符串是否至少包含2个空格（连续的或者间隔的）：

If TestString Like "* * *" Then Print "OK"

而下面的语句进一步确认2个空格是不连续的：

If TestString Like "* ?* *" Then Print "OK"

检查一个有符号整数是很复杂的事情，因为必须计算出前导符号并且计算好"#"符号的正确数目：

' NumValue是被检测的字符串

If NumValue Like "#" Or (Len(NumValue) > 1 And NumValue Like "[-+0-9]" & _

String$(Len(NumValue) - 1, "#")) Then Print "OK"[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/8781179/viewspace-925226/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/8781179/viewspace-925226/