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

VB选考冒泡排序综合应用题姓名 班级 第一题：2017年11月选考真题 小李基于冒泡排序算法编写了一个VB程序，功能如下：在文本框Text1中显示排序前的数据，单击“排序”按钮Command1,在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如下图所示。实现上述功能的VB程序如下，请完成划线处填空。Const n = 10Dim a(1 To n) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As Integer, t As IntegerDim bottom As Integer获取排序前数据依次存储在数组a中，并在文本框Text1中显示。代码略bottom = ni = 1Do While i a(j + 2) Then t = a(j): a(j) = a(j + 2): a(j + 2) = t End If Next jNext iFor i = 1 To n 2 If a(j) a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = tNext iFor 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 = 5Dim a(1 To n) As IntegerDim i As IntegerPrivate 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 IfEnd IfEnd SubPrivate Sub Command1_Click()Dim c(1 To n) As IntegerDim right As Integer, left As Integer, i As IntegerFor 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 jNext im = (1 + n) 2left = m: right = mc(m) = a(n): i = 2Do While i = max Then max = k End If Else k = 1 End IfNext is = For s = s + Chr(j)Next jon = sEnd Sub第五题：小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，在列表框List1中生成用于排序的N个数据，单击“排序”按钮Command2，对这组数据进行错位排序（即从前往后依次是最小的、最大的、第二小的，第二大的.依次类推），在列表框List2中依次输出数据排序后的结果，程序运行界面如图所示。实现上述功能的VB程序如下，请完成划线处代码。Const n = 8Dim a(1 To n) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As Integer, tmp As Integertmp = 1For 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(