使用UltraEdit软件查看“AI时代已经到来！”的内码，部分界面如下图所示。

下列说法正确的是（）

A．图中文字所占字节数为15

B．字符“！”的内码为“A1”

C．图中既有十六进制内码，也有十进制内码

D．“J”的内码为4A

使用Word软件编辑某文档，部分界面如图所示。下列说法正确的是（ ）

A．图中有2处批注与1处修订

B．若删除批注，则文章开头处的“八达岭长城”也会被删除

C．实现图中的图文环绕效果可以采用“紧密型”环绕方式

D．文中出现的“八达岭长城”可用自动更正功能改为加粗字样的“八达岭长城”

某同学制作Flash作品准备导出如图所示的未经压缩的视频文件，其文件存储容量约为（ ）

A．13.65MB

B．109.21MB

C．13.98MB

D．14.98MB

以下关于数据库的说法正确的是（ ）

A．数据类型为“是/否”型的字段值存储需要4B

B．用户可以通过数据库应用系统在数据表中添加、删除、修改记录

C．一个数据库管理系统不能由多个应用系统共享

D．一个数据库文件中不可以包含与其名称相同的数据表

阿里首家未来酒店菲住布渴（FlyZoo Hotel）于2018年12月开业，是全球首家支持全场景刷脸住宿的酒店，刷脸办理入住，智能机器人服务，“各显神通”的智能门锁，“天猫精灵”智慧客房体验，手机一键退房，都给客人带来了无上的体验。以上材料中不属于人工智能的是（）

A．通过人脸识别刷脸入住	B．智能机器人接待、语音互动、带路等
C．通过天猫精灵语音控制房内电子设备	D．手机客户端一键退房

下列有关信息的说法，不正确的是（）

A．同一信息通过不同途径传播时，其价值有可能不同

B．通过UltraEdit软件观察到的十六进制字符内码，计算机实际以二进制存储

C．不能直观的从二维码中感知到信息，故二维码并不是信息的载体

D．文字、声音、动作等只是信息的表达方式，并不能称之为信息

在text1文本框内输入字符串，单击去重按钮，将字符串后面相同的字符删除，并在text2中输出经过删除的字符串。程序界面如图所示。请在下面划线处填入合适的代码。

Private Sub Command1_Click()
Dim s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To Len(s)
c = Mid(s, i, 1)
s1 = （1）  
For  j =  （2）       
If c <> Mid(s, j, 1) Then
s1 = s1 + Mid(s, j, 1)
End If
Next j
（3）
Next i
Text2.Text = s
End Sub

A．（1）s1 = Mid(s, 1, 1)    （2）i + 1 To Len(s)   （3）s1 = s

B．（1）s1 = Mid(s, 1, 1)   （2）i To Len(s)    （3）s1 = s

C．（1）s1 = Mid(s, 1, i) （2）i To Len(s) （3）s = s1

D．（1）s1 = Mid(s, 1, i) （2）i + 1 To Len(s)  （3）s = s1

执行程序后，a数组各元素是（  ）
Dim a(1 To 7) As Integer
a(1) = 14: a(2) = 15: a(3) = 0: a(4) = 11: a(5) = 13: a(6) = 21: a(7) = 17
i = 6: flag = True
Do While i > 1 And flag
If a(i) Mod 3 = 0 And a(i) <> 0 Then
t = a(i): a(i) = a(i + 1): a(i + 1) = t
ElseIf a(i) = 0 Then
flag = flase
ElseIf a(i + 1) Mod 2 = 1 Then
a(i) = Abs(a(i) - a(i + 1))
End If
i = i - 1
Loop

A．14,0,15,4,17,13,21	B．14,15,0,11,4,17,21
C．15,14,0,11,4,17,21	D．14,15,0,11,13,4,17

某算法的部分流程图如图所示。输入n的值为100执行这部分流程后，输出的值为（）

A．2,2,5,5

B．1,2,2,5,5

C．1,4,5,5

D．1,2,5,10

使用Photoshop软件制作“雪人”作品，部分界面如下图所示。下列说法正确的是（）

A．该图像采用的色彩模式为RGB模式，每个像素所占颜色位数为24位

B．若对“snowman”图层进行自由变换操作，“文字”图层也会随之变化

C．单独放大雪人而不影响其他图像，可通过修改“图像大小”实现

D．“背景”图层被锁定，不能对其进行任何操作

小王使用Flash软件制作动画，其中部分编辑界面如下图所示。下列说法正确的是（）

