設定重複輸出一個字串 (VB.net 版)

ivanyung

做了兩個古怪的小程式...............

Recursion

1.     Function ReptStr(ByVal MyChar As String, ByVal MyNo As Integer) As String
   
2.         If MyNo > 0 Then ReptStr = ReptStr(MyChar, MyNo - 1) & MyChar
   
3.     End Function

複製代碼

竟然有一些字是出不到 ..............

下載 (4.72 KB)

2010-8-20 21:35

Array method.

1.    Function ReptStr2(ByVal MyChar As String, ByVal MyNo As Integer) As String
   
2.         Dim MyArr() As String
   
3.         ReDim MyArr(MyNo)
   
4.         ReptStr2 = Join(MyArr, MyChar)
   
5.     End Function

複製代碼