標題: 設定重複輸出一個字串 (VB.net 版) [打印本頁]

---

作者: ivanyung    時間: 2010-8-20 21:25     標題: 設定重複輸出一個字串 (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

複製代碼

竟然有一些字是出不到 ..............
[attach]2511[/attach]



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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)