求最大公约数

Private Sub Form_Click()
    Dim N As Integer, M As Integer, G As Integer
    N = InputBox("输入 N ")
    M = InputBox("输入 M ")
    G = Gcd(N, M)
   Print N; " 和 "; M; " 的最大公约数是:"; G
End Sub
Private Function Gcd(ByVal A As Integer, ByVal B As Integer)
    Dim R As Integer
    R = A Mod B
    Do While R <> 0
        A = B
        B = R
        R = A Mod B
    Loop
    Gcd = B
End Function

第一次学习VB语言 老师布置给我们的作业就是“如何用VB语言编一个求最大公约数的程序”，开始很迷茫，但是经过老师的讲解和网上的帮助，让我学习了不少，也更加的体会到了VB程序语言的强大。今后，将更加好好的利用VB语言