用UltraEdit软件观察“Windows10中文版”这几个字符的内码如下图所示:

下列描述中正确的是（  ）

A．汉字“中”的十六进制内码是D6 D0

B．字符“W”ASCII码的十进制编码是97

C．从图中可推算出字符“Z”的十六进制内码是“60”

D．字符“Windows10中文版”共占12字节存储空间

下列应用中，体现了人工智能技术的是（ ）

A．使用手机远程控制电器	B．使用手机扫描二维码进行付款
C．AlphaGo 与棋手对弈	D．使用通讯软件与家人视频通话

关于Access数据库，下列说法正确的是

A．该数据库文件名是“课程.accdb”

B．删除当前记录后，不能用撤销命令恢复当前记录

C．“学分”字段一定是“数字”类型

D．“课程编号”字段类型为“自动编号”

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

A．信息表达的规范化是为了更好的信息共享

B．给每一位公民分配唯一的身份证号码，属于信息的解码

C．对声音信息进行“采样”和“量化”的加工过程，属于“模数转换”（A/D 转换）

D．为了提高信息存储、处理和传输效率，一般要对数字化了的多媒体信息进行压缩处理

某算法的部分流程图如图所示。执行这部分流程，循环结束时i的值是(    )

A．13

B．11

C．9

D．7

有如下 VB 程序段：
a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"
For i = 1 To 2
For j = 1 To 5 - i
If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
Next j
Text1.text=a(j)
Next i
执行该程序段后，文本框Text1显示的内容为（   ）

A．34	B．123
C．231	D．234

有如下程序段：
s = "defghiabc"
key = Text1.Text
i = 1: j = Len(s)
Do While i <= j

m = (i + j) \ 2

c = Mid(s, m, 1)

If c = key Then Exit Do

If Mid(s, i, 1) < c Then

If key >= Mid(s, i, 1) And key < c Then j = m - 1 Else i = m + 1

Else

If key > c And key <= Mid(s, j, 1) Then i = m + 1 Else j = m - 1

End If

ans = ans + Str(m)

Loop
运行程序后，若在文本框 Text1 中输入字符"b"，则变量 ans 的值是（）

A．5

B．5 7 8

C．5 3

D．5 7

有如下程序段：
Dim a(1 To 5) As Integer
t=0
For i = 1 To 5

a(i) = Int(Rnd * 30 + 10)

t = t + a(i) \ 10

Next i
For j = 1 To t \ 3

If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j
运行程序后，数组 a 各个元素的值，不可能的是（）

A．40,10,32,11,17	B．34,9,33,33,31
C．12,13,14,9,10	D．31,32,33,9,21

下面VB程序段运行后，文本框Text1和Label1显示的内容分别是（  ）
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text = Text1.Text + Str(n)
If n <= 1 Then
f = 1
Else
f = f(n - 1) + 2
End If
End Function

A．3 2 1 和  5	B．1 2 3 和  5
C．5 和  3 2 1	D．6 和  3 2 1

随机产生一个二位正奇数的VB表达式是（  ）

A．Int(Rnd*99) + 1

B．Int(Rnd*88) + 11

C．2* Int(Rnd*45 + 5) + 1

D．2* Int(Rnd*45 + 5) - 1

使用 GoldWave 软件打开某音频文件，选中其中一段音频后的部分界面如图所示。

下列说法正确的是（ ）

A．该音频文件10秒的存储容量约为431KB

B．当前状态下执行“删除”命令后，该音频右声道第 20 秒开始将出现静音

C．当前状态下执行“剪裁”命令后，整个音频只剩下当前选中的部分

D．当前状态下执行“插入静音”4秒命令后，直接保存文件容量保持不变

下列有关网络资源的说法，不正确的是（ ）

A．因特网上存储着海量信息，获取的方式也多种多样

B．通过“网页，全部”的方式保存网页，同时也收藏了网址

C．POP3 协议将邮件从邮件服务器端送到个人终端机器上

D．不同搜索引擎的检索结果可能不同

小张收集了2019年3-6月份分地区工业用电量（亿千瓦时）数据，并使用Excel软件进行数据处理，如图a所示。

请回答下列问题:
（1）计算6月份环比数据，可以先复制E6 单元格，以公式粘贴方式粘贴到I3单元格，然后通过I3单元格对区域I4:I13自动填充，则 I3单元格中的公式是_____________。
（2）根据图a 中的数据制作图表如图b 所示，创建该图表的数据区域是________。

