VB程序,编写一个用辗转相除法,求俩自然数m、n的最大公约数和最小公倍数.用DO……LOOP循环语句

李元科回答：

　　PrivateSubcommand1_click()

　　DimmAsInteger,nAsInteger

　　DimaAsInteger,bAsInteger

　　DimrAsInteger

　　m=InputBox("输入m")

　　n=InputBox("输入n")

　　a=m

　　b=n

　　Do

　　r=Abs(m-n)

　　m=n

　　n=r

　　LoopWhilemn

　　Printa;"和";b;"最大公约数是";r

　　Printa;"和";b;"最小公倍数是";a*b/r

　　EndSub