问题标题:
【vb用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的程序代码如下,请完善之用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的程序代码如下,请完善之:privatesubcommand1_click(】
问题描述:
vb用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的程序代码如下,请完善之
用辗转相除法求两个自然数m,n的最大公约数和最小公倍数的程序代码如下,请完善之:
privatesubcommand1_click()
dimmasinteger,nasinteger
dimaasinteger,basinteger
dimrasinteger
m=inputbox("输入m")
m=inputbox("输入n")
a=m
b=n
do
r=____
m=n
n=r
loop____
printa;"和"b;"最大公约数是";______
printa;"和"b;"最小公倍数是";______
endsub
陈国良回答:
PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输入m")n=InputBox("输入n")a=mb=nDor=Abs(m-n)m=nn=rLoopWhilemnPrint...
点击显示
其它推荐