VB 最大公约数和最小公倍数

时间：2013.09.05 发布人：lg448866
VB 最大公约数和最小公倍数

已解决问题

谷歌lg448866用户在2013.09.05提交了关于“战意VB 最大公约数和最小公倍数”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2024-09-12T00:55:52。.编写2个函数，分别求两个正整数的最大公约数和最小公倍数，用户任意输入两个数，采用函数嵌套调用，该函数将它们在窗体显示。
注意:要采用函数嵌套调用希望大家能够帮助她。

详细问题描述及疑问：.编写2个函数，分别求两个正整数的最大公约数和最小公倍数，用户任意输入两个数，采用函数嵌套调用，该函数将它们在窗体显示。
注意:要采用函数嵌套调用期待您的答案，感谢你,我会记得你对我的好的 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：5696482.JPG  

PrivateSubForm_Click()
DimAAsLong,BAsLong
A=Val(Inpu来自tBox("请输入第一个数:"))
B=Val(InputBox("请输入第二个数:"))
Print"两个数为:";A;B
Print"最大公约数为:";MaxGYS(A,B)
Print"最小公倍数为:";MinGBS(A,B)
EndSub

Rem求最大公约数
PrivateF田unctionMax配载养坐司GYS(AAsLong,BAsLong)
DimXAsLong,YAsLong,KAsLong
X=IIf(A>=B,A,B)
Y=IIf(A<=B,A,B)
Do
K=XModY:IfK=0The味善为被nExitDo
X准道注兵土名学氢愿响消=Y:Y=K
Loop
MaxGYS=Y
EndFunct问答ion

Rem求最小公倍数
PrivateFu曾必素精形愿根活夫市供nctionMinGBS(AAsLong,BAsLong)
MinGBS=A*B/MaxGYS(A,B)'使用函数套用
EndFunction