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"
最后一个例子是：检测NumValue是否包含一个有符号的十进制数值。这种情况下，我们必须要确定存在一个前导符号以及只有一个十进制分隔符，并且所有其他字符都是数字符：
' NumValue是被检测的字符串
If NumValue Like "#" Or (Len(NumValue) > 1 And Left$(NumValue, _
1) Like "[- .0-9]" And Not Mid$(NumValue, 2) Like "*[!.0-9]*" And Not _
NumValue Like "*.*.*" ) Then Print "OK"
创建任意长度重复字符串的简洁方法
String$函数只能重复复制单字符，当需要重复复制2个或多个字符时，就需要一个循环。看起来是否很麻烦？然而，使用以下的函数就能解决这个问题。基本思路是：建立一个空格字符串，其长度为要重复复制的数目，然后替换每一个空格为要复制的字符串：
Function ReplicateString(Source As String, Times As Long) As String
ReplicateString = Replace$(Space$(Times), " ", Source)
End Function
但是请注意：根据字符串的长度以及重复的数目，这个方法也许比传统的循环方法要慢些。
另辟蹊径处理字符串中的字符：字节数组法
当要处理字符串中的每一个字符时，可以将字符串赋值到一个byte数组中进行操作。要记住：每一个Unicode字符对应双字节。这种方法通常要快许多，因为节省了大量的Mid$函数操作以及大量的临时字符串空间。下面的代码是统计字符串中空格数目的最快方法
Dim b() as Byte, count As Integer
b() = source$
For i = 0 to UBound(b) Step LenB("A")
If b(i) = 32 Then count = count 1
Next
请注意上面代码中LenB()函数的特殊用法：在VB4（32位）、VB5和VB6中它返回数值2, 在VB4（16位）中返回数值1。因此，我们就可以使用同一代码段，而无需#If编译指令。
快速清除数组部分内容
清除动态数组的最快方法是使用ReDim，清除静态数组则是使用删除。但是如果只想清除数组的一部分内容，怎么办呢？看上去似乎只能使用For-Next循环了。
如果处理的是数字数组，有一个较快的方法。它基于ZeroMemory API函数，正如函数名所示，它能将一块内存区域填充为0。看看怎么应用这个函数来清除一个Long类型数组的一部分内容：
Private Declare Sub ZeroMemory Lib "kernel32" Alias "RtlZeroMemory" (dest As _
Any, ByVal Bytes As Long)
'定义数组，填充数据
Dim a(1000) As Long
For i = 1 To UBound(a)
a(i) = i
Next
'从a(200)开始清除100个元素内容
ZeroMemory a(200), 100 * Len(a(1))
请注意上述代码中清除长度的表示方法，使用Len()函数保证了当数组类型改变时代码仍然有效。
快速初始化Variant和String类型数组
VB中没有提供定义数组并同时初始化其内容的方法，所以大多数情况下，必须单独地设置每一个元素，就象下面一样：
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
