用VB编程,求m,n的最大公约数.要求:(1)m除以n的余数r.(2)若r=0,则n为要求的最大公约数,算法结束,否则执行步骤(3).(3)n——>m,r——>n,再转到步骤(1)执行.我写的代码是这样的,请问有
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/11 15:34:32
![用VB编程,求m,n的最大公约数.要求:(1)m除以n的余数r.(2)若r=0,则n为要求的最大公约数,算法结束,否则执行步骤(3).(3)n——>m,r——>n,再转到步骤(1)执行.我写的代码是这样的,请问有](/uploads/image/z/2816429-5-9.jpg?t=%E7%94%A8VB%E7%BC%96%E7%A8%8B%2C%E6%B1%82m%2Cn%E7%9A%84%E6%9C%80%E5%A4%A7%E5%85%AC%E7%BA%A6%E6%95%B0.%E8%A6%81%E6%B1%82%EF%BC%9A%EF%BC%881%EF%BC%89m%E9%99%A4%E4%BB%A5n%E7%9A%84%E4%BD%99%E6%95%B0r.%EF%BC%882%EF%BC%89%E8%8B%A5r%3D0%2C%E5%88%99n%E4%B8%BA%E8%A6%81%E6%B1%82%E7%9A%84%E6%9C%80%E5%A4%A7%E5%85%AC%E7%BA%A6%E6%95%B0%2C%E7%AE%97%E6%B3%95%E7%BB%93%E6%9D%9F%2C%E5%90%A6%E5%88%99%E6%89%A7%E8%A1%8C%E6%AD%A5%E9%AA%A4%EF%BC%883%EF%BC%89.%EF%BC%883%EF%BC%89n%E2%80%94%E2%80%94%3Em%2Cr%E2%80%94%E2%80%94%3En%2C%E5%86%8D%E8%BD%AC%E5%88%B0%E6%AD%A5%E9%AA%A4%EF%BC%881%EF%BC%89%E6%89%A7%E8%A1%8C.%E6%88%91%E5%86%99%E7%9A%84%E4%BB%A3%E7%A0%81%E6%98%AF%E8%BF%99%E6%A0%B7%E7%9A%84%2C%E8%AF%B7%E9%97%AE%E6%9C%89)
xRMKA+s,֯j$^eQdł$V"5:XJ%vfvOfE:x``^}ax9Fd_H6I3=|2.8[`lL543K-R
ǐ0CrG!V5dL溟Fr}yIgߞǎfff7zWىP+q̞:Z(&Q+U W֘u4KXe-T^Uٺ+wk2lXπ
Dʶƥ\sUB_'H[p sv҇P@pa.ʯMIxg*2r
ܜ> 5@^
用VB编程,求m,n的最大公约数.要求:(1)m除以n的余数r.(2)若r=0,则n为要求的最大公约数,算法结束,否则执行步骤(3).(3)n——>m,r——>n,再转到步骤(1)执行.我写的代码是这样的,请问有
用VB编程,求m,n的最大公约数.
要求:(1)m除以n的余数r.(2)若r=0,则n为要求的最大公约数,算法结束,否则执行步骤(3).(3)n——>m,r——>n,再转到步骤(1)执行.
我写的代码是这样的,请问有什么错误呢?
Dim n,m,r As Integer
m = Val(TextBox1.Text)
n = Val(TextBox2.Text)
m Mod n = r
Do While r 0
m = n
n = r
m Mod n = r
Loop
TextBox3.Text = n
用VB编程,求m,n的最大公约数.要求:(1)m除以n的余数r.(2)若r=0,则n为要求的最大公约数,算法结束,否则执行步骤(3).(3)n——>m,r——>n,再转到步骤(1)执行.我写的代码是这样的,请问有
m Mod n = r
r = m Mod n