- 二一组卷

题型：综合题题类：常考题难易度：困难

浙江省杭州市2017-2018学年高三上学期信息技术教学质量检测

【加试题】小华在探究将两段已按从小到大排序的数据连接后用冒泡排序思想再进行从小到大排序的情况，编写VB程序功能如下：在列表框List1中显示排序前的数据(存储在数组c中)，单击“排序”按钮Command1后，在列表框List2中显示排序后的数据。程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处语句有错，请改正。

Const n1=9 ‘第1段已排序数据长度为n1

Const n2=6 ‘第2段已排序数据长度为n2

‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

‘数组c依次存储两段已按从小到大排序的数据

‘并在列表框List1中显示，代码略

List2．Clear

A位置

For i=n1+1 To n1+n2

j=i

B位置

Do While j>1 And Flag

t=c(j)

c(j)=c(j-1)

c(j-1)=t

C位置

Else

Flag=False

End If

j=j-1

‘②

Loop

Next i

For i=1 To n1+n2

List2．Addltem c(i)

Next i

End Sub

（1）、①处加框代码有错，应修改为。

（2）、②处“Flag=True”语句的位置有错，应放在(单选，填字母：A／B／C)位置。

举一反三

【加试题】自从“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
①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

【加试题】编写一个 VB 程序实现数据左右交替上升排序。功能如下：随机产生n个不重复的整数存数组a，并在列表框list1中显示，单击“排序”按钮Command1，在列表框list2中显示排序后的数据。某遍程序运行后，数组a中存储的左右交替上升排序的n个正整数，如下表所示：

实现该功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

随机产生 n 个不重复的整数存数组 a，并在列表框 list1 中显示。代码略。

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t As Integer

Dim imin1 As Integer, imin2 As Integer

For i = 1 To n \ 2

imin1 = i: imin2 = i + 1

If a(imin1) > a(imin2) Then t = imin1: imin1 = imin2: imin2 = t

For j = i + 2 To n - i + 1

If a(j) < a(imin1) Then

imin2 = imin1: imin1 = j

'①

imin2 = j

End If

Next j

If i <> imin1 Then t = a(i): a(i) = a(imin1): a(imin1) = t

If imin2 = i Then '②

If n - i + 1 <> imin2 Then

t = a(n - i + 1): a(n - i + 1) = a(imin2): a(imin2) = t

End if

Next i

For i = 1 To n

Text2.Text = Text2.Text + Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

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

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

‘①

List1．Addltem Str(a(i))

Next i

End Sub

Private Sub Command2 Click()

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If ＞0 Then ①

t=a(j)：a(j)=a(j-1)：a(j-1)=t

End If

Next j

②

Next i

For i=1 To 10

List2．Addltem Str(a(i))

Next i

End Sub

某算法的部分程序段如下：

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)的数据依次是（）

有如下VB程序段：

For i=1 to 3

For j=1 to 5-i

If a(j)>a(j+1) Then

t=a(j):a(j)=a(j+1):a(j+1)=t

End If

Next j

Text1.Text=Text1.Text+Str(a(i))

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。该程序段执行后，文本框Text1显示的内容是（）

学校需要统计学生的作业完成数，需要将学生的完成数按从高到低显示，下列程序模拟该信息处理过程，程序在数据库stud中找到的学生信息（编号和完成次数），并将所有学生按照完成数从高到低显示。先将所有学生的编号和完成次数从数据库stud的info表中ID和finshed两字段中取出分别保存在数组a和数组b中，第i个学生的编号保存在a(i)中，对应的作业完成次数保存在b(i)中。

数据库文件“stud. accdb”信息如图所示。

程序界面如图所示，左边列表框List1中显示所有学生信息（包括编号和完成次数），单击“排序”按钮（Command），所有编号按照作业完成次数从高到低显示在列表框List2中。

代码如下：

Dim conn As New ADODB. Connection

Dim rs As New ADODB. Recordset

Dim n As Integer

Dim a(500)As String

Dim b(500)As Integer

Private Sub Fom Load()

Dim i As Integer

conn. Connection String="Provider=Mi-crosoft. AC

A.OLEDB. 12.0；DATA Source="& App. Path &"\stud. accdb"

conn Open

Set rs. Active Connection=conn

rs. Open "Select*From info"

n=0

Do While not rs.EOF '到记录集最后一条记录后退出循环

n=n+1

a(n)=rs. fields("id")

b(n)=rs. fields("finshed")

rs. MoveNext '移动到下一条记录

Loop

For i=1 To n

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

Next i

rs. Close

conn. Close

Set rs= Nothing

Set conn= Nothing

End sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, t1 As Integer, t2 As String, k As Integer

For i=1 To n-1 'n表示学生总数

k=i 'k保存第i大的数，一开始假定是a(i)

For j=i+1 To n

If b(k)<b(j) Then k=j '比较完成数

①

If ② Then

t1=b(i): b(i)=b(k): b(k)=t1 '交换完成次数

t2=a(i): a(i)=a(k): a(k)=t2 '交换编号

End If

Next j

Next i

For i=1 To n '在列表框List2中输出排序结果

Listt2. Addltem a(i)+" "+Str(b(i))

Next i

End sub

相关试卷

公司介绍

服务介绍

帮助中心