FillString函數有兩個參數，一個是用來重復填充的字符，另一個是填充後的字符串長度。然後它返回填充後的字符串，重復次數由填充字符的個數和填充後字符串長度決定。
該函數建立一個循環，循環次數基於所要求的字符串長度。循環步長有參數Value（即用來重復填充的子字符串）的長度決定。該函數把參數Value作為工作字符串，重復後按所要求的長度適當截尾：
PrivateFunctionFillString(ByValValueAsString,_
ByValStringLengthAsInteger)
AsString
DimstrWorkAsString
DimintLoopCountAsInteger
ForintLoopCount=1ToStringLengthStepLen(Value)
strWork=strWork&Value
Next
FillString=Left(strWork,StringLength)
EndFunction
如果參數value為123，參數StringLength（字符串長度）為8，則調用該函數後的返回值為12312312。
如果你的程序需要產生測試數據或者隨機數據，那麼FillString函數是有些作用的。不過，請注意，對大的字符串，本函數並沒有優化。它最好用於字符數少於5000的情況。->
