小明基于選擇排序算法編寫(xiě)了一個(gè)VB程序，功能如下：某班有50個(gè)學(xué)生，從中選擇10個(gè)身高最高的同學(xué)，要求被選的任何兩個(gè)人不能身高一樣（所給的數(shù)據(jù)保證能選10個(gè)）。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
Const  n=50
Dim d（0 To n） As single,name（1 to n） as string
'讀入50個(gè)學(xué)生的身高，依次存入d（1）…d（50），最高身高小于2，姓名存入name（1）…name（50）
'代碼略
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,temp As single,k As Integer,r as string
d（0）=2
For i=1 To 10

For j=i To n
If d（j）＜d（i-1）Then
IfThen
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‘輸出被選的10個(gè)人的名字和身高。
List2．AddItem  name（i） & d（i）
Next i
End Sub