String$函數(shù)只能重復(fù)復(fù)制單字符,當(dāng)需要重復(fù)復(fù)制2個(gè)或多個(gè)字符時(shí),就需要一個(gè)循環(huán)??雌饋硎欠窈苈闊??然而,使用以下的函數(shù)就能解決這個(gè)問題?;舅悸肥牵航⒁粋€(gè)空格字符串,其長(zhǎng)度為要重復(fù)復(fù)制的數(shù)目,然后替換每一個(gè)空格為要復(fù)制的字符串:
Function ReplicateString(Source As String, Times As Long) As String
ReplicateString = Replace$(Space$(Times), " ", Source)
End Function
但是請(qǐng)注意:根據(jù)字符串的長(zhǎng)度以及重復(fù)的數(shù)目,這個(gè)方法也許比傳統(tǒng)的循環(huán)方法要慢些。
Function ReplicateString(Source As String, Times As Long) As String
ReplicateString = Replace$(Space$(Times), " ", Source)
End Function
但是請(qǐng)注意:根據(jù)字符串的長(zhǎng)度以及重復(fù)的數(shù)目,這個(gè)方法也許比傳統(tǒng)的循環(huán)方法要慢些。