作者neplayer (neplayer)
看板Visual_Basic
标题Re: [请益]用递回写x^n和求x y的最大公约数
时间Wed May 18 11:32:26 2005
※ 引述《fumizuki (小狮)》之铭言：
: Function Power(Base As Integer, Exponent As Integer)
: If Exponent = 0 Then
: Power = 1
: Else
: Power = Base * Power(Base, Exponent - 1)
: End If
: End Function
: 这是你的，你没有传回值，结果当然是零啦。
: 至於公因数嘛，实在没办法...
: 我学 vb 的时候鲜少见到递回的范例，所以不太会写递回/.\
: 想了半天想不出个流程来:~~
回原po
gcd的程式应该google一下就一整票吧
想一下辗转相除法
function gcd(a as integer, b as integer)
if b=0
gcd=a
else
gcd=gcd(b,a mod b)
end
--
mod应该是求余数的没错吧?
第一次用vb写递回XD
应该可以跑....吧
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.73.191.98
※ 编辑: neplayer 来自: 211.73.191.98 (05/18 11:33)
1F：推 walume:GCD的我昨天已经写出来罗@@" 感谢帮忙^^140.128.194.155 05/18
2F：推 fumizuki:不能跑，因为没有end if 没有end function:P 61.222.155.162 05/18
3F：推 fumizuki:试过，没问题，这程式ok...cc 61.222.155.162 05/18
4F：推 neplayer:副板主vb这麽熟怎麽不去小补一下递回XDD 211.73.191.98 05/18
5F：推 fumizuki:我一直都是靠范例恶补的XD 61.222.155.162 05/18