最簡單的解決方案是直接使用&連接：
復制代碼代碼如下:
begin = Timer
For i = 1 To 100000
str = str & CStr(i)
Next
WScript.Echo str
finish = Timer
WScript.Echo finish - begin
但是這個程序在我電腦上需要運行60.648秒，效率太低。換一種方案，用數組來解決：
復制代碼代碼如下:
begin = Timer
Dim arr(100000)
For i = 1 To 100000
arr(i) = i
Next
str = Join(arr, "")
WScript.Echo str
finish = Timer
WScript.Echo finish - begin
這次只用了0.742秒，大概快了60倍。在這個問題中數組的大小是可以事先確定的，如果不能預知數組的大小就必須使用動態數組。我水平比較低，不會用動態數組，有沒有更簡單的方法呢？答案是有，那就是字典：
復制代碼代碼如下:
begin = Timer
Set oDic = CreateObject("scripting.dictionary")
For i = 1 To 100000
oDic.Add i, CStr(i)
Next
str = Join(oDic.Items, "")
WScript.Echo str
finish = Timer
WScript.Echo finish - begin
運行時間為1.593，是數組的2倍，但是還是比&快多了，而且用起來比數組方便。
總結：&連接符號的效率是比較低的，在連接少量字符串時可以使用，但是在大量字符串連接時應該使用Join函數+數組。
原文：http://demon.tw/programming/vbs-string-concatenation.html
