功能:本程序用辗转相除法求自然数 m 、 n 的最大公约数和最小公倍数,求最大公约数的算法如下 : ' (1) 对于己知两数 m 、 n ,使得 m>n; ' (2) m 除以 n 得余数 r; ' (3) 若 r=0 ,则 n 为求得的最大公约数,算法结束;否则执行 (4) ' (4) m=n , n=r 再重复执行 (2) ' 原两数相乘除以最大公约数即为最小公倍数。程序如下 : '------------------------------------------------------- Private Sub Form_Click() Dim m%, n%, mn% n = Val(InputBox("n=")) m = Val(InputBox("m=")) If n <= 0 Or m <= 0 Then MsgBox " 数据出错 " Exit Sub End If '**********SPACE********** 【 ? 】 '**********SPACE********** If 【 ? 】 Then t = m m = n n = t End If '**********SPACE********** Do While 【 ? 】 '**********SPACE********** 【 ? 】 m = n n = r Loop Form1.Print " 最大公约数 ="; m Form1.Print " 最小公倍数 ="; mn / m End Sub