返回列表 上一主題 發帖

設定重複輸出一個字串 (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
複製代碼

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題