1. 下列关于信息的说法，不正确的是（     ）

A．信息必须依附于载体，但可以脱离它所反映的事物被存储、保存和传播

B．信息可以从一种形态转换为另一种形态

C．信息在传递和共享过程中可以重复使用，不会产生损耗

D．信息具有时效性，过期的信息没有任何价值

2. 小齐起床后先后做了下列事情，其中体现人工智能技术应用的是（     ）

A．打开智能手环，查看晚上的睡眠质量

B．通过刷脸在路边自动售货机买了一瓶牛奶

C．经过自动测温仪检测温度后进入校园

D．在实践课上，用 3D 打印机打印出卡通人物“大头儿子”

3. 使用 Access 打开数据库，部分界面如下图所示，下列说法正确的是（     ）

A．无法在“出生日期”字段输入“2002.5.11”字段值

B．“ID”字段类型可能是文本型

C．可以将“性别”字段类型改为“文本”类型，修改后字段值显示为“Yes”或“No”

D．删除当前记录后，该删除操作可以撤销

4. 使用 UltraEdit 软件查看字符内码，部分界面如图所示。下列说法正确的是（     ）

A．共有 5 个 ASCII 码字符

B．若用不同输入法输入汉字“高”，将产生不同的汉字内码

C．字符“高”的内码二进制表示为“10111000 11011111”

D．字符“！”的十六进制码是“20 21”

5. 用 GoldWave 软件编辑音频，部分界面如图所示。下列说法正确的是（     ）

A．先执行“删除”命令，再执行“插入 15 秒静音”操作，保存后音频文件存储容量与原来 一样

B．当前状态下直接保存文件，音频文件存储容量约为 1.3MB

C．执行“剪裁”命令后直接保存，音频文件存储容量大小为原来的 1/4

D．执行“选定部分另存为”命令，按默认格式保存，生成的文件为单声道格式

6. 将一个未经压缩的 1366*768 像素、16 色的 BMP 图像文件，转换成 JPG 格式图像文件。若 该 JPG 格式图像存储容量为 51KB，则压缩比约为（     ）

A．20：1

B．40：1

C．10：1

D．8：1

7. 判断整数 n 能否被 m 整除，下列哪个选项表达式功能错误的是（     ）

A．n \ m = 1	B．n Mod m = 0
C．n / m = Int(n / m)	D．n \ m = n   / m

8. 某算法部分流程图如图所示。执行这部分流程，依次输入 2、-5、12、-4、11、-3，则输出ans 的值为（     ）

A．16

B．19

C．23

D．25

9. 有如下程序段：
For i = 1   To 2
       For j = i + 1   To 6
             If a(i) > a(j) Then
                      t = a(j): a(j) = a(i): a(i) = t
             End If
       Next j
Next i
数组元素 a(1)到 a(6)的值依次为“3，4，2，1，5，0”，经过该程序段“加工”后，数组元素 a(1)到 a(6)的值依次为（     ）

A．0，1，4，3，5，2	B．0，1，2，3，4，5
C．0，1，2，4，5，3	D．5，4，2，1，3，0

10. 有如下 VB 程序段：
Function t(x As Integer) As Long
       If x   = 1   Then t = 1
       ElseIf x   = 2   Then
             t = 2
       Else
             t = t(x - 1) + t(x - 2)
       End If
End Function
Text1.Text = Str(t(8))
执行该程序段后，文本框 Text1 中显示的内容是（     ）

A．21

B．34

C．55

D．89

11. 有如下 VB 程序段：
s1 = "Shui"
For i = 1 To Len(s1)
       ch = Mid(s1, i, 1)
       If ch >= "a" And ch   <= "z" Then
             ch = Chr((Asc(ch) - Asc("a") + 23) Mod 26 + Asc("A"))
       End If
       s2 = ch + s2
Next i
Label1.Caption = s2
执行该程序段后，标签 Label1 中显示的内容是（     ）

A．FRES

