小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。_刷题宝

题干

小明基于选择排序算法编写了一个VB程序,功能如下：某班有50个学生，从中选择10个身高最高的同学，要求被选的任何两个人不能身高一样（所给的数据保证能选10个）。
实现上述功能的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

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 If

Next i

For i = 1 To 10 ‘输出被选的10个人的名字和身高。

List2．AddItem name(i) & d(i)

Next i

End Sub

上一题下一题 0.99难度填空题更新时间:2019-05-27 12:11:01

答案(点此获取答案解析）

同类题1

（加试题）实现某排序算法的部分VB程序如下：
For i＝1 To 5
k＝i
For j＝i＋1 To 6
If a(k)＜a(j) Then k＝j
Next j
If i＜＞k Then
　 t＝a(i)：a(i)＝a(k)：a(k)＝t
End If
Next i
在排序过程中，经过某一遍排序“加工”后，数组元素a(1)到a(6)的数据依次为“96，90，91，88，95，94”。则下一遍排序“加工”后数组元素a(1)到a(6)的数据依次是(　　)

A．96，95，91，90，88，94	B．96，95，94，91，88，90
C．96，95，91，88，90，94	D．96，95，94，91，90，88

同类题2

用选择排序每次选出最大值对数据7,6,3,9,2进行降序排序，两轮后的结果是（）。

同类题3

将数组a中的8 个数据“18,33,5,26,86,0,60,200”按从大到小的顺序排列,每次可以交换任意两个元素,最少需要交换的次数是( )

同类题4

如图a所示，在excel中使用Rank函数可以快速地返回一个数字在数字列表中的排位，而且是同分同名次，非常方便。小明想用Vb编写一个程序来实现类似Rank排名次的功能，程序运行时，随机产生10个60,100之间的随机数，并显示在列表框List1中，单击“排名”按钮Command1，在列表框List2中输出数据及其排名，程序运行界面如图b所示。

实现上述功能的VB程序如下，代码加框处有错，请改正。
划线①处代码应改为：___________________
划线②处代码应改为：____________
Dim a(1 to 10) As Integer ‘存储原始数据
Dim b(1 to 10)As Integer ‘存放名次
Private Sub Command1_Click()
Dim i As Integer,j As Integer, n As Integer
For i=1 To 10
n=0
For j=1 To 10
If   If a(i)<=a(j) Then n=n+1 ‘①
  b(i)=n ‘②
Next j
Next i
For i= 1 to 10
List2.Additem a(i)&”  ”&b(i)
Next i
End Sub
Private Sub Form_Load()
‘随机产生10个60,100之间的随机数，并显示在List1中，代码略。
End Sub

相关知识点