VB的问题,在线等答案,急!

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

吧问号改成代码,谢谢,好的答案我会加分的!

Private Sub Form_Click()
Dim a%, b%, num1%, num2%, temp
num1 = InputBox("请输入一个正整数")
num2 = InputBox("请输入一个正整数")

If num1 < num2 Then '填空1
temp = num1: num1 = num2: num2 = temp
End If
a = num1
b = num2

While temp <> 0 '填空2
temp = a Mod b
a = b
b = temp '填空3
Wend
Print "最大公因数为:"; a
Print "最小公倍数为:"; num1 * num2 / a
End Sub
温馨提示:内容为网友见解,仅供参考
无其他回答
相似回答
大家正在搜