（3）Excel 可以按行排序，选择区域 B2：I13，按照图 c 所示的方式进行排序。排序完成后，图 b 显示的图表___（填：会/不会）改变,B3 单元格显示的内容可能为_______(单选，填字母：

A．#REF!

B．/

C．-3.3

D．#VALUE!)。

小蓝设计了一个数字字符串的简单加密解密小程序，该程序的加密规则是计算连续升序子串的长度，将该长度字符插入到相应子串后面。例如：

输入2350123456783，先将字符串拆成三段，分别是235,012345678,3要求每一段必须严格有序，如果无法实现连续升序，则单独作为一个拆分。

原字符串	235		012345678		3
连续升序字符数	3		9		1
密文	235	3	012345678	9	3	1

 
在文本框Text1中输入原文，单击“加密”按钮，可在文本框Text2中输出密文。
在文本框Text2中输入密文，单击“解密”按钮，可在文本框Text3中输出原文。
（1）程序运行时，在文本框Text2中输入“1233012345678910”，则在Text3中显示的内容为__________________ 。
（2）实现上述功能的VB代码段如下，请在划线处填上合适代码。
Private Sub Command1_Click()'加密过程
Dim a(1 To 100) As String
Dim s1, s2 As String: Dim tmp As Integer
tmp = 1: s1 = Text1.Text
For i = 1 To Len(s1)
a(i) = Mid(s1, i, 1)
Next i
s2 = a(1)
For i = 2 To Len(s1)
If _________________ Then   

s2 = s2 + a(i): tmp = tmp + 1

Else

s2 = s2 + LTrim(Str(tmp))  'LTrim（）函数用以移除左边的符号位空字符

s2 = s2 + a(i)

_________________

End If
Next i
s2 = s2 + LTrim(Str(tmp)) : Text2.Text = s2
End Sub
Private Sub Command2_Click()'解密过程
Dim b(0 To 100) As String
Dim k As String, t As Integer, n As Integer
Dim s As String, s3 As String, j As Integer
s = Text2.Text: n = Len(s)
For i = 1 To n
b(i) = Mid(s, i, 1)
Next i
t = n - 1: k = Val(b(n))
Do While t > 0
If k <> 0 Then

For j = 1 To k

__________________
t = t - 1

Next j

k = Val(b(t))

t = t - 1   

Else

k = 10

t = t - 1

  End If
Loop
Text3.Text = s3
End Sub

数组 a 存储降序排列的 m 个数据，数组 b 中存储的是升序排列的 n 个数据，且两个数组中存储的数据为区间[1,20]范围内的不重复的随机整数。现将两个数组的数据合并到 c 数组中，使 c 数组的数据为左右交替上升，如下表所示：

当窗体 Form1 加载时，自动产生 a、b 数组的数据，并分别显示在列表框 List1 与 List2
中，单击合并按钮 Command1 后，在 c 数组中保存按规则合并后的 a、b 数组的数据，并显示在列表框 List3 中。程序截图如下所示：

实现该功能的 VB 程序如下：
Const m = 5
Const n = 6
Dim a(1 To m) As Integer
Dim b(1 To n) As Integer
Dim c(1 To m + n) As Integer
‘窗体加载时，生成数组 a、b 中的数据，并按要求排序后显示在列表框中，代码略
Private Sub Command1_Click()
Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean
pa = m: pb = 1: pc = 1
flag = True
Do While ____________________  
If a(pa) < b(pb) Then

s = a(pa)

pa = pa - 1

Else

s = b(pb)

pb = pb + 1

End If
c(pc) = s
If flag Then

pc = m + n - pc + 1

Else

pc =　　

End If
__________________________
Loop
‘处理 a、b 数组中剩余数据，并在列表框 List3 中输出数组 c，代码略
End Sub
（1）窗体加载的事件处理过程名为__________。（填字母：

A．Form1_Click /	B．Form_Click /
C．Form1_Load /	D．Form_load）

（2）加框处代码有错，请改正。　__________
（3）在划线处填入合适的代码。

小王使用 Flash软件制作主题为“水墨山水”的多媒体作品。请回答下列问题：
(1) 在制作动画前，小王进行了相应的分析和规划。下列属于创作需求分析的是_____（多选，填字母：A.该作品要求使用Photoshop、Flash软件制作 / B.结构类型为演示型 / C.明确该作品的主题思想 / D.制订脚本大纲/

A．了解社会需求。）

（2）如图所示，为了使“小岛”图层中的内容从第 1 帧就出现并持续到第 50帧，下列操作方法中正确的有__________（填字母:A.复制第 15 帧至第1 帧/B.删除第 1 帧至第14 帧/C.对第1帧执行清除关键帧/D.将第 15 帧移至第 1 帧）
（3）如图所示，“船”图层实现了船先从位置（600,600）移动至位置（400,300），移动至位置（100,300），最后移动至位置（-100,100）的效果，那么“船”图层第 15 至第 50 帧的动画类型是________（单选，填字母：A.逐帧动画 / B.动画补间/ C.形状补间）。整个动画船的移动轨迹是_____________（单选，填字母：）

（4）测试影片时，单击当前场景中的“简介”按钮，关闭动画，并在浏览器中显示位于同一文件夹下“jianjie.htm”文件的内容，则该按钮的动作脚本为on（release）{______}。