A．“背景”图层被锁定，不能修改图层名称

B．“动画”图层制作了补间动画

C．“ac”图层第1帧添加了“play();”动作命令

D．该动画文件播放时长为2s

使用GoldWave软件打开某音频文件进行编辑，部分界面如下图所示，下列说法不正确的是（）

A．该音频文件的存储容量约为80.7MB

B．执行“剪裁”操作，音频总时长为20s

C．当前状态下能执行进行“淡入”效果的设置

D．该声音文件为立体声，有两个声道

数组nam（）、sex（）、math（）、su（）分别存放学生的姓名、性别、数学和总分成绩，现要求编写一个程序使得数据按照男生“总分”的降序和女生“总分”的升序排列，其中男生在前女生在后，程序界面如下图所示：

实现该功能的VB程序如下，但加框处代码有错，请改正。

Dim nam(100) As String '存放学生姓名

Dim sex(100) As String '存放学生性别

Dim math(100) As Long '存放学生数学成绩

Dim su(100) As Long '存放学生总分成绩

Dim k As Integer 'k变量用来存学生人数

Private Sub Form_Load()

‘将数据库中的数据分别存储在相应的变量中并在列表框中显示出来

‘代码略

End Sub

Private Sub Command1_Click()

Dim mmax As Integer, gmax As Integer, flagm As Boolean, flagg As Boolean

i = 1: flagm = True: flagg = True

Do While i <= k And flagm = True ①   

    mmax = 0: gmax = 0

    flagm = False: flagg = False

  For j = i To k - i + 1

    If sex(j) = "男" And su(j) > su(mmax) Then mmax = j

    If sex(j) = "女" And su(j) > su(gmax) Then gmax = j

  Next j

   If mmax <> 0 Then

flagm = True

t = nam(mmax): nam(mmax) = nam(i): nam(i) = t

t = sex(mmax): sex(mmax) = sex(i): sex(i) = t

t = math(mmax): math(mmax) = math(i): math(i) = t

t = su(mmax): su(mmax) = su(i): su(i) = t

   End If

   If gmax <> 0 Then

flagg = True

If j = mmax Then    ②   

gmax = mmax

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(i): math(i) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

Else

t = nam(gmax): nam(gmax) = nam(k - i + 1): nam(k - i + 1) = t

t = sex(gmax): sex(gmax) = sex(k - i + 1): sex(k - i + 1) = t

t = math(gmax): math(gmax) = math(k - i + 1): math(k - i + 1) = t

t = su(gmax): su(gmax) = su(k - i + 1): su(k - i + 1) = t

End If

   End If

i = i + 1

Loop

For i = 1 To k

List2.AddItem nam(i) + "    " + sex(i) + "    " + Str(math(i)) + "    " + Str(su(i))

Next i

End Sub

程序中①处改为________________________________________。
程序中②处改为________________________________________。

某数据加密方法描述如下：
先将字符转化为二进制的位数据并显示在文本框text2中，数据位数显示在标签Label1中
以16个数据为一段，将k个待加密数据依次分割成若干个数据段，剩余数据（个数小于16）为独立数据段。
数据加密规则：
数据个数等于16的数据段，在段内进行位置变换，得到加密数据段。
数据个数小于16的数据段，直接得到加密数据段。
依次合并加密数据段，即为最后的加密数据。
位置变换的规制，方法如下：

具体界面如下图所示：

（1）已知k=38，则数组元素b（26）对应值是数组a中的______________________。
（2）实现该功能的VB程序如下:

Private Sub Command1_Click()

Dim a(1 To 1000) As Integer, b(1 To 1000) As Integer

Dim n As Integer, m As Integer

Dim s As String, s1 As String, c As Integer, ch As String

s = Text1.Text: Text2.Text = ""

n = Len(s)

k = 1

For i = 1 To n '获取字符的二进制数据存放在数组a()中

  n = Asc(Mid(s, i, 1))

  Do While n <> 0

   a(k) = n Mod 2

   n = n \ 2

   Text2.Text = Text2.Text + Str(a(k))

   k = k + 1

  Loop

Next i

     ①  

List1.Clear

 

