1、打开VB6.0，新建一个工程，在窗体中添加一个命令按钮，caption改为“交换数组元素”，添加一个标签控件，将名字改为Lbl1，将Form1窗体的caption属性改为“数组元素交换”，将界面设置成下图：
3、在通用对话框对数组进行定义，使其成为窗体级变量：Dim a(1 To 10) As Integer
5、关闭代码窗口，按下F5运行程序，产生10个随机数，标签中显示10个数：
7、紧接着又弹出一个输入对话框，要求输入需要交换的下一个元素下标，这里输入2，注意观察原来第一和第二个元素，如图：
