用VBA编写两个数最大公约数的函数

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/12 02:06:30

用VBA编写两个数最大公约数的函数
跪求急用

Sub test()
a = Application.InputBox("输入第一个自然数:",Type:=1)
b = Application.InputBox("输入第一个自然数:",Type:=1)
If a > b Then
For i = b To 2 Step -1
If a Mod i = 0 And b Mod i = 0 Then
MsgBox a & " 和 " & b & " 的最大公约数为：" & i
Exit Sub
End If
Next
ElseIf b > a Then
For i = a To 2 Step -1
If a Mod i = 0 And b Mod i = 0 Then
MsgBox a & " 和 " & b & " 的最大公约数为：" & i
Exit Sub
End If
Next
Else
MsgBox a & "和" & b & " 的最大公约数为：" & a
End If
End Su

编写函数MaxY,求两个数的最大公约数.用主函数调用该函数,并输出结果,两个数由 C语言编写两个数的最大公约数编写两个函数,分别求出两个数的最大公约数和最小公倍数,用主函数调用这两个函数,并输出结果编写函数过程GDC求两个数的最大公约数,调用此函数试求1260,198,72三个数的最大公约数（VB语言）编写一个函数,求两个正整数的最大公约数编写函数,分别求两个整数的最大公约数和最小公倍数. 编写两个函数,分别求两个正数的最大公约数和最小公倍数,在主函数中输入两个数,然后调用这两个函数计算并输出结果输入两个整数,编写两个函数,分别求这两个整数的最大公约数和最小公倍数,用主函数调用这两个函数,并输用C语言编写一个可以求输入的两个数的最大公约数和最小公倍数的程序. vb分别用子过程和子函数编写求两个数的最大公约数（算法用辗转相减法）编写一个JAVA应用程序,计算两个正整数的最大公约数和最小公倍数,要求从键盘输入两个数编写一个函数功能是求两个正整数m和n的最大公约数