REPLICATE(ByVal value As String, ByVal count As Integer)
Posted on 2004-03-15 18:23 Dream 阅读(1048) 评论(3) 编辑 收藏 举报
不知道.NET有沒有下面這個功能的系統函數可用
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
