排序算法为什么理解不了?

Question

[例 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?

Answer 1

①处：定义一个有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）

有帮助或启发麻烦点个采纳【本回答右上角】，谢谢~~