作者MOONRAKER (㊣八点了！全体集合！)
看板Visual_Basic
标题Re: [VB6 ] 利用递回产生数列
时间Fri Aug 14 18:04:20 2009
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
[蒙帝派松正体中文计画] https://www.youtube.com/user/JamesBondXD
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.120.168.228
1F：推 AA64:谢谢m大 不过我还是不太懂 那个2n和2n+1只是偶数跟奇数 08/14 19:30
2F：→ AA64:应该不需要再多一个变数n吧 麻烦你了 08/14 19:31
3F：→ MOONRAKER:这个n不是算式中的n 我可以告诉你k是用来计算步数的 08/14 20:54
4F：→ MOONRAKER:判断是否偶数用mod就可以了 这个n是主要参数 08/14 20:54