题目

【加试题】小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。 实现上述功能的VB程序如下，但加框处代码有错，请改正。Const  n = 50Dim d(0 To n) As single , name(1 to n) as string'读入50个学生的身高，依次存入d(1)…d(50),姓名存入name(1)…name(50) '代码略Private Sub Command1_Click()Dim i As Integer, j As Integer, temp As single, k As Integer,r as stringd(0) = 2For i = 1 To 10     ①    For j = i To n     If d(j) < d(i - 1) Then         If     ②  Then           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 IfNext iFor i = 1 To 10   ‘输出被选的10个人的名字和身高。  List2．AddItem  name(i) & d(i)Next iEnd Sub① ② 答案：【1】k=0【2】k=0 or d(k)<d(j)

查看本题答案和解析