B．Serf

C．freS

D．SERF

12. 某对分查找算法的 VB 程序段如下：
n   = 0: i = 1: j = 6
Key = Val(Text1.Text)
Do While i <= j
       m=(i+j)\2
       n=n+1
       If Key = d(m) Then Exit Do
       If Key < d(m) Then j = m - 1
       Else i= m + 1
Loop
If i <= j Then s = m – n
Else   s = n
数组 d(1)到 d(6)的值依次为“4，6，9，13，20，25”，输入某个 Key 值后，运行该程序段后，变量 s 结果为 3，则 输入 key 的值不可能是（     ）

A．25

B．20

C．5

D．3

13. 小明收集了 2020 年 6 月 3 日的全球新冠肺炎疫情最新动态的数据，并将其中累计确诊人 数超过 5 万的国家汇总成了一张表格，用 Excel 软件进行数据处理，如图 a 所示。

图a
请回答下列问题：
（1）如图 a 所示，“排名”列的数据有 Rank 函数对“死亡率”列数据进行降序排名。小明通 过 H3 单元格的公式对区域 H4：H23 进行自动填充， 则 H23 单元格中显示结果是_______（单选，填字母：A.#VALUE！/B.17/C.#DIV/0！/D.1）。
（2）若要正确计算“排名”列的数据，可对 H3 单元格中的公式进行修改，并对 H4：H23 进 行自动填充，则 H3 单元格中的公式是__________________________。
（3）小明在完成计算后，若要对欧洲地区的国家以“累计确诊人数”为关键字进行降序排序，则排序时选择的数据区域是______________。
（4）根据图 a 中的数据制作的图表如图 b 所示，创建该图表的数据区域是________。

图b

14. 小齐制作主题为“端午节”的多媒体作品。她首先使用 Photoshop 制作了一张背景图片，然 后用 Flash 制作动画。请回答下列问题：
（1）使用 Photoshop 软件编辑“端午.psd”，如图 a 所示，在当前状态下，下列操作可行的是____（多选，填字母： A. 更改“背景”图层的不透明度/B. 可以用“自由变化”命令 改变“五月五日”图层的文字大小/C. 直接给“小粽子”图层添加滤镜效果/D. 将“龙舟”图层移至“背景”图层下方）。

图 a
（2）在制作作品前，小齐规划该作品是面向小学生演示播放，这属于_____（单选，填字 母：A.应用需求分析/B.创作需求分析/C.系统结构设计/D.媒体元素分解）。
使用 Flash 软件编辑“端午节.fla”，“端午”场景的部分制作界面如图 b 所示。

图b
（3）将图中“端午佳节”图层第1帧到第19帧实现了“端午佳节”实例从舞台外进入舞台的动画，则该动画类型是_____。（单选， 填字母：A.形状补间动画/B. 动画补间动画）
（4）“背景”图层的内容到最后一帧才出现，若要使“背景”图层的图片一开始就出现在舞台上，在不影响其他动画效果的前提下，则对“背景”图层进行的操作是________。
（5）测试影片时，单击“粽享美味”按钮，实现在浏览器中打开域名为“wufangzhai.tmall.com” 网页的内容，则“粽享美味”按钮的动作脚本为：_____。

15. 小章想将a数组中n个元素排列成合唱队列形态，具体方法如下：
①如果n是奇数，选出所有数据中最大元素，将其放在a数组正中间位置。
②从剩下待处理数据中选出最大的两个元素，同时将较大元素放在已处理数据段的右侧， 较小元素放在已处理数据段的左侧。
③反复执行操作②，直到所有数据处理完毕。 按上述要求，小章编写一个 VB 程序，功能如下：
在文本框 Text1 中输入 n，单击“生成”按钮 Command1，并在文本框 List1 中显示排序前 数据；单击“排序”按钮 Command2，在列表框 List2 中输出处理后的结果。程序运行界面如下图所示。

