用VBA编写两个数最大公约数的函数
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/10/01 21:36:05
用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
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的最大公约数