返回列表 上一主題 發帖

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

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

本帖最後由 ivanyung 於 2010-8-20 21:36 編輯


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

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
複製代碼
竟然有一些字是出不到 ..............




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
複製代碼

        靜思自在 : 自己害自己,莫過於亂發脾氣。
返回列表 上一主題