大家都知道，;操作符的执行速度是相当慢的，特别是处理长字符串时。当必须重复地在同一变量上附加字符时，有一个基于Mid$命令的技巧可以使用。基本思路就是：预留一个足够长的空间存放操作的结果。下面是应用这个技术的一个例子。 假设要建立一个字符串，它要附加从1开始的10000个整数："1 2 3 4 5 6 7 ... 9999 10000"。下面是最简单的实现代码： res = "" For i = 1 to 10000: res = res ; Str(i): Next
Dim res As String Dim i As Long Dim index As Long '预留足够长的缓冲空间 res = Space(90000)
'指针变量，指出在哪里插入字符串 index = 1 '循环开始 For i = 1 to 10000 substr = Str(i) length = Len(substr) '填充字符串的相应区间段数值 Mid$(res, index, length) = substr '调整指针变量 index = index + length Next '删除多余字符 res = Left$(res, index - 1)
