VB选考冒泡排序综合应用题

VB选考冒泡排序综合应用题
姓名班级
第一题：2017年11月选考真题
小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。

程序运行界面如下图所示。

实现上述功能的VB程序如下，请完成划线处填空。

Const n = 10
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim bottom As Integer
'获取排序前数据依次存储在数组a中，并在文本框Text1中显示。

代码略
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
ElseIf a(j) = a(j - 1) Then ' 相邻两个数据相等，进行剔除处理
②
bottom = bottom - 1
End If
Next j
③
Loop
= " "
For ④
= + Str(a(i))
Next i
End Sub
第二题：2019年4月选考真题
小明基于冒泡排序思想设计了一个改进的排序算法。

该算法先用冒泡法将数组a中奇数位置的元素、偶数位置的元素分别进行排序，然后再进行后续处理。

程序界面如下图：
算法的VB程序段如下，请完成划线处填空。

’待排序数据存储在数组a中（a（1）~ a（n）），要求升序排列
For i = 1 To (n - 1) \ 2
For ①
If a(j) > a(j + 2) Then
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j
Next i
For i = 1 To n \ 2
②
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next i
For ③
t = a(i): j = i - 1
Do While t < a(j)
a(j + 1) = a(j): j = j - 1
Loop
④
Next i
第三题：合唱队列是按队员的身高进行排列，形成中间高两边有序降低的队形；例如有六个队员“已、戊、丁、丙、乙和甲”的身高依次由小到大，则排列后的顺序为“戊、丙、甲、乙、丁、已”。

小李用VB编写模拟“合唱队列”程序，功能如下：在文本框Text1中输入各队员身高，输入结束并回国，由输入的各队员身高分别存入数组a中；单击“合唱队列”按钮command1，对数组a的元素进行有序排列后，将各元素存入数组C中形成合唱队列，并将结果显示在文本框Text2中。

程序运行界面如图所示：甲、乙、丙、丁、戊和已。

实现上述功能的VB程序如下：
实现上述功能的VB程序如下，请在划线处填入合适代码。

Const n = 5
Dim a(1 To n) As Integer
Dim i As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then '回车键的ascii码13
①
If i <= n Then
a(i) = Val()
em a(i)
If i < n Then
= ""
Else
= "已输入完毕！！"
End If
End If
End If
End Sub
Private Sub Command1_Click()
Dim c(1 To n) As Integer
Dim right As Integer, left As Integer, i As Integer
For i = 1 To n - 1
For j = 1 To n - i
If ② Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
m = (1 + n) \ 2
left = m: right = m
c(m) = a(n): i = 2
Do While i <= n
If i Mod 2 = 0 Then
right = right + 1
c(right) = a(n - i + 1)
Else
③
c(left) = a(n - i + 1)
End If
i = i + 1
Loop
④
For i = 2 To n
s = s + "," + Str(c(i))
Next i
on = s
End Sub
第四题：小王编写V B 程序功能如下：单击“生成数组”按钮C ommand1，则随机生成20个大写字母，分别存储到数组a中，对数组a的元素进行升序排列，并在标签Label1 中显示；再单击“最长连续字母串”按钮C ommand2，则在排序后的数组a中查找连续个数最多(忽略重复数值)的一组字符（即：连续字符串），若有两组连续字符个数一样多，则取字母ASCII值大的一组，将连续字符串显示在标签Label2 中。

运行界面如第17 题图所示。

若实现上述功能的程序如下，请在划线处填写合适代码，使程序正常运行。

Const n = 20
Dim a(1 To n) As String
Private Sub Command1_Click()
Dim i As Integer, s As String, j As Integer
Randomize
For i = 1 To n
①
Next i
For i = 1 To n - 1
For j = i + 1 To n
If ② Then
t = a(j): a(j) = a(i): a(i) = t
End If
Next j
Next i
s = ""
For i = 1 To n
s = s + a(i)
If ③ Then s = s + ","
Next i
on = s
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer
Dim t As Integer, k As Integer
Dim max As Integer '存储连续字母数个数最大值
Dim begin As Integer '存储连续字母数开始的位置
k = 1
max = 1
For i = 2 To n
If Asc(a(i)) = Asc(a(i - 1)) + 1 Or Asc(a(i)) = Asc(a(i - 1)) Then
If ④ Then k = k + 1
If k >= max Then
max = k
⑤
End If
Else
k = 1
End If
Next i
s = ""
For ⑥
s = s + Chr(j)
Next j
on = s
End Sub
第五题：小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，在列表框List1中生成用于排序的N个数据，单击“排序”按钮Command2，对这组数据进行错位排序（即从前往后依次是最小的、最大的、第二小的，第二大的…..依次类推），在列表框List2中依次输出数据排序后的结果，程序运行界面如图所示。

实现上述功能的VB程序如下，请完成划线处代码。

Const n = 8
Dim a(1 To n) As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, tmp As Integer
tmp = 1
For i = 1 To n - 1
For j = n To i + 1 Step -1
If ①Then
a(j) = a(j) + a(j - 1)
a(j - 1) = a(j) - a(j - 1)
a(j) = a(j) - a(j - 1)
End If
Next j
②
Next i
For i = 1 To n
em Str(a(i))
Next i
End Sub。