浙江省“七彩阳光”新高考研究联盟2019-2020学年高三上学期信息技术期中联考试卷
试卷更新日期：2019-11-28 类型：期中考试
一、选择题(本大题共12小题，每小题2分，共24分。)
-
1. 下列关于信息的说法，正确的是（ ）A、人脑虽然能记忆，但是不能作为信息的载体 B、扫描二维码并关注公众号的过程属于信息的编码 C、信息技术包含微电子技术、通信技术、计算机技术和传感技术等 D、信息具有载体依附性，所以不可以脱离它所反映的事物被存储、保存和传播2. 下列关于网络和网络协议，说法正确的是（ ）A、通过“网页，仅HTML”方式保存网页，得到的文件是用HTTP语言描述的 B、计算机网络中的一系列协议，都是信息表达规范化的体现 C、SMTP协议可以实现将发件人的邮件直接发送到收件人的计算机中 D、制作网页的工具软件有Internet Explorer、FrontPage、Dreamweaver、记事本等3. 使用 Word 软件编辑某文档，部分界面如图所示。下列说法正确的是（ ）
A、实现图中的图文环绕方式效果可以采用“嵌入型”环绕方式 B、单击图中文字“图片欣赏”可直接访问https://image.baidu.com/ C、文中有 3 处修订，1 处批注，添加批注用户名是“a” D、修订状态下，用“查找替换”功能替换的文字不会带有修订标记4. 某ASCII 码字符加密方法描述如下：⑴以1个字节为单位进行处理
⑵高位段（左边4位）左移一位，最低位用左移出的最位高填充，低位段（右边4位）右移一位，最高位用右移出的最低位填充
⑶分别将上述两段二进制转换为十六进制，所得两位十六进制依次连接即为密文则字符“H”的密文是（ ）
A、84 B、23 C、C0 D、725. 使用Access软件打开数据表，部分界面如图所示，当前状态下，下列说法不正确的是（ ）
A、“班级藏书”表不能进行重命名 B、“收藏日期”字段的数据类型是“日期/时间” C、“书籍编号”字段无法删除，可能该字段被设置为主键 D、“是否借出”字段数据类型改为“文本”后，其字段的值变为“yes”/“no”6. 将一幅1920×1080像素，颜色位深度为24位的BMP图像文件，另存为JPG图像文件后，存储容量为552KB，下列说法不正确的是（ ）A、BMP图像和JPG图像均属于位图 B、BMP图像文件容量约为5.9MB C、此过程属于有损压缩 D、压缩比约为8:17. 某算法部分流程图如图所示。执行这部分流程，依次输入：22、29、38、47、16、33、37、28、55、18、28。则输出值是（ ）
A、2 B、4 C、6 D、88. 下列表达式的值不等于 6 的是（ ）A、Int(6.9) B、Len("我和我的祖国") C、Sqr(Abs(Int(-35.6))) D、Asc("K") - Asc("F")9. 有下列VB程序段：Dim strA As String, strB As String
strA = "hongda"：strB = ""
For i = 1 To Len(strA) * 2
If i / 2 = Int(i / 2) Then
strB = strB + Chr(Asc(Mid(strA, (i - 1) Mod Len(strA) + 1, 1)) + 2)
End If
Next i
该程序段运行后，变量strB的值是（ ）
A、"jpfqic" B、"qicqic" C、"phbqic" D、"qicoga"10. 有如下 VB 程序段：Function fact(n As Integer) As String
If n = 1 Then
fact = fact & 1
Else
fact = fact(n \ 2) & n Mod 2
End If
End Function
Private Sub Command1_Click()
Dim x As String, i As Integer, r As Integer
x = Text1.Text
For i = 1 To Len(Text1.Text)
If Mid(x, i, 1) = "." Then Exit For Next i
r = Val(Mid(x, i + 1, Len(Text1.Text) - i)) Text2.Text = fact(r)
End Sub
在文本框Text1中输入2019.70，则执行程序段，在文本框Text2中显示的内容是（ ）
A、1000110 B、70 C、350 D、10001111. 采用拉锯式排序法对无序数组元素实现降序排序，即前一遍把最大的元素从右到左送到最左的位置，后一遍把最小的元素是从左到右送到最右的位置，实现该功能的VB程序段如下：
c = 1: s = 10
Do While c <= s
For i = s To c + 1 Step -1
If
Thent = a(i - 1): a(i - 1) = a(i): a(i) = t
End IfNext i
For i=
If
Thent = a(i + 1): a(i + 1) = a(i): a(i) = t
End IfNext i
c = c + 1
s = s - 1Loop
上述程序段三个方框处的语句分别为（ ）
A、① a(i - 1) < a(i) ② c +1 To s – c ③ a(i) <a(i + 1) B、① a(i - 1) > a(i) ② c +2 To s – c ③ a(i) >a(i + 1) C、① a(i - 1) < a(i) ② c +1 To s – c-1 ③ a(i) <a(i + 1) D、① a(i - 1) > a(i) ② c+ 2 To s – c+1 ③ a(i) >a(i + 1)12. 下图是通过VB程序读取“GDP2018.accdb”文件中的GDP总量，显示在列表框中，部分代码实现如下：
Private Sub Command1_Click() ‘列表框中输出 b(i)，代码略
End Sub
Private Sub Form_Load()
conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DATASource="& App.Path & "\GDP2018.accdb" conn.Open：Set myrecord.ActiveConnection = conn：myrecord.Open "GDP"
n = 0
Do While Not myrecord.EOF n = n + 1
a(n) = myrecord.Fields("2018")
b(n) = Left(myrecord.Fields("Area"), 5) & " " & myrecord.Fields("2018") myrecord.MoveNext
Loop
conn.Close: myrecord.Close: Set myrecord = Nothing: Set conn = Nothing End Sub
下列说法不正确的是（ ）
A、ConnectionString是实例conn的属性 B、myrecord.Fields("2018")返回当前记录中“2018”字段的值 C、a(1)读取后执行myrecord.MoveNext将读取下一条记录，即a(2)=“中国” D、myrecord.Fields("2018")也可以写成myrecord.Fields(3)二、非选择题（本大题共4小题，4+8+7+7，共26分）
-
13. 小林收集2018年度国内影院电影票房排行榜数据，并使用Excel软件进行数据处理，如图a
所示。
图 a
请回答下列问题：
(1)、如图a所示，区域H4:H13通过计算得到排名前十的各电影占2018年度电影总票房的占比，在H4单元格输入公式后，用自动填充功能完成H5:H13的计算，则H4单元格的公式是。(提示：票房占比%=票房/总票 房×100)(2)、若将区域B3：H13的数据复制到新的工作表中，在新工作表中对数据按照主关键字“上映日期”，次要关键字“票房占比（%）”，进行升序排序，排序后的第2条记录的影片名是。(3)、根据图a中数据制作的“2018年动作电影票房占比（%）”图表如图b所示，创建该图表的数据区域为C3：C4，H3：H4，C8，H8， 。
图 b
(4)、根据图a中数据直接制作的图表如图b所示，其中《海王》与《毒液：致命守护者》对应的两条直条长度是否相同?（填写：是/否）14. 小明制作主题为“我们的时代”的多媒体作品。
图 a
(1)、使用Photoshop软件编辑“烟花.jpg”文件，如图a所示，编辑后存储为透明背景图片格式，导入flash中，选出正确的操作步骤 （多选，填字母）。A、双击“背景”图层解锁，利用“魔棒工具”选择白色区域 B、按下“Delete”键 C、利用“选择”菜单“反向”操作后再拷贝粘贴至Flash 舞台 D、存储为 JPG 或GIF 格式后导入 Flash 库中 E、存储为GIF 或 PNG 格式后导入 Flash 库中(2)、使用Flash软件编辑“我们的时代.fla”文件的部分界面如图b所示，请回答下列问题：
图 b
将动画GIF文件“白鸽.gif”导入库中直接得到一个影片剪辑元件，则该元件中动画的动画类型是。（单选，填字母， A .形状补间动画/ B .动画补间动画/ C .逐帧动画）
(3)、舞台的大小为550×400像素，“白鸽5”图层设置动画补间动画实现白鸽从左下侧飞入舞台后再从舞台右上侧飞出，补间动画首尾关键帧中的“白鸽”实例的位置坐标最有可能为（单选，填字母： A .首(-50,280)、尾(580,50)/B . 首(-50,-280)、尾(580,-50)/ C . 首(50,-280)、尾(-580,50))。(4)、“文字”图层实现文字由小变大淡入的效果，为使补间动画变化效果持续3秒，之后延续到该场景结束，正确的操作是。(5)、测试影片时，单击“片头”场景中的“进入”按钮，实现声音暂停播放同时影片跳转到“主场景”第1帧并开始播放，弹出如图c所示的错误提示窗口。则“进入”按钮上正确的动作脚本为。
图 c
15. 某学校要进行年级优秀生表彰，需要对n人的优秀生单独排位置，每行m人。排队方阵规则：第1行从左向右坐，第2行从右向左坐，第3行从左向右坐，第4行从右向左坐……不断重复。最后一行如果人数不满m人，一律从左往右坐。VB程序功能如下：Text1输入m的值，确定每行坐的人数，单击按钮后，在List2列表框中显每位同学的位置，在List3列表框中显示每位同学的4位数位置编号（行号+列号），如下图所示。实现上述功能的VB代码如下：
依据上述描述设计如下VB程序：
Dim xh(1 To 100) As Integer , xm(1 To 100) As String, cj(1 To 100) As Integer Dim n As Integer, m As Integer
Private Sub Form_Load()
'本过程从数据库依次读取n位同学的序号、姓名及成绩，然后按成绩降序排序，将学生序号、姓名成绩存储在数组xh、xm、cj中，结果显示在List1中，
End Sub
'显示每位同学的位置
Private Sub Command1_Click()
Dim wz As String
m=Val(Text1.Text)
For i = 1 To n \ m
For j = 1 To m
If ① Then
wz = wz + xm((i - 1) * m + j) + " "
Else
wz=xm((i-1) * m + j)+" "+wz
End If
Next j
List2.AddItem wz
wz =" "
Next i
If n Mod m <> 0 Then
For i=
To n ‘加框处改错wz = wz + xm(i) + " "
Next i
List2.AddItem wz
End If
End Sub
'显示每位同学的位置编号
Private Sub Command2_Click()
Dim zu As Integer
Dim ha As String, hb As String
List3.AddItem "序号" & vbTab & "姓名" & vbTab & "位置" 'vbTab 用于字符对齐
For i = 1 To n
zu = ②
ha = Trim(str(zu))
If Len(ha) = 1 Then ha = "0" + ha
If zu Mod 2 = 0 And zu <= n \ m
Then hb = ③
Else
hb = Str(i - m * (zu - 1))
End If
hb = Trim(str(hb))
'Trim 函数功能是去除字符空格
If Len(hb) = 1 Then hb = "0" + hb
List3.AddItem str(i) & vbTab & xm(i) & vbTab+ ha + hb
Next i
End Sub
请回答下列问题：
(1)、在设计程序界面时，要清空文本框中的显示内容，应修改文本框的属性。(2)、程序中加框处代码有误，请改正。(3)、请在①②③划线处填入适当的代码。① ② ③
16. 由n行数字组成的数字三角形如图所示。设计一个算法，对于由n行数字组成的数字三角形（数字范围[1，50]，计算从三角形的顶至底的路径经过的数字和的最大值，每一步可以从当前点走到左下方的点也可以走到右下方的点。
寻求路径最大值的算法设计如下：
按三角形的行划分，若有n行，则有n-1个步骤
①从底层开始，本身数即为最大值
②倒数第二层的计算取决于底层的数据：
12+6=18,13+14=27,24+15=39,24+8=32；
③倒数第三层的计算取决于底二层的数据：
27+12=39,39+7=46,39+26=65；
④倒数第四层的计算取决于底三层的数据：
46+11=57,65+8=73；
④最后的路径：13—8—26—15—24其和为86。
根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框text1中输出最大值。
依据上述描述设计如下VB程序：
Const n = 5
Dim sx As String
Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear
For i = 1 To n For j = 1 To i
①
sx = sx + Str(a((i - 1) * n + j)) Next j
For k = n To i Step -1 sx = " " + sx
Next k List1.AddItem sx sx = ""
Next i End Sub
Private Sub Command2_Click() For i = n To 1 Step -1
For j = 2 To i
If ② Then
a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)
Else
a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)
End If Next j
Next i
③
End Sub
请回答下列问题：
(1)、若数字金字塔如图
，输出路径最大值是。
(2)、请在①②③划线处填入合适的代码。① ② ③