VB6.0实现两个数(图片)的交换
在计算机编程中经常会涉及到值的交换与传递，比如两幅图片互换位置，数组中两个数交换位置。这中间需要用到一个中间变量进行传递，接下来就以交换数组中元素位置为例，说明这种交换算法。
操作方法
- 01
打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption改为“交换数组元素”，添加一个标签控件，将名字改为Lbl1，将Form1窗体的caption属性改为“数组元素交换”，将界面设置成下图：
- 02
双击窗体，在Load事件中写入如下代码： Randomize For i = 1 To 10 a(i) = Int(Rnd * 101 + 100) Lbl1.Caption = Lbl1.Caption & a(i) & " " Next i
- 03
在通用对话框对数组进行定义，使其成为窗体级变量： Dim a(1 To 10) As Integer
- 04
双击“交换数组元素”命令按钮，进入代码编辑窗口，输入如下代码： i = InputBox("请输入需要交换的首个元素下标", "输入待交换元素序号") j = InputBox("请输入需要交换的第二个元素下标", "输入待交换元素序号") t = a(i) '将 a(i)赋值给中间变量t a(i) = a(j) a(j) = t Lbl1.Caption = "" For i = 1 To 10 Lbl1.Caption = Lbl1.Caption & a(i) & " " Next i
- 05
关闭代码窗口，按下F5运行程序，产生10个随机数，标签中显示10个数：
- 06
单击“交换数组元素”命令按钮，弹出一个输入对话框，要求输入需要交换的首个元素下标，这里输入1，按确定按钮结束输入，如图：
- 07
紧接着又弹出一个输入对话框，要求输入需要交换的下一个元素下标，这里输入2，注意观察原来第一和第二个元素，如图：
- 08
按确定按钮结束输入，此时再观察标签中第一和第二个元素位置已经相互交换了。