中科新闻网夜校 上海:刚学vb，有问题请教
来源：百度文库 编辑：中科新闻网 时间：2024/04/28 05:06:20
Private Sub Form_Click()
m = 2460: n = 345
Dim s As Single
Do While (n <> 0)
s = m Mod n
m = n
n = s
Loop
Print "2460和345的最大公约数=" & m
End Sub
这段程序中，请问
“Do While (n <> 0)
s = m Mod n
m = n
n = s”
一段是什么意思？怎么解释？谢谢高手回答。
m = 2460: n = 345
Dim s As Single
Do While (n <> 0)
s = m Mod n
m = n
n = s
Loop
Print "2460和345的最大公约数=" & m
End Sub
这段程序中，请问
“Do While (n <> 0)
s = m Mod n
m = n
n = s”
一段是什么意思？怎么解释？谢谢高手回答。
Do While (n <> 0)
当N的值不等于0的时候执行
s = m Mod n
让S=M除以N后的余数
m = n
把N的值给M
n = s
把S的值给N
返回循环,如果N=0 停止循环
Do While (n <> 0)
s = m Mod n
m = n
n = s
Loop
是一段循环，就是通常说的当型循环。当满足条件的时候执行此循环体内部的代码。