Private Function REPLICATE(ByVal value As String, ByVal count As Integer) As String
Dim s As StringBuilder = New StringBuilder
For i As Integer = 1 To count
s.Append(value)
Next
REPLICATE = s.ToString
End Function
Private Function REPLICATE(ByVal value As String, ByVal count As Integer) As String
Dim s As StringBuilder = New StringBuilder
For i As Integer = 1 To count
s.Append(value)
Next
REPLICATE = s.ToString
End Function
相关文章：