浙江省杭州市2016年信息技术高考模拟卷九
试卷日期：2017-11-01 考试类型：高考模拟
一、选择题
-
1. 某日收到如图所示的微信短信，收到此条短信后正确的做法是（ ）
A、马上登陆微信，一直保持登录状态，防止他人登录成功 B、马上修改微信密码，提高安全等级 C、马上将手机换成samsung-GT-I9000 D、马上将手机关机2. 2016年春晚舞台上，540个机器人排列成四个方阵，伴着“冲冲冲，冲向最高的巅峰”的歌声，机器人高举双臂，随即倒转而立，双腿挥向空中，整齐划一，气势宏伟，让所有观众赞叹不已。这些机器人具有的3D可视化编程，可直接通过手机移动端编程，将以往需要专业人员才能进行的编程变成普通大众也能轻易完成。下列对此处“通过手机移动端编程”解释较合理的是（ ）A、此处手机移动端指可以在移动中使用的计算机设备 B、此处手机移动端特指安装了可视化编程软件的IOS设备 C、手机移动端必须通过WIFI连接的方式将程序写入计算机 D、终端设备只要安装了可视化编程软件即可实现对机器人编程3. 如图所示是使用Word制作的古诗小展板，下列说法错误的是（ ）
A、批注添加的对象是“作者信息” B、添加了1处批注 C、背景图的文字环绕方式是衬于文字下方 D、在修订模式下不能添加批注4. 声音数字化要经过采样和量化两个步骤，现有一段60S的双声道声音，采样时每秒采集12800次，并使用2字节来表示相应的量化值，预计该段声音的存储量是（ ）A、2.93M B、375K C、1.46M D、3.75M5. 如图是一个加密小程序，在①处输入一个3位数的密钥，在②处输出加密后结果。加密原理是密钥数字反向排列得到加密结果，如327加密后为723，下列程序段正确的是（ ）
A、 Private Sub Command1Click()Dim p As StringLabel3.Caption = Mid(p, 3, 1) + Mid(p, 2, 1) + Mid(p, 1, 1)End Sub B、 Private Sub Command1Click()Dim p As Stringp = Text1.TextLabel3.Caption = Mid(p, 1, 1) + Mid(p, 2, 1) + Mid(p, 3, 1)End Sub C、 Private Sub Command1Click()Dim p As IntegerDim x(1 To 3) As Integerp = Val(Text1.Text)x1 = p Mod 10X2 = p \ 10 Mod 10X3 = p \ 100Label3.Caption = Str(x1) + Str(X2) + Str(X3)End Sub D、 Private Sub Command1Click()Dim p As IntegerDim x(1 To 3) As Integerp = Val(Text1.Text)x1 = p Mod 10X2 = p \ 10 Mod 10X3 = p \ 100Label3.Caption = Str(x3) + Str(X2) + Str(X1)End Sub6. 如图所示，库中共有 种类型元件，其中影片剪辑元件有 个。（ ）
A、 5 ， 3 B、 3 ， 3 C、 3 ， 2 D、 5 ， 27. AlphaGo与李世石的人机围棋大战吸引了全世界的关注，某同学要制作一个关于AlphaGo的PPT课件用于展示，他将课件分为“开发团队”、“AlphaGo简介”、“李世石简介”、“战况分析”、“人工智能”五部分，请问这个过程属于（ ）A、创作需求分析 B、模块设计 C、脚本编写 D、媒体元素分解8. 某同学利用Photoshop软件制作了一张图片，分别保存为春天.psd和春天.bmp，他在制作一网页时应用了春天.bmp，调试发现打开网页时图像加载过慢，下列选项能解决这一问题的是（ ）A、打开春天.psd，删除所有的图层样式再保存为春天.bmp后重新应用 B、将春天.bmp的宽、高均缩减至原来的一半后重新应用 C、打开春天.psd，保存为春天.jpg后重新应用 D、将春天.bmp存放在一个单独的image文件夹中9. 制作一段视频，素材有：对白.utf，片头.wav，logo.jpg ，采访.mp4，配乐.mp3，分别将这些素材放入相应的轨道，下列匹配正确的是（ ）A
对白.utf，配乐.mp3
B
logo.jpg，片头.wav
C
对白.utf，logo.jpg
D
采访.mp4，配乐.mp3
A、A B、B C、C D、D二、综合题
-
10. 某家电商场9月份的电器销售情况如图所示
回答下列问题：
(1)、计算每样商品的占总利润之比，G3单元格应该输入的公式是(2)、观察数据表，已经进行排序的数据是(填列名，如A)(3)、将此表中的数据添加到数据库文件“家电销售.mdb”中，数据表结构如图所示，若通过“粘贴追加”的方式应该选择的数据区域是
11. 以下VB程序段的功能是用DO语句求1~1000之间满足“用3除余2,用5除余3，用7除余2”的数。并将结果在list1中列出，并在label1处显示符合条件的数的个数。Private Sub Command1Click()
Dim i As Integer
Dim j As Integer
i = 1: j = 0
list1.clear
Do While i <= 1000
If （i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2） Then
List1.AddItem i
①
j = j + 1End If
i = i + 1
Loop
Label1.Caption = Str(j)
End Sub
(1)、程序中①处应填入的代码是(2)、程序运行结束后，变量i的值为12. 使用flash制作了一个“出水芙蓉.fla”多媒体动画，动画打开后直接播放，先播放出水芙蓉场景，再播放片尾场景，影片结束后暂停。部分设计界面如图2所示。
图1
图2
回答下列问题：
(1)、鱼图层中制作了两条鱼按照一定的轨迹在水中游动，鱼按轨迹游动是通过实现的。(2)、柳叶飘动的效果是通过“柳叶1”元件实现的，该元件时间轴界面如图1所示。柳叶飘动一次需要多长时间？使用控制菜单下的“播放”测试“出水芙蓉”场景，能否看到柳叶的飘动效果？（填能/否）(3)、若要制作一个重播按钮放在片尾场景的最后一帧，实现点击该按钮后影片重新播放。则“重播”按钮上设置的动作命令是。三、选考部分—选择题
-
13. 字符E的ASCII码是69，则字符e的ASCII码转换为十六进制后是( )A、65H B、45H C、5FH D、25H14. 网络协议为计算机网络中进行数据交换而建立的规则、标准或约定的集合。电子邮件收发需遵守的协议是（ ）A、FTP B、HTTP C、SMTP D、Internet15. 有下列VB程序段，为了使运行结束后s=1，t=5，则a和b的值应满足的条件是（ ）
s = 1: t = 1
If a > 0 Then s = s + 1
If a > b Then
t = s + t
ElseIf a = b Then
t = 5
Else
t = 2 * t
End If
A、a<=0 And a>b B、a>0 And a=b C、a<=0 And a=b D、a<0 And a<b16. 有下列VB程序段，程序运行结束后，变量i，Sum，t的值是（ ）i = 1: Sum = 0: t = 0
Do While i <= 10
If i Mod 3 = 0 Then
Sum = Sum + i
Else
t = t + 1
End If
i = i + 1
Loop
A、Sum=18，i=10 B、Sum=18，i=11 C、Sum=37，t=3 D、i=10，t=7四、选考部分—综合题
-
17. 下列程序段实现对num数组进行排序，并将排序结果输出。
Private Sub Command1Click()
Dim num(0 To 5) As Integer
Dim i As Integer, j As Integer
Dim t As Integer
num(0) = 4: num(1) = 7: num(2) = 2: num(3) = 0: num(4) = 3: num(5) = 9
i = 0: j = 1: t = 0
For i = 1 To 5 Step 1
For j = i + 1 To 4 Step 1
If num(i) > num(j) Then
t = num(i)
num(i) = num(j)
num(j) = t
End If
Next j
Next i
For i = 1 To 5
List1.AddItem num(i)
Next i
End Sub
(1)、程序段中使用的排序算法是(2)、经过第一轮排序后num(2)的值是18. 某仓库货物查询系统，数组id保存货物编号（货物编号已经按照从小到大的顺序保存），数组n保存货物名称，数组c保存货物数量。数组中的数据信息一一对应。该系统提供3种查询方式，查询优先级最高的是按编号查询，其次是按名称查询，最低的是按数量查询（在输入多个查询条件的情况下，只按照优先级高的条件进行查询，其中按数量查询可以查询到所有货物数量小于输入值的结果）并将查询结果在list1中显示。程序界面如图2-1所示。
部分程序代码如下：
Public number As String '货物编号
Public na As String '货物名称
Public co As String '货物数量
Private Sub Command1Click()
Dim flag As Integer '查询结果标志
number = Text1.Text
na = Text2.Text
co = Text3.Text
If (number = "" And na = "" And co = "") Then MsgBox ("你还没有输入查询条件") ’第一种情况
If number <> ""Then ’第二种情况
flag = searchnum(1, n) 'n 表示总的货物种类数量
List1.AddItem id(flag) + n(flag) + c(flag)
If flag = -1 Then MsgBox ("查询无结果，检查是否输入有误")
End If
If na <> "" Then ‘第三种情况
flag = searchna(1, n) 'n 表示总的货物种类数量
List1.AddItem id(flag) + n(flag) + c(flag)
If flag = -1 Then MsgBox ("查询无结果，检查是否输入有误")
End If
If co <> "" Then ‘第四种情况
flag = searchco(1, n)
If flag = 0 Then MsgBox ("查询无结果，检查是否输入有误")
End If
End Sub
Function searchnum(i, j) As Integer '按编号查询函数
Dim m As Integer
Do While i <= j
m = Fix((i + j) / 2)
If id(m) = number Then
searchnum = m: Exit Function '查询到结果返回值并结束该函数
End If
If id(m) > number Then ① Else i = m + 1
Loop
searchnum = -1
End Function
Function searchna(i, j) As Integer '按名称查询函数
For i = 1 To j Step 1
If n(i) = na Then searchna = i: Exit Function
Next i
searchna = -1
End Function
Function searchco(i, j) As Integer '按货物数量函数
Dim f As Integer
f = 0
For i = 1 To j Step 1
If ② Then
List1.AddItem id(i) + n(i) + c(i)
f = 1
End If
Next i
searchco (f)
End Function
回答下列问题：
(1)、程序中划线处应填入的代码是：①②(2)、Sub Command1 Click()事件处理过程中，使用了4个IF语句区分四种情况分别进行查询。按照题目所给的程序代码能否实现只按照优先级高的条件进行查询？(填是/否)