实现数据a和数据b中的值交换。
具体步骤:
实现数据a和b交换,肯定是不能直接赋值。
那么怎么办?应该借助第三者变量。这样
才能实现数据交换。
即 定义一个新的变量c.
把数据a的值赋给c.
再用数据b的值赋给a.
然后,把c的值赋给a.
c=a
a=b
b=c
只有这样才能实现交换。
Private Sub Swap_Click()
'数据定义
dim a as integer
dim b as integer
dim c as integer
'数据输入
a = CInt(inputbox("请输入数据a"))
b = CInt(inputbox("请输入数据b"))
'数据加工
c = a
a = b
b = c
’数据输出
Print a,b
End Sub
具体步骤:
实现数据a和b交换,肯定是不能直接赋值。
那么怎么办?应该借助第三者变量。这样
才能实现数据交换。
即 定义一个新的变量c.
把数据a的值赋给c.
再用数据b的值赋给a.
然后,把c的值赋给a.
c=a
a=b
b=c
只有这样才能实现交换。
Private Sub Swap_Click()
'数据定义
dim a as integer
dim b as integer
dim c as integer
'数据输入
a = CInt(inputbox("请输入数据a"))
b = CInt(inputbox("请输入数据b"))
'数据加工
c = a
a = b
b = c
’数据输出
Print a,b
End Sub