浙江省杭州市2016年信息技术高考模拟卷一
试卷更新日期：2017-10-28 类型：高考模拟
一、选择题
-
1. 用户将“新毒霸”设置为“自动升级”，其目的是及时更新病毒库，以便更有效地起到杀毒与防毒作用，这一过程主要体现了信息的（ ）
A、时效性 B、载体依附性 C、共享性 D、传递性2. 若在二进制数最后加上两个数字0，形成一个新的二进制数，则新数值是原数值的（ ）
A、100倍 B、2倍 C、3倍 D、4倍3. 小强创作一个主题为“绿色出行 助力G20”的多媒体作品。在创作之前对这个作品的使用频率、所需资金及产生的经济效益进行分析。这属于（ ）
A、应用需求分析 B、创作需求分析 C、结构设计 D、模块设计4. 用Ultraedit软件观察字符串“Aisa”的内码，部分界面如下图所示：
则大写“A”与小写“a”字符之间还有多少个其他的字符（ ）
A、19个 B、20个 C、31个 D、32个5. 某同学发送邮件的界面如下图所示，下列说法正确的是（ ）
A、有3个人能收到该邮件 B、邮件的“主题”不能为空，否则将发送失败 C、邮件中添加3个图片附件 D、邮件的附件可以继续添加，并且对附件的大小没有限制6. 小静准备了一幅名为flower.jpg的鲜花图片，一段名为meadow.mpg的有关草原风光的视频素材，她通过会声会影软件对这两个素材进行如下操作：① 新建一个项目
② 分别将素材文件flower.jpg及meadow.mpg导入到故事板的视频轨中
③ 添加字幕“共度好时光”，如下图所示：
④ 创建视频文件，以happy.mpg为文件名保存
当播放happy.mpg文件时，下列描述正确的是（ ）
A、先播放meadow.mpg视频素材中的内容，然后出现字幕 B、字幕与flower.jpg图像内容同时出现 C、先播放flower.jpg图像内容，再出现字幕，最后播放meadow.mpg视频素材内容 D、先播放flower.jpg图像内容，再播放meadow.mpg视频素材内容，最后出现字幕7. 某Access数据表打开后如下图所示：
下列描述中错误的是（ ）
A、该数据表中共有记录13条 B、删除“销售日期”字段后，记录数不会少 C、该数据表的名称是“商品销售登记1” D、“序号”字段的类型是数字型8. 用Photoshop编辑“蓝天.psd”时，部分界面如图
若仅将“海鸥”图层中的图像由300＊300像素缩小为50＊50像素，下列方法最合适的是（ ）
A、使用“裁切”工具 B、使用“编辑”菜单中的“自由变换”命令 C、使用“缩放”工具 D、使用“图像”菜单中的“图像大小”命令9. 小青制作Flash作品时把库中的“足球”元件应用到场景1“足球”图层第1帧中，放在舞台的草地位置，发现舞台中并无“足球”显示，下列情形中最有可能的是（ ）
A、“足球”图层已被锁定 B、“足球”图层已被隐藏 C、“足球”图层以轮廓显示 D、足球图形被背景图层的内容挡住了二、主观题
-
10. 用Excel软件对教师招聘考试成绩进行统计，界面如图1所示，回答下列问题：
图1
(1)、计算每个教师的“笔试成绩”，是用F4单元格公式填充到F5:F20区域得到，其中F20单元格中的公式为。
(2)、观察第图1，当前工作表进行了排序操作，排序的主要关键字和次要关键字依次是、。
(3)、选中B3:F20单元格区域，按照图2所示对“笔试成绩”进行自定义筛选，筛选后将显示行数据。
图2
11. 用VB软件编写判断闰年的年份。界面如图1所示，文本框Text1输入年份，单击“判断”按钮Command1，在文本框Text2中输出判断结果（闰年的判断条件是：能被 4 整除但是不能被100整除；或者能被四百整除）。
(1)、应用程序界面设计时，Text1文本框内没有内容显示，这是由于将其属性名为的值设置为空，窗口显示“闰年判断”是将窗体属性名为的值设置成了“闰年判断”。
(2)、请根据题意将下列程序补充完整。Private Sub Command1Click()
Dim Year As Integer
①
If (Year Mod 4 = 0) And (Year Mod 100 <> 0) Or (Year Mod 400 = 0) Then
Text2.Text = "是闰年"
Else
Text2.Text = "不是闰年"
End If
End Sub
为实现上述功能， 程序①加框处应填写为
12. 张丽制作一个多媒体作品：(1)、使用GoldWave软件编辑名为“高山流水.wav”音频文件，界面如第12题-图1所示，请回答下列问题。
图1①当前播放整个音频文件时间需秒，其存储容量约为MB(结果保留两位小数)。
②在图1状态下，若仅保留选中部分的音频文件，可以直接使用工具栏中的按钮命令。
(2)、张丽用处理好的素材制作Flash作品，她设计的“片尾”场景脚本和时间轴如下：模块名：“片尾”场景
类别序号：7
进入方式：由“主界面”场景单击“退出”按钮进入
呈现方式：
1.“片尾文字”从舞台正下方缓缓移动到舞台中间位置。
2.“关闭动画”按钮位于舞台的右下方，单击按钮关闭动画播放。
呈现顺序说明：
1.一开始停止所有的音乐，然后播放“高山流水”音乐。出现“片尾”文字。
2.最后出现“关闭动画”按钮，并停止播放。
图2
回答下列问题：
①“片尾”场景共有图层数为个；“按钮”图层的第30帧中放有一个“关闭动画”按钮，则测试该场景时，“按钮”图层中的按钮是否可见？（填：可见/不可见）。
②根据第图2 ，利用“片尾文字”元件在“文字”图层制作动画，其使用的补间动画类型是：。
③根据脚本要求，“片尾”场景中“关闭动画”按钮应添加的动作命令是：。
三、加试题—选择题
-
13. 在保持纵横比的情况下，将一幅1024×768像素图像的宽度调整为50%，其他参数均不变，则图像存储容量约为原图像的（ ）
A、1/4 B、1/3 C、1/2 D、1/514. 下列属于正确的Visual Basic表达式是（ ）
A、a+b*|c| B、a3+2 C、5n+1 D、2•h/g15. 某4S店2015年7到12月的销售数据存放在数组a中，如下表所示a(1)
a(2)
a(3)
a(4)
a(5)
a(6)
69
58
32
21
39
33
若采用冒泡排序算法对这组数据进行升序排列，那么在完成第一遍排序时，数组元素a(1)到a(6)的数据依次是（ ）
A、21,69,58,32,39,38 B、21,58,69,32,33,39 C、21,69,58,32,33,39 D、69,58,21,32,39,3316. 在包含100个元素的数组a中，寻找最小值的Visual Basic程序段如下：min = a(1) '变量min用于存储最小值
For i = 2 To 100
Next i
则方框中最合适的语句是（ ）
A、If a(i) < min Then min = a(i) B、If a(i) < min Then a(i) = min C、If a(i) > min Then min = a(i) D、If a(i) > min Then a(i) = min四、加试题—主观题
-
17. 编写“八进制转换器”的VB程序，程序原理是：除八取余法。运行程序，在文本框Text1中输入整数n，单击“转换”按钮Command1，在标签Label1中显示将n转换为八进制的数值，程序代码如下。
Private Sub Command1Click()
Dim y As Integer '用于存储输入的十进制自然数
Dim s As String '用于存储转换后的结果
Dim r As Integer
n = Val(Text1.Text)
s = ""
Do While n <> 0
r = ① '采用除八取余法
s = Str(r) + s '将余数添加到结果s中
n = n \ 8
Loop
Label1.caption=s
End Sub
请根据题意将程序补充完整。
(1)、程序完整后，文本框Text1输入“12”，则Label1中输出的数值是。
(2)、①处应填入的代码为。18. 某超市举行VIP客户积分换购活动，VIP客户根据卡内积分多少可换取不同额度的代金券。假设VIP客户共有n名，VIP卡内积分存放在数据库“customer.accdb”的Integral表中，换购活动的VB程序代码如下，程序运行时界面如图所示。工作人员在文本框Text1中输入VIP卡号后，单击“换购”按钮Command1，在文本框Text2中输出VIP客户的积分数，在标签Label3中显示可以换购的代金券额度,积分清零。按此要求编写程序如下, 但加框处代码有错,请改正。
Dim ID（ ） As String '用于存放客户卡号
Dim total（ ） As Long '用于存放积分数
Dim sc As Long 'VIP客户人数
Dim jf As Long '积分数
Private Sub Command1Click（ ）
Dim k As String '客户卡号
Dim q As Long '代金券额度
Dim i As Long
k = Text1.Text
For i = 1 To sc ’顺序查找
If ID（i） = k Then
jf = total（i）
cash（jf） = q ’ ①
Exit For
End If
’ ②
Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”
Next i
End If
End Sub
' cash函数用于计算VIP客户可换购的代金券额度
Function cash（jf As Long） As Long
If jf >= 2000 And jf <= 20000 Then
Cash = jf\2000*10
ElseIf jf > 20000 And jf <= 50000 Then
Cash = jf\2000*11
ElseIf jf > 50000 And jf <= 100000 Then
Cash = jf\2000*12
ElseIf jf > 100000 And jf <= 150000 Then
Cash = jf\2000*13
ElseIf jf > 150000 Then
Cash = jf\2000*14
End If
End Function
Private Sub FormLoad（）
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim intSQL As Long
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\ customer.accdb"
conn.Open
intSQL = "SELECT score FROM Integral"
Set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
rs.Open intSQL
sc = 0
Do While Not rs.EOF
sc = sc + 1
total（sc） = rs.Fields（"score"）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
(1)、加框处①有错，应改为。(2)、横线处②，应填入的语句是。