浙江省之江教育评价2020-2021学年高三下学期信息技术返校联考试卷
试卷更新日期：2021-03-18 类型：开学考试
一、选择题(本大题共12小题，每小题2分，共24分｡)
-
1. 下列关于信息的说法，错误的是（ ）A、计算机处理数字化后的信息通常需要软件支持 B、信息可以传递和共享，在传递过程中可以有多种方式 C、信息本身是看不见摸不着的，因此不可以用某种方式表现 D、信息的表达技术有电视、广播、微信、微博、QQ等2. 下列关于网站与网页描述正确的是（ ）A、保存网页就是收藏网页地址 B、HTTP语言可以描述网页内容 C、以“网页，仅HTML”方式保存网页，可以保存网页中的超链接、表格和图片 D、记事本可以编辑网页，IE浏览器可以解析网页内容3. 使用Access软件建立某物资信息管理的数据库，其中“抢险人员”表如图所示。下列说法错误的是（ ）
A、当前状态下，可以对“抢险人员”数据表进行重命名 B、添加一条新记录，该记录的“ID”字段值不一定是8 C、在数据表视图下，删除“姓名”字段，此操作不可以撤销 D、若将“性别”字段类型修改为“文本”，该字段值会变为True或者False4. 使用 UltraEdit 软件查看字符内码，部分界面如图所示。下列说法正确的是（ ）
A、大写字母“R”对应的内码值为52 68H B、小写字母“z”对应的内码值为80H C、图中共有10个ASCII码字符 D、字符“!”的内码二进制形式为10100011 10100001B5. 用Goldwave软件编辑某音频文件，部分界面如图所示，下列说法正确的是（ ）
A、执行“删除”操作，音频时长减少3秒 B、先执行“复制”操作，再执行“粘贴”操作后，音频时长增加3秒 C、执行“静音”操作后直接保存，音频文件的存储容量变小 D、执行“剪裁”操作后直接保存，音频文件的存储容量变为原来的4/56. 将一段时长为5秒，320×240像素、24位真彩色，PAL未经压缩的AVI格式无声视频文件，压缩为MP4格式后的文件大小为300KB，则其压缩比约为（ ）A、4∶1 B、19∶1 C、94∶1 D、112∶17. VB表达式Int(Sqr(26) + 0.5) * 3 Mod 16 \ 2 ^ 2的值是（ ）A、3 B、2 C、9 D、68. 某算法的部分流程图如图所示。执行这部分流程，输出y的值是（ ）
A、28 B、29 C、30 D、319. 有如下VB程序段：Dim t As Integer, s As String, i As Integer
s = "20PYt22hoN"
t = 0
For i = 1 To Len(s)
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
If c >= "A" And c <= "Z" Then
t = t + 1
Else
t = t - 1
End If
Next i
Text1.Text = Str(t)
执行该程序段后，文本框Text1中显示的内容是（ ）
A、-1 B、0 C、1 D、210. 有如下VB程序段：Dim a(1 To 10) As Integer
Dim i, j As Integer
For i = 1 To 10
j = i
Do While j <= 10
If j Mod i = 0 Then
a(j) = a(j) + 1
End If
j = j + 1
Loop
Next i
Text1.Text = Str(a(3))
数组a各元素初值为0，执行上述程序段后，文本框Text1中显示的内容为（ ）
A、1 B、2 C、3 D、411. 采用选择排序算法对某数据序列进行排序，经过第一轮排序后的结果是“2，8，3，7，5，6，9”，那么原数据序列不可能是（ ）A、3，8，2，7，5，6，9 B、5，8，3，7，2，6，9 C、8，3，2，7，5，6，9 D、2，8，9，7，5，6，312. 有如下VB程序段：key = Val(Text1.Text)
i = 1: j = 9
Do While i < j
m = (i + j) \ 2
If
Theni = m + 1
Else
End If
Loop
Label1.Caption = Str(i)
已知数组a存储一组升序数“2，5，9，11，13，15，18，23”。要查找第一个大于key的元素的下标并输出，则下列选项中正确的是（ ）
A、①a(m) <= key ②j = m B、①a(m) < key ②j = m - 1 C、①a(m) <= key ②j = m - 1 D、①a(m) < key ②j = m二、非选择题(本大题共4小题；4+8+7+7；共24分｡)
-
13. 某艺术院校举行了三个类别的艺术校考面试，并用Excel软件进行数据处理，如图a所示。
请回答下列问题：
(1)、总分是将“理论知识”成绩的10%与“专业问答”、“表演技能”的成绩按权重比例3:2:5相加所得。通过F3单元格中的公式，对数据区域F4:F59进行自动填充，则F3单元格中的公式为。(2)、根据图a中的数据制作的图表如图b所示，创建该图表的数据区域是。
(3)、为了找出“歌唱类”中“专业问答”最高的3个报名号（若存在符合条件的多个报名号，则全部选取），下列操作可以实现该效果的是 （填字母）。A、以“类别”为歌唱类，“专业问答”为最大3项进行筛选，然后选取筛选出的全部项。 B、以“类别”为歌唱类进行筛选，再以“专业问答”为主要关键字降序排序，选取排在最前面的3项。 C、以“专业问答”为主要关键字，“类别”为次要关键字，均按降序排序，选取排在最前面的3项。 D、以“专业问答”为主要关键字降序排序，再以“类别”为歌唱类进行筛选，选取排在最前面的3项。14. 小明制作主题为“抗击疫情”的多媒体作品，首先使用Photoshop处理图片，然后使用Flash软件制作动画。请回答下列问题：(1)、处理图像的部分界面如图a所示。下列说法正确的有 （多选，填字母）。
A、能直接删除“背景”图层 B、调整“抗击疫情”图层不透明度为50% C、将“抗击疫情”移动到“背景”图层下方 D、可复制“人物”图层的图层样式并粘贴到“抗击疫情”图层 E、使用“自由变换”工具仅调整“文字”图层“关心”的字体大小(2)、在Flash软件中编辑“主交互界面”场景，部分界面如图b图所示。“标语”图层的第1帧至25帧的补间动画实现了由文字“中国加油！”渐变为“抗击疫情从我做起”的效果，则该补间类型为(选填字母：A .动画补间/B .形状补间)。
(3)、测试场景时，要使“标语”中的补间动画持续3秒，应进行的操作是。(4)、“音乐”图层第1帧添加了音乐“bj.mp3”，测试场景时，小明(选填字母：A .能/B .不能)听见声音。(5)、测试影片时，单击“不信谣”按钮，跳转到“不信谣”场景第10帧继续播放，并打开位于同一目录下的“bxy.doc”文件，则“不信谣”按钮上添加的动作命令是。15. 某学校进行问卷调查，共n个班级，现将参与问卷调查的学生名单在文本框Text1中按照“班级编号+姓名”的方式连续输入。单击“查询”按钮，统计每个班参与问卷调查的人数。在列表框List1中按“参与人数”降序输出，当“参与人数”相同时，按班级编号升序输出。程序运行界面如图。实现上述功能的VB程序段如下：
Private Sub Search_Click()
Const n = 12
Dim s As String, c As String
Dim i As Integer, t As Integer
Dim rs(0 To n) As Integer '数组rs存储班级人数
Dim bj(1 To n) As Integer '数组bj存储班级编号
Dim flag As Boolean
s = Text1.Text
t = 0
For i = 1 To Len(s)
c = Mid(s， i， 1)
If c >= "0" And c <= "9" Then
t = ①
flag = True
ElseIf flag = True Then
rs(t) = rs(t) + 1
flag = False
t = 0
End If
Next i
For i = 1 To n
bj(i) = i
Next i
For i = 1 To n-1
k = i
For j = i + 1 To n
If ② Then k = j
Next j
If k <> i Then
t = rs(k): rs(k) = rs(i): rs(i) = t
t = bj(k): bj(k) = bj(i): bj(i) = t
End If
Next i
For i = 1 To n
List1.AddItem Str(bj(i)) + "班有：" + " " +
+ "人"Next i
End Sub
(1)、本程序中的事件处理过程名是。(2)、完善程序，在划线处填写正确代码。① ②
(3)、程序代码中，加框处有错，请改正。16. 某数据查找程序：在文本框Text1和Text2中分别输入矩阵的行数m和列数n，单击“产生”按钮，随机产生m×n个范围是[1，10]的整数，并在列表框List1中以矩阵显示。在文本框Text3中输入整数数据key，单击“查找”按钮，将查找key在矩阵中的位置，并在列表框List2中输出查找结果。例如矩阵行数为7，矩阵列数为4，查找数据为3，程序运行界面如图所示。
(1)、实现上述功能的VB程序如下，请在划线处填入合适的代码。Dim a(1 To 100) As Integer
Dim m As Integer, n As Integer
Private Sub Command1_Click()
Dim i As Integer, j As Integer, x As Integer
Dim s As String
m = Val(Text1.Text)
n = Val(Text2.Text)
Randomize
For i = 1 To m
For j = 1 To n
x = Int(Rnd * 10 + 1)
Next j
Next i
s = ""
For i = 1 To m * n
s = s + Str(a(i))
If i Mod n = 0 Then
List1.AddItem s
End If
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, x As Integer, y As Integer
Dim key As Integer, flag As Boolean
key = Val(Text3.Text): flag = False
For i = 1 To m * n
If key = a(i) Then
x = (i - 1) \ n + 1
y =
list2.AddItem Str(key) + "的坐标为：第" + Str(x) + "行，第" + Str(y) + "列"
flag = True
End If
Next i
If Not flag Then
list2.AddItem "未查找到相应数据！"
End If
End Sub
(2)、若随机产生矩阵
，查找数据为3，则在列表框List2中显示内容是。