用vb语言编写一个有两个整数X和Y的名为swap的SUB过程,功能是交换两个变量的？

Sub swap(ByRef X As Integer, ByRef Y As Integer)

Dim temp As Integer

temp = X

X = Y

Y = temp

End Sub

在这个闭穗 SUB 过程中，我们首先空态慧声明了一个名为 temp 的整数变量，用于保存 X 的值。然后，我们将 Y 的值赋给 X，将 temp 的值赋给 Y，从而完成了两个变斗答量的值交换。

我写的代码:

Private Sub Form_Click()

'请求用户给a和b输入值

Dim a As String, b As String

a = InputBox("输入a的值蔽顷", "输入信息")

b = InputBox("输入b的值", "输入信息")

'交换a和b的值

Dim c As String

c = a

a = b

b = c

'在窗体上输出变量交换前后的谨歼值

Print "交换后a的值为:" &a

Print "交换祥并冲后b的值为:" &b

End Sub

答案是C。弊巧

Z=X:X=Y:Y=Z

分析：

假定X=1,Y=2，则：

1.执行Z=X后，Z=X=1,Y=2

2.执行X=Y后，X=2,Y=2,Z=1

3.执行Y=Z后租岁键，Y=1,X=2,Z=1

其中变量Z起临时存放数据的作用。雀衡

---