
VB中这个什么意思 Do While (r <> 0) ←特别这个(r<>0)!! m = n: n = r r = m Mod n Loop
DoWhile(r<>0)←特别这个(r<>0)!!m=n:n=rr=mModnLoop...
Do While (r <> 0) ←特别这个(r<>0)!!
m = n: n = r
r = m Mod n
Loop 展开
m = n: n = r
r = m Mod n
Loop 展开
展开全部
这是一个利用辗转相除求两个数m和n最大公约数的程序中的一段,其中这一段是最中心的算法。
完整的求m和n的最大大约数的程序如下:
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
Dim r As Integer
m = InputBox("请输入一个正整数m:")
n = InputBox("请输入一个正整数n:")
If m < n Then
temp = m
m = n
n = temp
End If
r = m Mod n
Do While r <> 0 'r = m Mod n,即两数相除的余数,余数为0时将不再循环,不为0时一起除下去
m = n
n = r
r = m Mod n
Loop
Print n
End Sub
完整的求m和n的最大大约数的程序如下:
Private Sub Command1_Click()
Dim m As Integer
Dim n As Integer
Dim r As Integer
m = InputBox("请输入一个正整数m:")
n = InputBox("请输入一个正整数n:")
If m < n Then
temp = m
m = n
n = temp
End If
r = m Mod n
Do While r <> 0 'r = m Mod n,即两数相除的余数,余数为0时将不再循环,不为0时一起除下去
m = n
n = r
r = m Mod n
Loop
Print n
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询