FillString函數(shù)有兩個(gè)參數(shù)，一個(gè)是用來(lái)重復(fù)填充的字符，另一個(gè)是填充后的字符串長(zhǎng)度。然后它返回填充后的字符串，重復(fù)次數(shù)由填充字符的個(gè)數(shù)和填充后字符串長(zhǎng)度決定。
該函數(shù)建立一個(gè)循環(huán)，循環(huán)次數(shù)基于所要求的字符串長(zhǎng)度。循環(huán)步長(zhǎng)有參數(shù)Value（即用來(lái)重復(fù)填充的子字符串）的長(zhǎng)度決定。該函數(shù)把參數(shù)Value作為工作字符串，重復(fù)后按所要求的長(zhǎng)度適當(dāng)截尾：
Private Function FillString(ByVal Value As String, _
ByValStringLength As Integer)
As String
Dim strWork As String
Dim intLoopCount As Integer
For intLoopCount = 1 To StringLength Step Len(Value)
strWork = strWork & Value
Next
FillString = Left(strWork, StringLength)
End Function
如果參數(shù)value為123，參數(shù)StringLength（字符串長(zhǎng)度）為8，則調(diào)用該函數(shù)后的返回值為12312312。
如果你的程序需要產(chǎn)生測(cè)試數(shù)據(jù)或者隨機(jī)數(shù)據(jù)，那么FillString函數(shù)是有些作用的。不過(guò)，請(qǐng)注意，對(duì)大的字符串，本函數(shù)并沒(méi)有優(yōu)化。它最好用于字符數(shù)少于5000的情況。
