Private Sub command1_click()
Dim m As Integer,n As Integer
Dim a As Integer,b As Integer
Dim r As Integer
m = InputBox("输入m")
n = InputBox("输入n")
a = m
b = n
Do
r = Abs(m - n)
m = n
n = r
Loop While m n
Print a; "和"; b; "最大公约数是"; r
Print a; "和"; b; "最小公倍数是"; a * b / r
End Sub
VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.
VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.
用DO……LOOP循环语句
用DO……LOOP循环语句
其他人气:399 ℃时间:2020-04-12 22:04:41
优质解答
我来回答
类似推荐
猜你喜欢
- 10.33333333……是不是有理数
- 2白炽电灯的灯丝断了,再搭上接入原电路继续使用,通过灯丝的电流变大还是变小?为什么?
- 3我幸福 因为我有朋友(友谊)作文
- 4描写美丽风光的成语有那些?
- 5某数的5倍减去5等于这个数的4倍.列出方程,并求出方程的解.
- 6driver,when,it,the,rained,last,driving,night,home,was(连词成句)
- 7They visited thr museum last Sunday.对 visited t
- 8一个带电体接近一个金属导体,金属导体两级会带电,而同理,原带电体两级电荷分布也改变?
- 9弯弯的月亮像小船,长长的柳枝像什么
- 10It was a exciting day yesterday. Do you konw how make a birthday cake?这两句哪里错了?