[例 3-8]数组的排序.
数据排序的算法问题在任何程序设计语言中都作为一种典型的算法来介绍,因此本书不再赘述.程序代码如下:
Dim i, j, intMin As Integer
Dim strMsg As String
Dim sngSq(5), sngT As Single '①
'输入原始数据
For i = 1 To 5
strMsg = "请输入第" & Str(i) & "个数:"
sngSq(i) = Val(InputBox(j, "数据")) '将输入的数据转换为数值型
Next
'排序
For i = 1 To 4 '②
intMin = i '对第i遍排序,初始假定第i个元素最小
For j = i + 1 To 5 '找出最小的元素序号 '③
If sngSq(j) < sngSq(intMin) Then intMin = j
Next j
'将找出的最小元素与第i个元素交换
sngT = sngSq(i)
sngSq(i) = sngSq(intMin)
sngSq(intMin) = sngT
Next i
'打印输出
For i = 1 To 5
Print sngSq(i) '不换行输出
Next i
在Vbxx工程中新建一个名为frmExam_3_8窗体,在窗体的Click事件中输入上述代码.
①处的英文缩写sngSq换成中文是什么意思,创建的sngSq(5)数组是从索引0开始的还是从索引1开始的?
②处的为什么不是For i = 1 To 5而是For i = 1 To 4?
③处的j = i + 1又是什么意思,因为i是从1到4?
①处：定义一个有6个元素的单精度浮点数数组（sq应该是sequence的缩写），下标从0开始。这个vb6（含vbs）和其他语言有点区别，vb6中数组项是定义的数字+1个项，下标0 ~ 5，其他语言是定义5个项的数组，下标0 ~ 4.。
②处：1 to 4（循环四次），可以想象为一个框中有5个数，一次找出一个最小的，是不是找4次就能找完了，还剩一个最大的在框内。所以只需要找4次。
③处：j = i + 1 To 5，这个不难理解了吧，最小的已经拍前面，j再从1开始比较没意义了，i所在位置的前面的数肯定是小于i当前位置的数，所以找比i位置还小的数，应该从下一项开始找（j=i+1）
有帮助或启发麻烦点个采纳【本回答右上角】，谢谢~~
这好简单的选择排序啊，先从头到尾找出最小的元素，因为我们是从小到大排序，所以最小值放到放到第一位，很明显，这个值一定是在这个位置，所以直接固定在第一位后，就不管它了。再从第二位开始找，找到最后，把你找到最小的值放在第二位，至此，第二小的数也放好了位置，之后依次类推，放好每个数的位置就行。
信我的兄弟，买两瓶啤酒喝完。晕晕乎乎的时候在看，马上什么都明白了。
'把For语句拆开就比较好理解
'排序
intMin = 1 '初始假定第1个元素最小
If sngSq(2) < sngSq(intMin) Then intMin = 2
If sngSq(3) < sngSq(intMin) Then intMin = 3
If sngSq(4) < sngSq(intMin) Then intMin = 4
If sngSq(5) < sngSq(intMin) Then intMin = 5
'将找出的最小元素与第1个元素交换
sngT = sngSq(1)
sngSq(1) = sngSq(intMin)
sngSq(intMin) = sngT
intMin = 2 '初始假定第2个元素最小
If sngSq(3) < sngSq(intMin) Then intMin = 3
If sngSq(4) < sngSq(intMin) Then intMin = 4
If sngSq(5) < sngSq(intMin) Then intMin = 5
'将找出的最小元素与第2个元素交换
sngT = sngSq(2)
sngSq(2) = sngSq(intMin)
sngSq(intMin) = sngT
intMin = 3 '初始假定第3个元素最小
If sngSq(4) < sngSq(intMin) Then intMin = 4
If sngSq(5) < sngSq(intMin) Then intMin = 5
'将找出的最小元素与第3个元素交换
sngT = sngSq(3)
sngSq(3) = sngSq(intMin)
sngSq(intMin) = sngT
intMin = 4 '初始假定第4个元素最小
If sngSq(5) < sngSq(intMin) Then intMin = 5
'将找出的最小元素与第4个元素交换
sngT = sngSq(4)
sngSq(4) = sngSq(intMin)
sngSq(intMin) = sngT
'假设数组为{〇0,①5,②4,③1,④2,⑤3}(数组元素初始化为0),那么排序的实际流程就是
'排序
i = 1
intMin = 1
If 4 < sngSq(1) Then intMin = 2 '成立
If 1 < sngSq(2) Then intMin = 3 '成立
If 2 < sngSq(3) Then intMin = 4 '不成立
If 3 < sngSq(3) Then intMin = 5 '不成立,所以此时intMin=3
'将找出的最小元素与第1个元素交换
sngT = sngSq(i) '=5
sngSq(i) = sngSq(intMin) 'sngSq(1)=1
sngSq(intMin) = sngT 'sngSq(3)=5
'此时数组为{〇0,①1,②4,③5,④2,⑤3}
i = 2
intMin = 2
If 5 < sngSq(2) Then intMin = 3 '不成立
If 2 < sngSq(2) Then intMin = 4 '成立
If 3 < sngSq(4) Then intMin = 5 '不成立,所以此时intMin=4
'将找出的最小元素与第2个元素交换
sngT = sngSq(i) '=4
sngSq(i) = sngSq(intMin) 'sngSq(2)=2
sngSq(intMin) = sngT 'sngSq(4)=4
'此时数组为{〇0,①1,②2,③5,④4,⑤3}
i = 3
intMin = 3 '初始假定第3个元素最小
If 4 < sngSq(3) Then intMin = 4 '成立
If 3 < sngSq(4) Then intMin = 5 '成立,所以此时intMin=5
'将找出的最小元素与第3个元素交换
sngT = sngSq(i) '=5
sngSq(i) = sngSq(intMin) 'sngSq(3)=3
sngSq(intMin) = sngT 'sngSq(5)=5
'此时数组为{〇0,①1,②2,③3,④4,⑤5}
i = 4
intMin = 4 '初始假定第4个元素最小
If 5 < sngSq(4) Then intMin = 5 '不成立,所以此时intMin=4
'将找出的最小元素与第4个元素交换
sngT = sngSq(i) '=4
sngSq(i) = sngSq(intMin) 'sngSq(4)=4
sngSq(intMin) = sngT 'sngSq(4)=4
'此时数组为{〇0,①1,②2,③3,④4,⑤5}