返回列表 上一主題 發帖

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

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題