Question

VBA编程：输入两个正整数m和n,求其最大公约数和最小公倍数

网上搜到的没有VBA的，文科生计算机无力啊，帮帮忙！

Answer 1

借鉴下兰版的代码

Sub 最小公倍数和最大公约数()
    Dim m As Integer, n As Integer
    Dim m1 As Integer, n1 As Integer
    Dim t As Integer
    m = InputBox("输入自然数m：")
    n = InputBox("输入自然数n：")
    m1 = m
    n1 = n
    If m1 < n1 Then
        m1 = n
        n1 = m '交换m和n的值
    End If
    Do
        r = m1 Mod n1
        If r = 0 Then Exit Do
        m1 = n1
        n1 = r
    Loop
    str1 = m & "," & n & "的最大公约数=" & n1 & vbCrLf
    str1 = str1 & "最小公倍数=" & m * n / n1
    MsgBox str1
End Sub