【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