作者fumizuki (小狮)
看板Visual_Basic
标题Re: [请益]用递回写x^n和求x y的最大公约数
时间Wed May 18 11:03:43 2005
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 的时候鲜少见到递回的范例，所以不太会写递回/.\
想了半天想不出个流程来:~~
--
VB 程式设计 仓木麻衣 PTT 星爷板 行列输入法
======================================================
Visual_Basic MaiKuraki Stephen Array
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.222.155.162
1F：→ walume:没有传回值..那要怎麽传..?@@"140.128.194.155 05/18