Private Sub Form_Click()
Dim a%, b%, num1%, num2%, temp
num1 = InputBox("请输入一个正整数")
num2 = InputBox("请输入一个正整数")
If 【?】 Then
temp = num1: num1 = num2: num2 = temp
End If
a = num1
b = num2
While 【?】
temp = a Mod b
a = b
【?】
Wend
Print "最大公因数为:"; a
Print "最小公倍数为:"; num1 * num2 / a
End Sub
吧问号改成代码,谢谢,好的答案我会加分的!