作者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