杭州交通信息网微信6.5.4安卓正式版:vb 小程序的问题temp = num1: num1 = num2: num2 = temp
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 11:49:35
Private Sub Command3_Click()
Dim a%, b%, num1%, num2%, temp
num1 = InputBox("请输入一个正整数")
num2 = InputBox("请输入一个正整数")
'**********SPACE**********
If mum1 < num2 Then
temp = num1: num1 = num2: num2 = temp'是什么意思，它们的值是多少 ？
End If
a = num1
b = num2
'**********SPACE**********
While b <> 0
temp = a Mod b
a = b
'**********SPACE**********
b = temp
Wend
Print "最大公因数为："; a
Print "最小公倍数为："; num1 * num2 / a
End Sub
Dim a%, b%, num1%, num2%, temp
num1 = InputBox("请输入一个正整数")
num2 = InputBox("请输入一个正整数")
'**********SPACE**********
If mum1 < num2 Then
temp = num1: num1 = num2: num2 = temp'是什么意思，它们的值是多少 ？
End If
a = num1
b = num2
'**********SPACE**********
While b <> 0
temp = a Mod b
a = b
'**********SPACE**********
b = temp
Wend
Print "最大公因数为："; a
Print "最小公倍数为："; num1 * num2 / a
End Sub
你代码的第六行变量名与申明不符,现修改如下
Option Explicit
Dim a, b, num1, num2, temp
Private Sub Command1_Click()
num1 = InputBox("请输入一个正整数")
num2 = InputBox("请输入一个正整数")
If num1 < num2 Then
temp = num1 '当num1小于num2时通过temp中间变量对num1和num2值进行交换，以便下面的运算
num1 = num2
num2 = temp
End If
a = num1
b = num2
While b <> 0
temp = a Mod b
a = b
b = temp
Wend
Print "最大公因数为："; a
Print "最小公倍数为："; num1 * num2 / a
End Sub
把num1和num2从小到大排列