复制字符串中的字符

FillString函数有两个参数，一个是用于重复填充的字符，另一个是填充字符串的长度。然后返回填充的字符串，重复次数由填充的字符数和填充字符串的长度决定。

这个函数构建一个循环，循环的次数取决于所需的字符串长度。循环步长由参数值的长度决定(即用于重复填充的子字符串)。该函数将参数值作为工作字符串，并在重复后根据所需长度将其截断:

私有函数FillString(字符串形式的ByVal值，_

ByValStringLength为整数)

作为字符串

将结构标注为字符串

Dim intLoopCount为整数

对于intLoopCount = 1到StringLength步长Len(值)

strWork = strWork & Value

然后

FillString = Left(strWork，StringLength)

结束功能

如果参数值为123，参数StringLength为8，则调用此函数后返回值为12312312。

如果你的程序需要生成测试数据或者随机数据，那么FillString函数就很有用。但是，请注意，这个函数不是针对大字符串优化的。当字符数少于5000时使用。