数据存储在数组a中并在列表框List1中显示代码略E
dSubPrivateSubComma
d1_ClickDimiAsI
tegerjAsI
tegerkAsI
tegerDimposAsI
teger变量pos存储指定数据的位置既下标值DimsAsStri
g变量s存储pos变化情况sText1TextposValText1TextFori1To
1Forj
Toi1Step1Ifajaj1The
kaj1aj1ajajk如果pos位置的数据参与交换则更新pos值记录pos变化情况IfposjThe
posj1ss