浙江省普通高中2017学考选考(16年10月)信息技术试卷及答案解析

------------ -------------在 _______ ________--------------------____此号__证__考__准___ _ _ ____--------------------____卷__________________名__姓___-------------------- _ _上 __________________________--------------------校__答学业毕--------------------题--------------------无--------------------效17.【加试题】小李与小王合作编写一个成绩统计的VB程序:小王编写一个过程,该过程从数据库读取某一指定科目的相关数据,存储在数组a中;小李编写一个过程,该过程依据数组a中的相关数据统计各班平均分。小李与小王约定的数组a各元素含义如图所示。

程序功能如下:在文本框text1中输入科目名称,单击“读取数据库”按钮command1,程序从数据库读取数据;单击“开始统计”按钮command2,程序进行统计处理,结果输出在列表框list1中。程序运行界面如下图所示。

实现上述功能的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中的相关数据统计各班级平均分

信息技术试卷 第9页(共12页)

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

For j = 1 To a(i + 1) ② p = p + 1 Next j

aver = sum / a(i + 1)

list1.additem str(i)+\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

信息技术试卷 第11页(共12页)

②a+b<100 (3)B

15.【答案】(1)ACD

(2)方法1:将“文字”图层第1帧(或关键帧)移动到第13帧(或第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页)

联系客服:779662525#qq.com(#替换为@)