For m = 1 To (k - 1) \ 16    '对字符二进制按规则进行位变换，变换后的数据存放在数组b()中并输出

  For i = 1 To 4

    b(16 * (m - 1) + 4 * (i - 1) + 1) = a((m - 1) * 16 + i)

    ②

  Next i

  For i = 1 To 3

    b(16 * (m - 1) + 4 * (i - 1) + 3) = a((m - 1) * 16 + 10 + i)

    b(16 * (m - 1) + 4 * (i - 1) + 2) = a((m - 1) * 16 + 17 - i)

  Next i

  For i = 1 To 2

    b(16 * (m - 1) + 13 + i) = a((m - 1) * 16 + 4 + i)

  Next i

 

 For i = 1 To 4

  s1 = ""

  For j = 1 To 4

  s1 = s1 + Str(b(16 * (m - 1) + (i - 1) * 4 + j))

  Next j

  List1.AddItem s1

  Next i

List1.AddItem ""

Next m

 

s1 = ""

For i = ((k - 1) \ 16) * 16 + 1 To k - 1

   b(i) = a(i)

    If ③  Then

    s1 = s1 + Str(a(i))

    List1.AddItem s1

    s1 = ""

    Else

    s1 = s1 + Str(a(i))

    End If

Next i

List1.AddItem s1

 

Text3.Text = ""

For i = 1 To k - 1

Text3.Text = Text3.Text + Str(b(i))

Next i

End Sub

实现上述功能，请在划线处填入适当的代码：
程序中①处填入的是________________________________________。
程序中②处填入的是________________________________________。
程序中③处填入的是________________________________________。

编写“十六进制加法”程序。程序运行时，在文本框Text1和文本框Text2分别输入两个十六进制数，单击“计算”按钮后在文本框Text3上输出两个十六进制相加后的结果。程序运行如图所示。

（1）观察代码，触发代码执行的事件名是________________________
（2）实现上述功能的VB程序如下，请在划线处填人合适的代码。
Private Sub Cmd1_Click()
Dim a1 As String, a2 As String, sum As String, t As String
Dim b1 As Integer, b2 As Integer
Dim dist As Integer, x As Integer, jw As Integer
a1 = Text1.Text: a2 = Text2.Text: sum = ""
dist = Len(a1) - Len(a2)
If dist < 0 Then
t = a1: a1 = a2: a2 = t
___________________
End If
For i = 1 To dist
a2 = "0" + a2
Next i
jw = 0
For i = __________________________ 
If Mid(a1, i, 1) >= "A" And Mid(a1, i, 1) <= "F" Then
b1 = Asc(a1) - 55
Else
b1 = Val(Mid(a1, i, 1))
End If
If Mid(a2, i, 1) >= "A" And Mid(a2, i, 1) <= "F" Then
b2 = Asc(a2) - 55
Else
b2 = Val(Mid(a2, i, 1))
End If
x = b1 + b2 + jw
jw = x \ 16
If __________________ Then
sum = Chr(x Mod 16 + 55) + sum
Else
sum = Str(x Mod 16) + sum
End If
Next i
If jw = 1 Then sum = "1" + sum
Text3.Text = sum
End Sub
（3）若将代码中加框处代码删除，则图中Text3中显示的结果为_________。

小林制作了公司一、二、三月份的数据报表，并对数据进行简单的处理，如图a所示。

图a
请回答下列问题：
（1）D10单元格数据为一月份交易金额的最大值，利用MAX函数计算得到，则D10的单元格的公式为________。
（2）若要制作如图b所示的图表，应如何操作？___________________

图b
（3）由图b可知，二月、三月同比增长都为正数的地区为_______________。
（4）若对表格中数据的一、二、三月交易金额都按照图c进行筛选，则如图b所示的图表数据剩下_______条。

图c

小王为2022年北京与张家口联合申办的冬奥会做了一个宣传片，部分制作画面如图a所示。请回答下列问题：

图a
（1）舞台中的“吉祥物”实例来源于库中“吉祥物”影片剪辑元件。双击舞台中的“吉祥物”实例对其进行修改，库中的“吉祥物”元件_______（选填：会/不会）随之改变。
（2）图中“人物”图层实现了运动员在滑雪的同时移动到舞台右侧，说明该图层的补间动画类型为________。
（3）“退出”按钮的部分编辑界面如图b所示，测试影片时发现该按钮不能实现点击效果，请写出解决方案_______________________________。

图b
（4）测试影片时，在场景播放结束后音乐停止并且自动跳转到“申办”场景的第一帧并停止，则“ac”图层第45帧添加的动作命令为_____________________________________。
（5）若要将作品发送给同学欣赏，应将作品发布为__________（多选：填字母：

A．fla/

B．swf/

C．exe/

D．html）格式。