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