【加试题】自从“7选3”计入高考成绩，让考生告别“一考定终身”的窘困。各校均组织学生进行了7选3高考选考科目的选课工作。某校政治、历史、地理、物理、化学、生物、技术7科的选考人数如下表所示：科目政治历史地理物理化学生物技术人数...

题型：综合题题类：模拟题难易度：困难

浙江省杭州市2016年信息技术高考模拟卷十二

【加试题】自从“7选3”计入高考成绩，让考生告别“一考定终身”的窘困。各校均组织学生进行了7选3高考选考科目的选课工作。某校政治、历史、地理、物理、化学、生物、技术7科的选考人数如下表所示：

科目	政治	历史	地理	物理	化学	生物	技术
人数	193	151	112	186	167	103	179

设计VB程序，实现功能：将每个科目的选课人数按照选考人数降序排序后输出。其中，科目名称存放在数组a(i)中，人数存放在数组b(i)中。

程序运行界面设计如图所示，左边列表框List1是显示科目名称和选课人数，单击“排序”按钮Command1后，在右边的列表框List2中显示排序后的科目名称和选课人数。

Command1的处理事件过程如下，但加框处代码有错，请改正。

Private Sub command1_click()

Dim a(1 To 7) As String

Dim b(1 To 7) As Integer

Dim i As Integer, j As Integer, p As String, q As Integer

For i = 1 To 7

List1.AddItem a(i) + " " + Str(b(i))

Next i

For i = 1 To 6

k = i

For j = i + 1 To 7

Next j

If i <> k Then

p = a(i): a(i) = a(k): a(k) = p

End If

Next i

For i = 1 To 7

List2.AddItem a(i) + " " + Str(b(i))

Next i

End Sub
① ②

举一反三

小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个VB程序，功能如下：在列表框list1中显示排序前数据（存储在数组a中），在文本框text1中输入初始位置（即下标值），单击“排序”按钮command1后，在标签label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框list2中。程序运行界面如图所示。

实现上述功能的VB程序如下。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

a(1) = 30: a(2) = 47: a(3) = 30: a(4) = 72

a(5) = 70: a(6) = 23: a(7) = 99: a(8) = 24

n = 8

For i = 1 To 8

List1.AddItem str(a(i))

Next i

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer

Dim s As String

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

For j = n To i + 1 Step -1

If a(j) < a(j - 1) Then

'改错

a(j - 1) = a(j)

a(j) = k

'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置

If pos = j Then

pos = j - 1

s = s + "→" + Str(pos)

elseif ② then

pos = j

s = s + "→" + Str(pos)

End If

Next j

Next i

Label1.Caption = "位置变化情况：" + s

List2.Clear

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

小明探索用链表思想实现插入排序。链表由节点连接而成，每个节点包含一个数据域和一个指针域。为了模拟这个过程，小明用a数组保存链表数据域，b数组保存链表指针域，排序的过程就是将每个数据的指针域不断链接到已有的有序链表合适位置，形成更长的链表，直到所有的数据均链接到链表中。

例如将某节点插入到已有链表中，根据大小比较有三种情况：插入到最前面、插入到最后、插入到中间，如图a所示，在链表中的节点 x 和节点 y之间插入节点n的过程示意：过程一（初始状态）如图1所示，链表中节点 x 的指针域指向节点y数据域，即图示①指向；过程二如图2所示，将节点n的指针域指向节点 y 数据域，即图示②指向；过程三如图 3 所示，将①指向断开，同时将节点 x 的指针域指向节点n数据域，即图示③指向；至此完成节点n的插入操作。