作者walume (哇!阿魯米)
看板Visual_Basic
標題[請益]用遞迴寫x^n和求x y的最大公約數
時間Wed May 18 01:26:03 2005
這是老師出的作業
我已經想了四天了
一點頭緒都沒有
哪位強者能給我點提示嗎...? 囧"
次方的我有想到用
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)
1F：推 Phill:Base 初始值設定為 1 218.168.176.33 05/18
2F：推 walume:初始值不是我設的val(text1.text)嗎..?不太懂@@"140.128.194.155 05/18
※ 編輯: walume 來自: 140.128.194.155 (05/18 09:56)
3F：推 walume:是在函數設定初始值為1嗎..?還是原本設定為1?@@"140.128.194.155 05/18
4F：推 sean25hong:我有寫過耶, 是用for...next檢查x,y除以他都 140.116.84.94 05/18
5F：→ sean25hong:整除的最大值 140.116.84.94 05/18