PTT數位生活區 / Visual_Basic

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

看板Visual_Basic作者 (哇!阿魯米)時間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)
推
218.168.176.33 05/18, , 1F
Base 初始值設定為 1
218.168.176.33 05/18, 1F
推
140.128.194.155 05/18, , 2F
初始值不是我設的val(text1.text)嗎..?不太懂@@"
140.128.194.155 05/18, 2F
※ 編輯: walume 來自: 140.128.194.155 (05/18 09:56)
推
140.128.194.155 05/18, , 3F
是在函數設定初始值為1嗎..?還是原本設定為1?@@"
140.128.194.155 05/18, 3F
推
140.116.84.94 05/18, , 4F
我有寫過耶, 是用for...next檢查x,y除以他都
140.116.84.94 05/18, 4F
→
140.116.84.94 05/18, , 5F
整除的最大值
140.116.84.94 05/18, 5F
‣ 更多 walume 的文章
文章代碼(AID): #12YYXDNs (Visual_Basic)
Visual_Basic 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 walume 的文章
文章代碼(AID): #12YYXDNs (Visual_Basic)