Repeat a string: Difference between revisions

→‎{{header|VBA}}: a correction
m (→‎{{header|VBA}}: a correction)
(→‎{{header|VBA}}: a correction)
Line 2,141:
<br>'''Repeat a string'''<br>
<lang VBA>Public Function RepeatStr(aString As String, aNumber As Integer) As String
Dim bString As String
bString = aString""
For i = 21 To aNumber
If aNumber > 1 Then
bString = bString & aString
For i = 2 To aNumber
Next i
bString = bString & aString
RepeatStr = bString
Next i
End If
RepeatStr = bString
End Function
 
1,392

edits