题目
Do While (r 0) ←特别这个(r0)!m = n:n = r r = m Mod n Loop
Do While (r 0) ←特别这个(r0)!
m = n:n = r
r = m Mod n
Loop
Do While (r 0) ←特别这个(r0)!
m = n:n = r
r = m Mod n
Loop
提问时间:2021-03-27
答案
这是一个利用辗转相除求两个数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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
热门考点
- 1用黝黑滞留愚钝器宇禁锢轩昂犀利侏儒酒肆尴尬粗制滥造藏污纳垢郁郁寡欢鹤立鸡群正襟危坐颔首低眉诚惶诚恐
- 2抗体主要是由哪种细胞产生
- 3英译汉“You are more of a risk to him"和“Half price on all items"和“How much do these books co...
- 4妈妈买一台电脑付给营业员阿姨4000元,找回八十元,这台电脑多少钱?(用方程解答)
- 54分钟的演讲稿大约是几个字?
- 6一条绳子长8/3米,把它围成一个正方形,正方形的边长是()米.面积是()平方米
- 7某氧化剂[xo(oh)2]+能被Na2so3还原到较低价态,而na2so3被氧化成为NA2SO4.若5MOL亚硫酸根离子桥耗能还原2MOL[xo(oh)2]则反应后X元素在生成物中的化合价为多少?
- 8深深的懂得大道理 是什么成语
- 9Put in the missing Put these sentenses into the past
- 10小学语文同茫茫宇宙相比,地球是渺小的.它是一个半径只有六千三百多千米.这句话运用了那些说明方法?