[請益]用遞迴寫x^n和求x y的最大公約數

看板Visual_Basic作者walume (哇!阿魯米)時間19年前 (2005/05/18 01:22)推噓4(4推 0噓 1→)

留言5則, 3人參與討論串1/4 (看更多)

這是老師出的作業我已經想了四天了一點頭緒都沒有哪位強者能給我點提示嗎...? 囧" 次方的我有想到用 Public x As Integer, y As Integer Private Sub Command1_Click() x = Val(Text1.Text) y = Val(Text2.Text) Call Power(x, y) Label4.Caption = x End Sub Public Function Power(Base As Integer, Exponent As Integer) If Exponent = 0 Then Base = 1 Else Base = Base * Power(Base, Exponent - 1) End If End Function 我輸入(3,3)的話 power最後所傳回x的值為0 不是應該base = 3 * 3 * 3 * 1 = 27 嗎.......????? 最大公約數的話老師有提示用MOD 可是我一點頭緒都沒有... 今天下午就要交了拜託給我一點提示吧..m(_ _)m -- http://www.wretch.cc/blog/walume 黑特日記髒話不忌 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.128.194.155 ※ 編輯: walume 來自: 140.128.194.155 (05/18 02:26)

推

Phill

218.168.176.33 05/18, , 1^F

218.168.176.33 05/18, 1^F

推

walume

140.128.194.155 05/18, , 2^F

140.128.194.155 05/18, 2^F

※ 編輯: walume 來自: 140.128.194.155 (05/18 09:56)

推

walume

140.128.194.155 05/18, , 3^F