编写一个求最大公约数的函数过程,使用传值调用Function过程,求两个整数m和n的最大公约数和最小公倍数.

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/04/29 06:09:53

编写一个求最大公约数的函数过程,使用传值调用Function过程,求两个整数m和n的最大公约数和最小公倍数.
（最小公倍数= (n * m) / 最大公约数）
要求：采用辗转相除法求最大公约数.

EXCEL VBA 求公约数函数过程如下：
Public Function GYS(M As Integer,N As Integer) As Integer
Dim YS,YS1,MX,MN
MX = WorksheetFunction.Max(M,N)
MN = WorksheetFunction.Min(M,N)
YS = MX Mod MN
Do Until YS = 0
YS1 = MN Mod YS
MN = YS
If YS1 = 0 Then GYS = YS
YS = YS1
Loop
End Function
再问：这是VB编程？
再答：这是EXCEL的VBA代码，在EXCEL工作表里能调用这个函数。看错分类了，以为是VBA，Sorry。
再问：你能用VB编一下吗？
再答：电脑没装VB。大致思路：设计一个循环：用大数除以小数，如果余数为0则退出循环。否则用小数除以余数，如果余数等于0，那么公约数为大数除以小数的余数。如果不为0，那么将余数赋值给小数，再继续用小数除以余数。