- 二一组卷

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

浙江省之江教育评价联盟2019-2020学年高三上学期信息技术第二次联考试卷

数组a存储降序排列的m个数据，数组b中存储的是升序排列的n个数据，且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到c数组中，使c数组的数据为左右交替上升，如下表所示：

a(1)	a(2)	a(3)	a(4)	a(5)
19	17	6	4	3

a数组

b(1)	b(2)	b(3)	b(4)	b(5)	b(6)
5	7	8	13	15	20

b数组

c(1)	c(2)	c(3)	c(4)	c(5)	c(6)	c(7)	c(8)	c(9)	c(10)	c(11)
3	5	7	13	17	20	19	15	8	6	4

c数组

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While ①

If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If

c(pc) = s

If flag Then

pc = m + n - pc + 1

Else

pc =

End If

②

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub

（1）、窗体加载的事件处理过程名为。（填字母：A .Form1_Click / B .Form_Click / C .Form1_Load / D .Form_load）

（2）、加框处代码有错，请改正。

（3）、在划线处填入合适的代码。

① ②

举一反三

【加试题】某公司需要设计一个生日查询系统：输入某个日期，就能查出在这天生日的所有员工姓名，并统计出生人人数，以便于公司提前为员工准备生日礼物。员工信息存储在数据库文件“员工信息.mdb”的数据表“members”中，数据表“members”的结构如下：

VB应用程序界面如上图所示，在文本框text1中输入查询的日期（以月日形式，如0623），单击“查询”按钮，在列表框中显示所有这个日子出生的员工姓名（按姓名排序），并在Label3处显示员工数量，如果人数为0，则在列表框中显示“本天没有员工生日”。

解决此问题的VB程序如下，阅读程序并完成后面的问题。

‘定义存放员工姓名的数组na

Private Sub CmsqClick()

Dim n As Integer , i As Integer , j As Integer

Dim t1 As String

‘连接数据库获取数据

Dim cn As new connection

Dim rs As new recordest

Dim str1 As String , str2 As String

str1 =”driver=Microsoft access driver(*.mdb)”；dbq=”&app.path”&”员工信息.mdb”

cn.open str1

str2 = “select * form members where 生日＝’“ + text1.text + ”’”

rs.open str2 ， cn.adOpenDynamic ，adLockOptimistic

n = 0

Do While Not Rs.EOF

n = n + 1

na(i) = rs.Fields(“姓名”).value

rs.MoveNext

Loop

rs.close

cn.close

‘按姓名排序

If n = 0 Then

List1.AddItem “本天没有员工生日”

Else

For i = 1 to n-1

For j = 1 to n+1 Step -1

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

t1 = na(j) : ① : na(j-1) = t1

End If

Next j

Next i

For i = 1 to n

List1.AddItem ②

Next i

Label3.Caption = “这天共” + Str(n) + “位员工生日”

End If

End Sub

某移数字游戏的规则如下：有一个如图a所示的包含9个圆圈的数阵。将1~8这8个数字随机地填写到该数阵的外层圆圈中，只剩下中间的一个空圆圈。规定每个数字只能按照数阵中的直线从一个圆圈移动到另一个空的圆圈中。通过若干步的移动，要求将该数阵中的数字移动成为如图b所示的状态。

小张编写了一个VB程序来解这个游戏，功能如下：点击“初始化”按钮Command1初始化游戏，程序随机地将1~8这8个整数填入到数阵的外层圆圈中，同时将该状态下的数阵显示在列表框List1中。点击“开始”按钮Command2，程序开始移数字，并将移动过程中的每一步输出在列表框List2中，最后统计总移动步数到标签Label1中。为了清楚地描述输出数字在数阵中的每一步移动步骤，小张给数阵中的每一个圆圈都进行了编号，具体编号方法如图c所示，因此1号圈中的数字移动到2号圈可以表示为“1#-->2#”。程序运行界面如图d所示。