1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption改为“交换数组元素”，添加一个标签控件，将名字改为Lbl1，将Form1窗体的caption属性改为“数组元素交换”，将界面设置成下图：
2、双击窗体，在Load事件中写入如下代码：RandomizeFor i = 1 To 10a(i) = Int(Rnd * 101 + 100)Lbl1.Caption = Lbl1.Caption & a(i) & " "Next i
3、在通用对话框对数组进行定义，使其成为窗体级变量：Dim a(1 To 10) As Integer
4、双击“交换数组元素”命令按钮，进入代码编辑窗口，输入如下代码：i = InputBox("请输入需要交换的首个元素下标", "输入待交换元素序号")j = InputBox("请输入需要交换的第二个元素下标", "输入待交换元素序号")t = a(i) '将 a(i)赋值给中间变量ta(i) = a(j)a(j) = tLbl1.Caption = ""For i = 1 To 10Lbl1.Caption = Lbl1.Caption & a(i) & " "Next i
5、关闭代码窗口，按下F5运行程序，产生10个随机数，标签中显示10个数：
6、单击“交换数组元素”命令按钮，弹出一个输入对话框，要求输入需要交换的首个元素下标，这里输入1，按确定按钮结束输入，如图：
7、紧接着又弹出一个输入对话框，要求输入需要交换的下一个元素下标，这里输入2，注意观察原来第一和第二个元素，如图：
8、按确定按钮结束输入，此时再观察标签中第一和第二个元素位置已经相互交换了。