（1）下列哪个选项，可以将窗体Form1标题改为：“生成合唱队列”_____（单选，填字 母：A．Form．Caption="生成合唱队列"/ B．Label1．Caption ="生成合唱队列"/ C．Form1．Caption="生成合唱队列")
（2）实现上述功能的VB程序如下，请在划线处①②③填入合适代码。
①________________
②________________
③________________
（3）程序加框处代码有错，请改正。
改正：__________________
Dim a(1 To 100) As Integer
Dim n   As Integer
Private Sub Command1_Click()
'在文本框 Text1 中输入 n(n<=100)
'排序前数据存储在数组 a 中,并在文本框 List1 中显示
'代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j   As Integer, t As Integer
Dim pMax1 As Integer, pMax2 As Integer pMax1 = n \ 2 + 1: pMax2 = n   \ 2
If      ① Then
For i = 1 To n
If a(i) > a(pMax1) Then t   = a(pMax1): a(pMax1) = a(i): a(i) = t
Next i
pMax1 = pMax1 + 1
End If
For i = 1 To n   \ 2
If      ② Then t = a(pMax1): a(pMax1) = a(pMax2): a(pMax2) = t j   = pMax1 Mod n   + 1
Do While j <> pMax2
If a(j) > a(pMax1) Then
t = a(pMax1): a(pMax1) = a(j): a(j) = t
t   = a(pMax2): a(pMax2) = a(j): a(j) = t

t = a(pMax2): a(pMax2) = a(j): a(j) = t
End If
③
Loop
pMax1 = pMax1 + 1
pMax2 = pMax2 - 1
Next i
For i = 1 To n
List2.AddItem Str(a(i))
Next i
End Sub

16. 为促进学生学习中互帮互助，每次考后章老师都会按成绩重新编排机房上课位置，编排要求如下：
（1） 按分数从高到低排序。若分数相同，则按学号进行升序排序。
（2） 以班级为单位，排出从 1 号开始的机房座位表。 章老师编写了一个位置编排功能的 VB 程序，运行界面如下图所示。
在文本框 Text1 中输入班级名称，单击“读数据库”按钮 Command1 后，从数据库读取数 据并显示在列表框 List1 中；单击“编排”按钮 Command2，在列表框 List2 中输出学号、姓名、 成绩和位置信息。

实现以上功能的 VB 程序如下，请回答下列问题：
（1）分析程序，可知数据库的文件名为_____。
（2）请在划线处填入合适的代码。
Dim n   As Integer
Dim xh(1 To 40) As Integer, xm(1 To 40) As String, cj(1 To 40) As   Integer
Private Sub Command1_Click()
       '本过程在文本框 Text1 中输入班级名称,从数据库中读取指定班级的学号、姓名和成绩
的
       '数据分别存储在数组 xh,xm 和 cj 中
       Dim conn As New ADODB.Connection
       conn.ConnectionString = "provider=microsoft.ace.oledb.12.0;data source="+ App.Path + "\js.accdb"
       conn.Open
       Dim rs As New ADODB.Recordset rs.ActiveConnection = conn
       rs.Open "select * from 技术"
       '本过程的其他语句略
End Sub
Private Sub Command2_Click()
       Dim wz(1 To 40) As Integer
       Dim i As Integer, j   As Integer
       List2.AddItem "学号"   & "       "   & "姓 名"   & "       "   & "成绩"   & "       "   & "位置"
       For i = 1 To n
             ______
       Next i
       For i = 1 To n
             For j = 1 To n
                    If          ______Then
                           wz(i) = wz(i) + 1
                    End If
             Next j
             List2.AddItem adj(Str(xh(i))) + adj(xm(i)) + adj(Str(cj(i))) + adj(Str(wz(i)))
       Next i
End Sub
Function adj(c As String) As String '固定输出 5 个字符长度
       Dim i As Integer
       ______
       For i = 1 To 5   - Len(c)
             adj = adj + "   "
       Next i
End Function