vb程序求M，N的最大公约数，帮解释其中的一些东西～

来源：百度知道 编辑：UC知道 时间：2024/05/23 17:36:56
Private Sub Command1_Click()
Dim m As Integer, n As Integer, r As Integer
m = Text1.Text
n = Text2.Text
Do
r = m Mod n
m = n
n = r
Loop Until r = 0
Text3.Text = m
End Sub
其中m=n
n=r
是什么意思啊 ～谢了 啊

解释一下这个算法的原理吧：
已知m>n，设：
m=n*k+r(0<=r<=n)
说明：
m是n的k0倍还多r ，那么m和n的最大公约数与n和r的最大公约数相同。若r＝0，则n就是m和n的最大公约数；若r不等于0，则对n和r重复上述过程，直到r＝0为止。