返回列表 上一主題 發帖

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

        靜思自在 : 閒人無樂趣，忙人無是非。
返回列表 上一主題