如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。

实现上述功能的VB代码如下, 但加框处代码有错，请改正。
Dim a(1 To 50) As Integer
Private Sub Command1_Click()
Dim i As Integer
k =" 0:" i = 3
Do While i <= 100
If   prime(i)   Then ‘⑴
k =" k" + 1
a(k) = i
End If
i =" i" + 2
Loop
For i =" 2" To k
If   a(i) =" a(i" +1)+2   Then   ‘⑵
List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))[来源:学#科#网Z#X#X#K]
End If
Next i
End Sub
Function prime(x As Integer) As Boolean
prime = False
For i =" 2" To Int(Sqr(x))
If  x Mod i =" 0"  Then
prime = True
Exit For
End If
Next i
End Function

下列应用中，体现了人工智能技术的有（   ）
①停车场车牌识别技术的应用
②Word软件的查找、替换功能
③手机延时30秒暗屏
④手机微信摇一摇识别歌曲名称
⑤二维码识别
⑥刷脸考勤

A．①③④⑤⑥

B．①②③⑥

C．①③④⑥

D．①④⑥

某学生用win10自带邮件客户端软件，某次使用过程中能正常接收邮件，但无法发送邮件，下列说法正确的是

A．可能是Smtp 协议设置错误

B．可能是Pop3协议设置错误

C．可能是http协议设置错误

D．可能是TCP/IP协议设置错误

小李在网络中获取一串二进制数，其中部分二进制数为“00110010 00110000”，结合UltraEdit软件的部分界面推断，该部分二进制数所表示的字符为

A．“快”

B．“乐”

C．“20”

D．“16”

小明通过ATM机进行存款等操作，下列说法错误的是

A．ATM机的操作界面属于数据库管理系统

B．登录银行卡账户的过程是对数据库进行“查询记录”操作

C．向账户进行存款的过程是对数据库进行“修改记录”操作

D．修改短信通知的手机号码，是对手机号码相应的记录进行修改

某算法流程图如图所示，执行该算法，循环结束时i的值是

A．0

B．5

C．14

D．21

有一个数组，采用冒泡排序，第一遍排序后的结果为：4，10，5，32，6，7，9，17，24那么该数组的原始顺序不可能的是

A．10，5，32，6，7，9，17，24，4	B．10，5，32，6，7，9，4，17，24
C．10，5，32，4，6，7，9，17，24	D．4，10，5，32，17，9，24，6，7

有一段以每秒25帧播放，每帧画面为512*288像素、24位彩色，且未经压缩的AVI格式无声视频，视频时间为4秒，将其转换成MP4后其存储容量为4320KB，则压缩比约为

A．100:1

B．50:1

C．20:1

D．10:1

同学用Flash软件制作动画作品，时间轴编辑界面如下图所示：下列说法不正确的是（    ）

A．声音一直播放到动画结束

B．按钮图层的内容直到最后一帧才出现

C．男孩图层的内容在26帧开始就不显示了

D．背景图层的内容一直延续显示到最后一帧

如图所示为某动画序列的4幅图像，这些图像之间存在一定的相关性，

下列说法正确的是

A．该相关性表现为视觉冗余

B．该相关性表现为结构冗余

C．由该序列组成的gif文件导入flash舞台，能直接生成逐帧动画

D．由该序列组成的gif文件导入flash舞台，能直接生成补间动画

使用Access软件编辑某数据库的“成绩表”如左下图所示。在当前状态下，将右下图所示Excel表A2：C11区域中的数据粘贴到“成绩表”中，此时关于“成绩表”说法正确的是

A．包含3条记录	B．包含4个字段
C．“张均”所在记录的“编号”值为1	D．“编号”字段的值不能再修改

徐老师平时关注手机电池的正确使用，有关锂电池的文章截图如图所示：

下列说法正确的是

A．图中只有1处批注，批注内容为“锂电池”

B．图中共有2处修订，修订选项的标记是可以自定义的

C．最后一句修订之前的文字应为“不宜过充和过放，否则对锂电池造成较大的伤害”

D．接受修订之后图中最后一句文字应为“不宜过充和过放，对锂电池造成较大的伤害”

字符串中任意个连续的字符组成的子序列称为该字符串的子串，如字符串“123” 的子串有“1”、“2”、“3”、“12”、“23”、“123”。输出字符串s所有子串的VB程序段如下：
s = Text1.Text
List1.Clear
len1 = Len(s) ‘①
For i = 1 To len1 ‘②   
For j = 1 To len1- i   ‘③   
List1.AddItem Mid(s, j, i)  ‘④
Next j
Next i
运行时发现未输出所有子串,则修改（   ）

A．①处所在行的语句为len1= Len(Text1.text)

B．②处所在行的语句为For i= 1 To len1+ 1

C．③处所在行的语句为For j= 1 To len1+ 1    - i

D．④处所在行的语句为List1.AddItem Mid(s, i, j)

编写VB程序,实现如下功能: 单击“排序数组a”按钮Command1时，对已有数组a的数据进行升序排列，并显示在文本框Label1中；单击“显示数组b”按钮Command2时，将升序数组b的数据显示在文本框Label2中；再单击“合并a和b”按钮Command3时，对数组a和数组b升序合并到字符串中，将合并后的数据在文本框Label3中显示。(运行效果如图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。

Dim a(1 To 6) As Integer
Dim b(1 To 6) As Integer
Private Sub Command1_Click() '对数组a中的数据进行排序
Dim i As Integer, j As Integer ，k as integer
a(1) =" 53" :a(2) =" 18:a(3)" =" 62:a(4)" =" 22:a(5)" =" 6:a(6)" = 25
s = ""
For i =" 1" To 5
k = i
For j =" i" + 1 To 6
If a(k) > a(j) Then ①
Next j
If i <> k Then
t =" a(k):" a(k) =" a(i):" a(i) = t
End If
Next i
For i =" 1" To 6
s =" s" + Str(a(i))
Next i
Label1.Caption = s
End Sub
Private Sub Command2_Click()
b(1) =" 3:" b(2) =" 8:" b(3) =" 15:" b(4) =" 27:" b(5) =" 38:" b(6) = 49
'此处部分代码省略
End Sub
Private Sub Command3_Click()
'将数组a和b中的数据逐个比较后添加到新的字符串s中，并将s在label3中显示
i =" 1:" j =" 1:" s = ""
Do While i <=" 6"     ②   j <= 6   '如果两数组都还有数据未合并
If   ③    Then
s =" s" + Str(a(i)) : i =" i" + 1
Else
s =" s" + Str(b(j)) : j =" j" + 1
End If
Loop
Do While i <= 6 '只有数组a还有数据未合并
s =" s" + Str(a(i)) : i =" i" + 1
Loop
Do While j <= 6 '只有数组b还有数据未合并
s =" s" + Str(b(j)) : j =" j" + 1
Loop
Label3.Caption = s
End Sub

小华创作“老鹰抓小鸡”故事的多媒体作品。制作过程界面如1图所示，动画库面板部分界面如2图所示，请回答下列问题：

1图
（1）Flash场景中的小鸡实例是由图像“xj.jpg”图片导入得到，小华认为“Flash软件可用于生成矢量图，所以将场景中小鸡实例放大后依然是清晰的”，该说法_________。（填：对/错）。
（2）如2图所示，库中属于图形元件的元件名称为_______________。

（3）测试场景时，在“小鸡声音”出现后还能听到“老鹰声音”，据此判定“老鹰声音”中“同步”属性设置为     (填：事件 / 数据流)。
（4）库中“老鹰”元件具有翅膀拍动效果，编辑该元件界面如3图所示，在测试影片时，发现老鹰翅膀拍动速度太慢，要使老鹰翅膀拍动速度提高一倍的操作方法是

A．删除第7帧到第12帧

B．将第6帧移动到第4帧，然后删除第7帧到第12帧

C．将第7帧移动到第13帧，并在第24帧插入帧

D．删除第1帧到第12帧之间所有普通帧

（5）测试影片时，该场景只播放一遍便停止，小华发现在“脚本”图层的最后一帧上有动作脚本标志，则该动作脚本为 。
（6）测试影片时，单击“返回”按钮，动画跳转到“main”场景的第1帧继续播放，则“返回”按钮上的动作脚本为 。

李老师平时喜欢网购，对快递价格比较关注，他收集相关数据如1图所示：
1图
（1）观察1图，可推断单元格H8中的计算公式为     。
（2）观察1图可知表中数据有序，排序时所设置的主要关键字是 。
（3）李老师有2.5kg物品需要退货，在快递费自付时，他在江浙沪地区应该选择的快递是
（选填：快递A、快递B）
（4）2图为快递物重均为3.5kg时两个快递的价格情况图表，则该图表的数据源区域为  。

2图

编写VB程序,实现如下功能：在文本框text1中输入自然数n，单击“产生n个随机数,并求和与最大数计算”按钮Command1，则在列表框List1中输出n个小于100的随机整数，并输出n个随机数的和与最大值，界面如图所示。

（1）观察运行界面，选项中没有用到的控件是 ( 选项

A．

B．

C．

D．)。

（2）设计该窗体界面时，需要将窗体form1的   属性设置为“最大随机数”。
（3）请完善下列程序代码：
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim s As Integer
Dim max As Integer
n = Val(Text1.Text)
i = 1
Do While i <= n
a(i) =" Int(Rnd" * 100)
List1.AddItem Str(a(i))
s =" s" + a(i)
①
Loop
max = a(1)
For i =" 2" To n
If a(i) > max Then      ②
Next i
List1.AddItem "和为：" + ③
List1.AddItem "最大值为：" + Str(max)
End Sub
空格处应填写的代码为:① ② ③ 。