数组元素d(l)到d（9）的值依次为“7，12,18,25,39,58,61，72，86”。若该程序段运行结束后，n的值为2，则key的值是（ ）
A.39 B.18或61 C.18或72
D.12或61
二、非选择题（本大题共5小题，其中第13小题4分，第14小题5分，第
15小题8分，第16小题3分，第17小题6分，共26分）
13.小李收集了2016年7月浙江省11个城市主要空气污染物浓度数据，并使用Excel软件进行数据处理，如图a所示。
图a 请回答下列问题:
（1）区域B15:E15的数据是通过公式计算得到的，在B15单元格输入公式时应用了AVERAGE函数，并用自动填充功能完成区域C15:E15的计算，则B15单元格中的公式是________。
（2）如图a所示，区域A3:E14数据已按两个空气污染物名称作为关键字进行了排序，
信息技术试卷 第4页（共12页）
------------ -------------在 _____--------------------__ 此____________号__证__考__准__--------------------_ _卷 _ ________________________--------------------__名_上_姓___ _ _ ________________--------------------__答________校__学业毕--------------------题--------------------无--------------------效主要关键字是PM2.5，次要关键字是________。
（3）根据图a中数据制作的图表如图b所示，创建该图表的数椐区域是。
图b
（4）将区域A3: E14的数倨复制到新工作表，在新工作表屮对两列数据进行筛选操作，筛选设置如图c所示，则按此设置筛选出的城市有________个。
图c
14.编写“加法练习题生成器”程序，实现如下功能：在文本框Text1中输入题数n，单击“生成”按钮Commandl，在列表框Listl中显示n个两数之和小于100的加法练习题。程序运行界面如图a所示。
图a
图b
（1）在设计程序界面时，使应使用图b所示“控件工具箱”中的________（填写相应
编号）添加“生成”按钮。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Integer, b As Integer Randomize n = Val(Text1.Text) i = ① Do While i<= n a = Int(Rnd * 100) b = Int(Rnd * 100) If ② Then
信息技术试卷 第5页（共12页）
List1.AddItem \"(\" + Str(i) + \")\" + Str(a) + \"+\" + Str(b) + \"=\" i = i + 1 End If Loop
End Sub
（3）运行该程序，在文本框中输入5，单击“生成”按钮后，对语句a = Int(Rnd * 100)执行次数的描述，最合理的是________（单选，填字母：A.执行次数等于5
B.执
行次数大于等于5 C.执行次数小于等于5）
15.小李创作题为“闻鸡起舞”的多媒体作品。他首先使用Photoshop软件制作一张图片，然后使用Flash软件制作动画。请回答下列问题:
图a
（1）如图a所示，“背景”图层图像颜色为白色，“篱笆”图层的图像背景也为白色。若只使“篱笆”图层中的“闻鸡起舞”消失，下列操作方法中正确的有________（多
信息技术试卷 第6页（共12页）
选，填字母:A.用“橡皮擦”擦除“闻鸡起舞”/B.用“魔棒”选择白色区域，反选后删除/C.用矩形选框”选中“|闻鸡起舞”区域后删除/D.设置“拾色器”的前景色为白色，用“画笔”对“闻鸣起舞”进行涂画）。(注:全部选对的得2分，选对但不全的得1分，不选或有选错的得0分）
图b
（2）如图b所示，为了使“文字”图层中的文字“闻鸡起舞”推迟1秒钟在舞台中出现，并持续到第45帧，正确的操作是_____________________________________________ （3）库中的音频素材时长为2秒，应用于“打鸣”图层中，如图b所示，要使“舞剑”图层中实例出现的同时“打鸣”图层中的声音停止，可将“打鸣”图层中的声音“同步”属性设置为________（选填：事件/数据流）。
（4）如图b所示“太阳”图层中的动画，其关键帧中的对象是由库中“太阳”元件生成的实例，则该动画的类型是________（单选，填字母：A.动画补间动画/B.形状补间动画/C.逐帧动画）。
（5）如图b所示，测试影片时，单击“重播”按钮，影片跳转到当前场景的第1帧并继续播放，则“重播”按钮的动作脚本为
16.【加试题】小吴为了研究冒泡排序过程中数据的“移动”情况，编写了一个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 a(i)
信息技术试卷 第7页（共12页）
------------ -------------在 _______ ________--------------------____此号__证__考__准___ _ _ ____--------------------____卷__________________名__姓___-------------------- _ _上 ________________________--------------------__校__答学业毕--------------------题--------------------无--------------------效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 K=a(j) a(j - 1) = a(j) a(j) = k
'如果pos位置的数据参与交换，则更新pos值，记录pos变化位置 If pos = j Then pos = j - 1
s = s + \"→\" + Str(pos) Else pos = j
s = s + \"→\" + Str(pos) End If End If Next j Next i
Label1.Caption = \"位置变化情况：\" + s For i = 1 To n
List2.AddItem Str(a(i)) Next i End Sub
17.【加试题】小李与小王合作编写一个成绩统计的VB程序：小王编写一个过程，该过程从数据库
信息技术试卷 第8页（共12页）
读取某一指定科目的相关数据，存储在数组a中；小李编写一个过程，该过程依据数组a中的相关数据统计各班平均分。小李与小王约定的数组a各元素含义如图所示。 程序功能如下：在文本框text1中输入科目名称，单击“读取数据库”按钮command1，程序从数据库读取数据；单击“开始统计”按钮command2，程序进行统计处理，结果输出在列表框list1中。程For j = 1 To a(i + 1) ② p = p + 1 Next j
aver = sum / a(i + 1)
list1.additem str(i)+\" \"+str(a(i+1))+\" \"+str(aver) 序运行界面如下图所示。
实现上述功能的VB程序如下，请回答下列问题：
（1）根据程序运行界面中的数据及数组a各元素的含义，数组元素a(5)的值为________（填写数值）。
（2）分析程序，可知数据库的文件名为________ （3）请在划线处填入合适的代码。
Dim a(1 to 600) as integer ‘数组大小满足处理要求 Private sub command1_click()
‘本过程由小王完成，从数据库读取指定科目的各相关数据，存储在数组a中 Dim conn As New ADODB.Conncction Dim rs As New ADODB.Recordset
Conn.ConncctionString=”provider=Microsoft.ACE.OLEDB.12.0;data source=”+”Score.accdb” Conn.Open
Set rs.ActiveConnection=conn ‘本过程的其他语句略 End sub
Private sub command2_click()
‘依据数组a中的相关数据统计各班级平均分 Dim i As Integer, j As Integer, n As Integer Dim p As Integer, sum As Integer, aver As Single ① p = n + 2 For i = 1 To n sum = 0
信息技术试卷 第9页（共12页）
next i End sub
信息技术试卷第10页（共12页）
浙江省普通高中2017学考选考（16年10月）
信息技术答案解析
一、 1.【答案】C 2.【答案】B 3.【答案】B 4.【答案】B 5.【答案】D 6.【答案】A 7.【答案】D 8.【答案】C 9.【答案】D 10.【答案】A 11.【答案】C 12.【答案】D 二、
13.【答案】（1）AVERAGE(B4:B14) （2）PM10
（3）A3:A14,D3:D14 （4）2
14.【答案】（1）3 （2）①1 ②a+b<100 （3）B
15.【答案】（1）ACD
（2）方法1：将“文字”图层第1帧（或关键帧）移动到第13帧（或第12帧）；方法
信息技术试卷 第11页（共12页） 2：在“文字”图层第13帧（或第12帧）插入关键帧，再将第1帧的内容删除。 （3）数据流 （4）A
（5）on(press){gotoAndPlay(“mian”,1);} 或on(release){gotoAndPlay(“mian”,1);} 或on(press){gotoAndPlay(1);} 或on(release){gotoAndPlay(1);} 16.【答案】（1）k=a(j-1) （2）elseif pos=j-1 17.【答案】（1）33 （2）Score.accdb （3）①n=a(1) ②sum=sum+a(p)
信息技术试卷 第12页（共12页）