作业帮 > 综合 > 作业

编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢!

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/05 11:55:08
编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢!
'最大公约数
Function getGcd(num1 As Long, num2 As Long) As Long
Dim i As Long
For i = IIf(num1 < num2, num1, num2) To 1 Step -1
If num1 Mod i = 0 And num2 Mod i = 0 Then
getGcd = i
Exit For
End If
Next i
End Function
'最小公倍数
Function getLcm(num1 As Long, num2 As Long) As Long
Dim temp As Long
temp = getGcd(num1, num2)
getLcm = num1 * num2 / temp
End Function