VB程序 利用输入对话框输入两个正整数,求最大公约数.

Private Sub Command1_Click()
Dim m As Long,n As Long,r As Long,x As Long,y As Long
m = Val(InputBox("M=")):x = m
n = Val(InputBox("N=")):y = n
r = m Mod n
While r 0
m = n
n = r
r = m Mod n
Wend
MsgBox (x & " 和 " & y & " 的最大公约数是:" & n)
End Su