Re: [VB6 ] 利用遞迴產生數列
3n+1是一個經典題目，用VB寫還滿有趣的
這涉及一些麻煩的宣告，我寫過以後覺得這也不太容易，應該給你點提示
基本上程式會長得像這個樣子
' 命名：3n+1 === 3n plus 1 === 3np1
Function r3np1(n As Integer, k As Integer, ByRef stages() As Integer) As Integer
...
if ... then
...
else
if ... then
r3np1 = r3np1( ... )
else
r3np1 = r3np1( ... )
end if
end if
end function
sub r3np1main()
dim v(500) as integer
rctarget = r3np1(27, ?, ?)
...
end sub
想辦法把裡面的 ... 和 ? 填上去，就寫好了
--
Google 關鍵字 : MPFC-TCP / 殺人笑話 / 包租婆也有過當羅莉的時候
Youtube關鍵字 : 脫衫脫褲 / 傻蛋奧運 / 宗教審訊 / 買張床 / 單車超人 / 謳歌金錢
*美髮師登山隊 http://tinyurl.com/dm6lh3 *Ypres 1914 http://tinyurl.com/b432jb
[蒙帝派松正體中文計畫] http://www.youtube.com/user/JamesBondXD
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.120.168.228
推
08/14 19:30, , 1F
08/14 19:30, 1F
→
08/14 19:31, , 2F
08/14 19:31, 2F
→
08/14 20:54, , 3F
08/14 20:54, 3F
→
08/14 20:54, , 4F
08/14 20:54, 4F
討論串 (同標題文章)