（加试题）一个无序整数数组，对它排序，使其前半部分都为奇数有序，后半部分为偶数有序。基本想法：利用插入排序算法，对奇偶子序列分别插入排序。用两个变量把整个数组分_刷题宝

题干

（加试题）一个无序整数数组，对它排序，使其前半部分都为奇数有序，后半部分为偶数有序。
基本想法：利用插入排序算法，对奇偶子序列分别插入排序。用两个变量把整个数组分割为三个部分，第一个部分为奇数有序子序列，第二部分为偶数有序子序列，第三部分为未排序子序列。使用两个变量进行分割，mid 指向偶数有序子序列的一个元素，end1 指向未排序子序列（等待一个个插入前面的奇数有序子序列或偶数有序子序列）。

Const n = 7
Dim a(-1 To n) As Integer
Private Sub Form_Load()
'随机生成7个不重复的正整数到a()数组中。代码略
End Sub
Private Sub Command1_Click()
Dim mid As Integer, end1 As Integer
Dim i As Integer, j As Integer, num As Integer
mid = 0: end1 = 0
Do While end1 <= n
num = a(mid) ‘①
j = end1
If num Mod 2 = 1 Then
Do While j - 1 >= mid and a(j - 1) < num ‘②
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
mid = mid + 1
Else
Do While a(j - 1) > num And j - 1 >= mid
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
End If
end1 = end1 + 1
Loop
For i = 0 To n
List1.AddItem Str(a(i))
Next i
End Sub
划线处的代码有误，请改正：
①___________________________
②___________________________

上一题下一题 0.99难度填空题更新时间:2019-05-08 07:39:10

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

同类题1

有如下VB 程序段：
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3

For j=i＋1 To 6

If d(j)<d(j-1) Then
t=d(j):d(j)=d(j-1):d(j-1)=t
End If

Next j

Textl.Text=Str(d(i))+Text1.Text
Next i
End Sub .
执行该程序段后，文本框 Textl输出的内容是（）

同类题2

丢失的成绩。某校运动会上，高一男子100米决赛的成绩已出，前8名的成绩记录单由于不小心丢失一张，只剩下7个成绩，分别是(单位：秒)11.5，11.8，12.1，12.5，13.1，13.5，13.9。后来找到了，需将找到的成绩插入相应的位置，使数据序列仍保持有序，并求出该成绩的名次。
为实现这一目标，设计如下VB程序，界面如图所示：先输入7位选手成绩，自动将成绩从小到大排序后输出到列表框List1中。输入丢失成绩后，点击“插入”按钮将该成绩添加到适当位置并输出选手成绩到List2中，并在Label4中显示该成绩的名次。

实现上述功能的VB程序如下，请完成以下问题：
Dim a(1 To 8) As Single
Dim n As Integer，i As Integer，x As Single
Private Sub Form_Load()
Dim j As Integer，temp As Single
’输入7位选手100米成绩，代码略
’将7位选手成绩从小到大排序
For i＝1 To 6
For j＝7 To i＋1 Step－1
If a(j)＜a(j－1) Then
temp＝a(j)
a(j)＝a(j－1)
a(j－1)＝temp
End If
Next j
Next i
’将排序好的选手成绩输出到列表框List1
List1.Clear
For i＝1 To 7
List1.AddItem Str(a(i))
Next i
End Sub
Private Sub Command1_Click() ’确定该遗漏选手的成绩排名第几位？
x＝Val(Text1.Text)
i＝1
Do While x＞a(i)
①__ __
Loop
Label4.Caption＝“该选手位列第”＋Str(i)＋“名！”
’ 将该遗漏选手成绩添加到适当位置，使数组仍保持有序并输出到列表框List2
For j＝8 To i＋1 Step－1
a(j)＝a(j－1)
Next j
②__ __
For i＝1 To 8
List2.AddItem a(i)
Next i
End Sub
(1)Form Load事件处理过程中代码采用的算法是________(选择排序/插入排序/冒泡排序)
(2)①处代码应为：__________________________________________。
②处代码应为：____________________________________________。

同类题3

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相信两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如下图所示，

实现上述功能的VB代码如下：
Dim a(1 To 8) As Integer
Dim n As Integer
Private Sub Form_Load()
'n=8，排序前数据存储在数组a中，并在列表框Listl中显示
'代码略
End Sub
Private Sub Command1_Click()
Dim flag As Boolean
i = 1
flag = True
Do While

'改错
flag = False
For j = n To i + 1 Step -1
If a(j) < a(j - 1) Then
k = a(j): a(j) = a(j - 1): a(j - 1) = k
flag = True
End If
Next j
i = i + 1
Loop
Label3.Caption = "排序过程的加工遍数为" + '填空
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub
（1）代码“Private Sub Command1_Click()”中的Click是___________。（单选，填字母：

C．事件名）

（2）程序代码中，Do While语句加框处有错，请改正。__________________
（3）程序代码中，将Label3.Caption赋值语句补充完整。_________________
（4）程序代码中，flag值为___________表示某一遍加工中发生过交换。

同类题4

某同学设计了一个排序算法，先将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理，直至所有元素按降序排列。算法的VB程序段如下：
‘待排序数据已存储在数组a中(a(1)～a(n))

上述程序段中3处方框处的代码分别为

A．①i+1 To n Step 2 ②2 To n Step 2 ③a(j+1)=t

B．①i+2 To n Step 2 ②3 To n Step 2 ③a(j+1)=t

C．①i+2 To n Step 2 ②2 To n Step 2 ③a(j)=t

D．①i+1 To n Step 2 ②3 To n Step 2 ③a(j)=t

相关知识点