题型：综合题 题类：常考题 难易度：困难
浙江省重点中学2018届高三上学期期末热身联考试卷
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n=50
Dim d(0 To n)As Single，name(1 to n)As String
‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入
name(1)…name(50)
‘代码略
Private Sub Command1_Click()
Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String
d(0)=2
For i=1 To 10
‘(1)
For j=i To n
If d(j)<d(i-1)Then
If 
Then ‘(2)
k=j
End If
End If
Next j
If k<>i Then
temp=d(k)：d(k)=d(i)：d(i)=temp
r=name(k)：name(k)=name(i)：name(i)=r
End If
Next i
For i=1 To 10 ‘输出被选的l0个人的名字和身高。
List2．AddItem name(i)&d(i)
Next i
End Sub
试题篮
冒泡升序排序需要经过n-1遍的加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面，在第i遍加工过程中需要进行n-i对数据的比较，在某些情况下，第i遍加工过程中，在上面部分较小数据已经有序情况下，不需要再进行n-i对数据的比较。如对“17,18,19,24,23,20”这6个数据排序中，第1遍排序结束后数据为“17,18,19,20,24,23”，第2遍排序时不再需要对20及其前面4个数据进行比较。程序界面如下图所示 
