返回列表 上一主題 發帖

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

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
複製代碼
竟然有一些字是出不到 ..............




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
複製代碼
收藏 分享

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題