功能:以下用于实现:输入两个正整数 m 和 n ,求其最大公因数和最小公倍数。 '------------------------------------------------------- Private Sub Form_Click() Dim a%, b%, num1%, num2%, temp num1 = InputBox(" 请输入一个正整数 ") num2 = InputBox(" 请输入一个正整数 ") '**********SPACE********** If 【 ? 】 Then temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 '**********SPACE********** Do While 【 ? 】 temp = a Mod b a = b '**********SPACE********** 【 ? 】 Loop Print " 最大公因数为: "; a Print " 最小公倍数为: "; num1 * num2 / a End Sub