试题 试卷
题型：单选题 题类：常考题 难易度：普通
浙江省高中信息技术 排序算法及程序实现同步练习
For i=1 To 7
k=i
For j=i+1 To 8
If a(j)>a(k) And a(j)>85 Then k=j
Next j
If k<>i Then t=a(i): a(i)=a(k): a(k)=t
Next i
数组元素a(1)到a(8)的原始数据依次为“89，70，79，85，99，80，82，74”，则第3遍“加工”后数组元素a(1)到a(8)的数据依次是（ ）
以下程序实现了冒泡排序的优化，请在划线处填写合适的代码。
Dim n As Integer
Dim a (1 to 100) As Integer
Private Sub Form_Load()
‘n=10，排序前生成的数据存储在数组a中，并在列表框List1中显示
‘代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, start As Integer, t As Integer
{#blank#}1{#/blank#}
Do While i < n
start = n
For j = n To i Step {#blank#}2{#/blank#}
If a(j) < a(j - 1) Then
t = a(j): {#blank#}3{#/blank#} : a(j - 1) = t
start = j
End If
{#blank#}4{#/blank#}
Loop
For i = 1 To n
List2.AddItem Str(a(i))
n = 0 : i =1 : j = 7
Key = Val(Textl.Text)
f = False
Do While i <= j And Not f
m = fix((i + j)/2+0.5)
n = n + 1
If key = d(m) Then
f = True
Elseif key > d(m) then
j = m - 1
Else
i = m + 1
end if
实现上述功能的VB程序如下，但加框处代码有错，请改正。
Const n = 10
Dim a（1 To n）As Integer
Private Sub Commandl_Click（）
Dim i As Integer，j As Integer，t As Integer
Dim bottom As Integer
'获取排序前数据依次存储在数组a中，并在文本框Text 1中显示。代码略
bottom = n
i = 1
Do While i<= bottom-1
For j = bottom To i + 1 Step -1
If Then ‘⑴
t = a（j）： a（j）= a（j - 1）：a（j - 1）= t
Elself a（j）= a（j - 1）Then '相邻两个数据相等，进行剔除处理
‘⑵
bottom = bottom -1
i = i+1
Text2.Text=＂＂
For i = 1 To bottom
Text2.Text = Text2.Text+Str（a（i））
⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}
Const n = 100
Dim a(n) As Integer
′产生n个2位正整数，并显示在文本框Text1中，代码略
Private Sub Command1_Click( )
Dim i As Integer, j As Integer, left As Integer
Dim right As Integer, m As Integer, t As Integer
i = n-1
Do While i > = 1
________
right = n
t = a(i)
Do While left < = right
m = Int((left + right)/2)
If a(m) = t Then right = m: Exit Do
If a(m) < t Then
left = m + 1
right = m-1
For j = i To right-1
a(j) = a(j + 1)
________________
i = i-1
s = “”
For j = 1 To n
s = s + Str(a(j))
List1.AddItem s
试题篮
冒泡升序排序需要经过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个数据进行比较。程序界面如下图所示 
Then ‘⑴
‘⑵