程序设计题（10分）

 输入任意两个正整数m和n，求这两个数的最大公约数（单击窗体执行程序）。

 

Private sub Form_click( )

Dim m%，n％，t％，r%

m=Inputbox(“输入m”)        (1’)

n= Inputbox(“输入m”)        (1’)

If  m<n then                (1’)

  t=m：m=n：n=t            (1’)

End If

r=m mod n                  (1’)

Do While r<>0              (1’)

  m=n                      (1’)

  n=r                       (1’)

 r=m mod n                 (1’)

Loop

Print “最大公约数为：”；n    (1’)

End Sub