浙江省杭州市2015年高考信息技术模拟卷9
试卷更新日期：2018-01-17 类型：高考模拟
一、选择题
-
1. 微信“扫一扫”功能能够扫描二维码得到相关人员的名片或网站网址信息，该过程属于( )A、信息采集 B、信息编码 C、信息发布 D、信息表达2. 用UltraEdit软件观察“Yellow黄色”这几个字符的内码,如图所示，则“Zoo”这几个字符的内码是( )
A、60 4F 4F B、60 6F 6F C、5A 6F 6F D、5A 6F 4F3. 某网店有评价如图所示，则该评价属于( )
A、个人推荐 B、统计评价 C、专家评价 D、核心刊物评价4. 使用Word编辑某文档，部分界面如图所示，如果全部接受图中所示的修订内容，则第一句中的文字将变为：( )
A、红外简称为ＩＲ，它是一种电磁波，波长范围为760nm~1mm之间。 B、红外线英文简称为ＩＲ，它是一种电磁波，波长范围为760nm~1mm之间。 C、红外简称是红外线，它是一种电磁波，波长范围为760nm~1mm之间。 D、红外简称为ＩＲ，它是一种电磁波，红外编码的波长范围为760nm~1mm之间。5. 某access数据库打开后如图所示，下列描述正确的是( )
A、该数据库文件名为“log:数据库” B、该数据库里共有5张表 C、表“connectionlog”是一张空表 D、表“user_syfwrzb”只有2条记录6. 某算法流程图如图所示，该算法实现的功能为( )
A、交换x,y两数的值 B、求x,y两数最大值 C、求x,y两数最小值 D、以上都不对7. 小曹准备制作主题为"班主任的传奇人生"多媒体作品，在创作需求分析阶段涉及分析创作作品所需的软件配置、最低运行硬件配置。这一环节内容属于（ ）A、主题思想分析 B、结构内容分析 C、设施需求分析 D、发布方式分析8. 未经压缩的BMP图片，如左图所示。若用图像编辑软件进行处理，并按原参数、式和文件类型保存为下图所示，则下列描述正确的是( )
A、右图占用存储空间比左图占用存储空间要更大 B、右图所用的象素比左图所用的象素要多。 C、右图位深度比左图位深度要更大 D、右图与左图占用存储空间一样大。9. 某Flash作品的“音乐”图层中，应用“秋日私语.mp3”声音时，属性设置如下图所示，则下列说法正确的是（ ）
A、该声音为单声道音频 B、点击“编辑”按钮后可对声音进行裁剪 C、影片播放时暂停，声音也会暂停 D、声音同步属性不能修改10. 使用“会声会影”软件进行影视创作，部分操作界面截图如图所示， 能够进行转场效果设置的（ ）
A、① B、② C、③ D、④二、综合题
-
11. 小高一家准备出行远游，由小高负责对打算出游城市查询天气状况并决定是否出行。请根据图示回答问题。
(1)、若要使表格标题合并居中并设置相应的字号，则应使用单元格格式对话窗口中的功能达到相应目的。(2)、表格中的日期可以使用excel提供的功能完成输入。(3)、选中G3单元格，输入Ｍax(B3:B12)，按回车后，G4单元格将显示。(4)、小高选中A2单元格后，按住Ctrl键不放，鼠标依次拖曳选中A2:A12，C2:C12单元格，然后开始建立图表，在选择择线图类型之后出现图3所示情况，请分析该问题出现 阶段（填：选择图表类型/选择图表源数据/设置图表选项）。
图3
12. 某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图1所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。
(1)、在应用程序界面设计时，为添加“计费”按钮，应使用图2所示的“控件工具箱”中的（请填写相应编号），并在图3所示的“属性窗口”中，将属性值设置为“计费”。(2)、请根据题意将下列程序补充完整。Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <= 60 Then
zyfy = 0
ElseIf zysj <= 120 Then
zyfy = 1
ElseIf zysj <= 180 Then
ElseIf zysj Mod 60 = 0 Then
zyfy = (zysj - 180) / 60 * 3 + 3
Else
zyfy = (Int((zysj - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub
13. 小李与小葛准备用photoshop软件，针对银临的《腐草为萤》网络音乐专辑设计封面，希望以此发扬古风文化，使用素材如图1所示，当前编辑窗口如图2所示。
(1)、点击图2中①处眼睛标记，结果发现②处印章区域中的文字也消失了。可能的原因是。(2)、在图层银临背景隐藏的前提下将该图片文档另存为JPG格式图片，请问保存后的JPG图片是否有印章显示。（填是或否）14. 小曹制作了主题为“班主任的传奇人生”相关的Flash动画，其中main场景的制作界面如图1所示。
请回答下列问题：
(1)、若动画中没有任何动作命令，在执行“测试影片”命令时，当播放完“期望录音”场景时，接着播放场景。(2)、从图中所给库面板中可以看出该Flash作品缺少类型的元件。(3)、若要使该Flash动画在测试影片时停留在“目录”场景的最后一帧，则可以选择“目录”场景“目录”图层的第79帧设置帧动作，命令为：。(4)、在测试影片状态下，将鼠标分别移至四个按钮后，发现当鼠标移至按钮“摄影作品”时没有改变鼠标指针形状，该按钮编辑状态如图2所示，据此分析推断可能原因是。
三、选择题
-
15. 已知Asc(“A”)的值为65，下列Visual Basic表达式的值等于数值131的是（ ）A、ASC(“A+B”) B、CHR(65)+CHR(66) C、"13"+"1" D、Abs(69-200)16. 有如下VB程序段：
bianliang_a = 3:bianliang_b = 4
Label1.caption = “bianliang_a*bianliang_b”
该程序段运行之后，标签Label1将显示：( )
A、3*4 B、12 C、bianliang_a*bianliang_b D、3*4=1217. 某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是 ( )A、2 5.5 3 6.2 4.5 B、2 3 6.2 4.5 5.5 C、2 4.5 6.2 3 5.5 D、2 3 5.5 4.5 6.218. 某查找算法的部分VB代码如下：shifouzhaodao = False ‘shifouzhaodao：是否找到
szysxh = 0 ‘szysxh：数组元素序号
Do While szysxh < 5 And not shifouzhaodao
szysxh = szysxh + 1
if dczsz(szysxh) = Key then shifouzhaodao = true
Loop
if not shifouzhaodao then szysxh = 0
数组元素dczsz (1)到dczsz (5)的数据依次为“-1，3，7，10，7”，当变量key值为7时，运用该算法处理后，变量i的值是( )
A、0 B、-1 C、3 D、5四、综合题
-
19. 下列VB程序运行时，单击命令按钮Command1后，若在文本框中输入10，则标签Label1显示的内容是
Private Sub Command1_Click()
Dim sjzs As Integer
Dim rjzs As String
sjzs = Val(Text1.Text)
rjzs = ""
Do While Int(sjzs / 2) > 0
rjzs = Str(sjzs Mod 2) + rjzs
sjzs = Int(sjzs / 2)
Loop
Label1.Caption = rjzs
End Sub
20. 自幂数是指一个 n 位数，它的每个位上的数字的 n 次幂之和等于它本身。使用枚举法寻找5位数以内的自幂数算法如下：
⑴使用循环列出1到99999中的每一个数zmsknz
⑵通过自定义函数ddknzms拆解得到每个数中的每位数上的数码及它们对应的n次幂之和
⑶将zmsknz与ddknzms进行比较，若相等则说明是自幂数，可将其加入列表。
编写VB程序，使用枚举法得到5位数以内的自幂数，程序设计界面如图所示：
请根据算法及相应注释将下面的程序补充完整：
Function ddknzms(zmsknz As Long) As Long '得到可能的自幂数
Dim zmsknz_str As String '字符串类型自幂数可能值
Dim zmsknz_length As Integer, zmswsxh As Integer '字符串类型自幂数可能值字符个数
zmsknz_str = Trim(Str(zmsknz))
zmsknz_length = Len(zmsknz_str)
For zmswsxh = 1 To zmsknz_length
ddknzms = ddknzms + Val(Mid(zmsknz_str, zmswsxh, 1))^
Next zmswsxh
End Function
Private Sub Command1_Click()
Const ZMSWS = 5
Dim zmsknz As Long, zmsknz_zz As Long
zmsknz_zz = 10 ZMSWS - 1
For zmsknz = 1 To zmsknz_zz
If Then List1.AddItem (Str(zmsknz)
Next zmsknz
End Sub
21. 某校学生会选举需要从学校数据库中随机抽取若干名学生作为监票人。该数据库文件名为school.mdb，其中数据表student存储有关学生学号（xuehao）、姓名（xingming）相关信息，括号内的内容为对应字段名。该程序编辑界面如图所示，相关对象名可参考标识图。当主持人点击按钮“生成抽号”后，下方的标签会显示可抽取的学号姓名，一定时间后显示被抽取作为监票人的学号姓名。
'xxxss:学校学生数，kcq:可抽取
'xhxm:学号姓名，kcq:可抽取
Dim xxxss As Integer
Dim xhxm(3000) As String
Dim kcq(3000) As Boolean
'cq_Click:启用两个定时器
Private Sub cq_Click()
cqxhxm.Enabled = True
xskcqxhxm.Enabled = True
End Sub
Private Sub cz_Click() '初始化数组kcq，使每个元素数据都处于可显示状态
For i = 0 To xxxss - 1
kcq(i) = True '①
Next i
End Sub
Private Sub xskcqxhxm_Timer() '若数组kcq第x个元素处于可抽取状态，则显示数组xhxm第x个元素
x = Int(Rnd * xxxss)
If kcq(x) Then xhxmbq.text = kcq(x) '②
End Sub
Private Sub Form_Load() '从数据库中提取需要的学号姓名相关数据并初始化数组kcq
Randomize
xxxss = 0
Dim conn As New ADODB.Connection,rs As New ADODB.Recordset
Dim str_conn as String,str_sql As String
str_conn = "driver=Microsoft access driver(*.mdb);DBQ="&app.path&"\school.mdb";
conn.open str_conn
str_sql = "select * from students"
rs.open str_sql
Do While Not rs.eof
xxxss = xxxss + 1
xhxm(xxxss) = rs.fields("xuehao")&rs.fields("xingming")
rs.movenext
Loop
For i = 0 To xxxss - 1
kcq(i) = True
Next i
End Sub
Private Sub cqxhxm_Timer() '决定抽取的学号姓名作为监票人
xskcqxhxm.Enabled = False
For i = 0 To xxxss - 1
If xhxmbq.Caption = xhxm(i) Then kcq(i) = False
Next i
cqxhxm.Enabled = False
End Sub
①
②