m,n之间最大公约数 我爱死你了!!!

来源：百度知道 编辑：UC知道 时间：2024/06/20 12:57:39
Dim m As Long, n As Long, p As Long
m = Val(Text1.Text)
n = Val(Text2.Text)
Do While m Mod n <> 0
p = m Mod n
m = n
n = p
Loop
Print p
--------------终于弄懂了!!!我太爱死你了!!!----------------------------------------------------------------------------------------
完了
如果输入两个数相等
最大公约数是0?
这个问题怎么解决?

在do前面加上一行：if m=n then p=m:goto 100，在LOOP后面加一行：100

Do While n <> 0
p = m Mod n
m = n
n = p
Loop
print m

用
If的语句
if ××=0
then:(××××) 你想要的语句
大致就是第一个那个说的