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