求两个整数的最大公约数分析：求最大公约数的算法思想：
（1）对于已知两数m，n，使得m>n；
（2）m除以n得余数r；
（3）若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；
（4）m←n，n←r，再重复执行(2)。
例如: 求 m="14" ,n="6" 的最大公约数.
M n r
14 6 2
6 2 0
请根据以上思路补充下面的程序代码：
Private Sub Command1_Click()
m = InputBox("m=")
n = InputBox("n=")
If m < n  Then  t =" m:" m =" n:" n = t
r = ________________
Do While (r <> 0)
m = n
n = r
r =" m" Mod n
Loop
Print "最大公约数=", n
End Sub