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

A．13

B．11

C．9

D．7

下列有关信息的说法，不正确的是(    )

A．物质、能源和信息是人类社会的三大要素

B．经过加工和处理后，信息的价值肯定能得到提高

C．信息可以脱离它所反映的事物被存储、保存和传播

D．微信朋友圈主要体现了信息的传递性与共享性

下列关于网页说法，不正确的是(    )

A．HTTP表示超文本标记语言

B．网页文件的实质是文本文件

C．网页内容是用HTML进行描述的

D．网页的三种基本元素是文字、图形图像和超链接

关于Access数据表的说法，下列说法正确的是(    )

A．可以在数据表的中间任意位置插入新记录

B．同一数据表中各记录的字段数肯定相同

C．同一数据表中可以有两个相同的字段名

D．数据表中的字段数可以为0

下列选项中，体现人工智能技术的有(    )

A．利用Word的自动更正功能修正文字

B．利用智能手机的微信语音进行通话

C．使用OCR技术获取图片上的文字

D．使用五笔字型输入法进行文字输入

使用UltraEdit软件查看字符“2019Happy”的内码，部分界面如下图所示。

下列说法正确的是(    )

A．字符“11”的内码二进制表示为“00111011”

B．这些字符共占用9个字节的存储空间

C．字母“h”的十六进制内码为“28”

D．这些字符全部采用ASCII编码

用Goldwave软件编辑某音频文件，部分界面如图所示。当前状态下，先执行“剪裁”，然后插入10秒静音后直接保存，则该音频文件的大小约为(    )

A．3.3MB

B．5.0MB

C．6.7MB

D．8.4MB

某升序排序算法的VB程序段如下：
Dim a (8) As Integer
For i＝2 To 8

a(0)＝a(i)

Do While a (0)<a(j)

j＝j－1

Loop

Next i
数组元素a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为(    )

A．①j＝i－1    ②a(j＋1)＝a(j)    ③a(j＋1)＝a(0)

B．①j＝i＋1    ②a(j＋1)＝a(j)    ③a(0)＝a(j＋1)

C．①j＝i－1    ②a(j)＝a(j＋1)    ③a(j＋1)＝a(0)

D．①j＝i＋1    ②a(j)＝a(j＋1)    ③a(0)＝a(j＋1)

有如下VB程序段：
For i＝1To5
a(i)＝Int(Rnd*20)＋1
Next i
For i＝2 To 5
If i Mod 2＝1 And a(i－1)<a(i)Then
t＝a(i)：a(i)＝a(i－1)：a(i－1)＝t
Else
a(i)＝a(i)－1
End If
Next i
执行该程序段后，a(1)~a(5)各元素不可能的值是(    )

A．7  3  0  19  0	B．18  16  1  9  2
C．20  17  8  19  15	D．19  0  7  8  4

有如下VB程序段：
a(1)＝"231"：a(2)＝"34"：a(3)＝"23"：a(4)＝"234"：a(5)＝"123"
For i＝1To4

For j＝1To5－i

If a(j)>a(j＋1)Then t＝a(j)：a(j)＝a(j＋1)：a(j＋1)＝t

Next j

Next i
执行该程序段后，数组元素a(1)到a(5)的数据依次为(    )

A．“23”，”231”，”234”，”34”，”123”	B．“23”，”123”，”231”，”234”，”34”
C．“23”，”34”，”123”，”231”，”234”	D．“123”，”23”，”231”，”234”，”34”

有VB程序段如下：
s＝"2019.06 Visual Basic6.0"：n＝0
For i＝1 To Len(s)
ch＝Mid(s，i，1)
If ch>＝"0" And ch<＝"9"Then
m＝Asc(ch)－Asc("0")＋1
a(m)＝a(m)＋1
End If
Next i
For i＝1 To 10
If a(i)>1Then n＝n＋i
Next i
数组a各元素的初始值都为0，执行该程序段后，则变量n的值为(    )

A．2

B．4

C．8

D．10

某对分查找算法的VB程序段如下：
i＝1：j＝6：flag＝False
key＝Val(Text1.Text)
Do While i<＝j And flag＝False
m＝(i＋j)\2
If key＝a(m) Then flag＝True
If key<a(m) Then j＝m－1 Else i＝m＋1
Loop

数组元素a(1)到a(6)的值依次为“7，9，15，27，34，51”。文本框Text1中输入“27”后运行该程序，运行结束后，下列说法不正确的是(    )

A．变量flag的值为True

B．变量i的值为4

C．变量j的值为4

D．变量m的值为4

小王从图书馆收集了学校学生借阅情况的数据(其中班生均数为各班人均所借图书数)，并用EXCEL进行处理，如图a所示。请回答下列问题。

(1)区域C18：G18的数据由H18单元格利用自动填充功能得到，则C18单元格中的计算公式为___________________。
(2)若要对高三年级按“班生均数”降序排序，则排序时选择的数据区域是________________。
(3)根据图a中部分数据直接创建了图b所示的图表，其数据区域是______________________。
 
(4)若将C3：I18中单元格的数字格式保留0位小数，则图b中图表________(会/不会)受影响。

小王使用Photoshop和Flash软件制作某多媒体文件。请回答下列问题：
 
(1)如图a所示，小王先用Photoshop处理图片，当前状态下下列说法，正确的有_______。(多选，填字母：A.不能用“文字工具”修改“亡羊补牢”字样的字体/B.先用“套索工具”选中背景图层的白色背景，然后用Delete键删除，最后将背景变为透明/C.先用“矩形选框工具”选中“亡羊补牢”图层，单击delete键可以进行“内容识别”操作/

A．“亡羊补牢”图层可见的图层样式是“投影”/

B．将当前状态下的图像保存为BMP格式，则其大小约为302KB)

 
(2)制作的Flash动画部分界面如图b所示，“文字”图层第1帧到第20帧实现的是“文字”实例“亡羊补牢”的淡入效果，该动画属于___________(选填字母：A.逐帧动画/B.动画补间/C.形状补间)动画。
(3)“文字”图层的30帧到50帧实现的是“亡羊补牢”逐渐过渡到“为时不晚”的动画效果，已知30帧关键帧内容是由20帧复制过来的，则在30帧需要进行的操作是________________。
(4)“声音”图层添加的声音属性如图b所示。当同步方式变为“事件”后，声音播放长度将____(选填字母：A.变长/B.变短/C.不变)。
 
(5)测试影片时，单击“退出”按钮后将关闭动画窗口，则该按钮上的动作脚本是__________。

礼品分配问题：某班得到一件精美礼品，由于只有一件礼品，大家决定用下面方法来分配该礼品：n个同学围成一圈，按顺序从1到n进行编号。从第1个人开始报数，报到m的人退出，下一个人继续从1开始报数，报到m的人出圈┈┈，如此依次进行，直到留下的最后一个人得到该礼品。程序运行界面如图所示，单击“开始”按钮，将输出退出圈子的同学编号以及最后获得奖品的编号。

实现上述功能的VB程序如下，请回答下列问题。
(1)当班级总人数n＝15，m＝5的时候，获得礼品的同学编号是__________(填写数字)。
(2)在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer, m As Integer
Dim num As Integer, t As Integer
Dim a(1 To 100) As Boolean
n = Val(Text1.Text)
m =Val(Text2.Text)
For i = 1 To n

a(i) = True

Next i
_____
Do While t > 1
For i = 1 To n
If a(i) = True Then _____
If num = m Then
_____
t = t -1
num = 0
Text3.Text = Text3.Text +Str(i)
End If
Next i
Loop
For i = 1 To n
If a(i)= TrueThen Label2.Caption = "获得礼品同学编号:" + Str(i)
Next i
End Sub

“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的1以外，其余数值均等于其肩部两数之和。编写VB程序，其功能如下：在文本框Text1中输入20以内的整数，点击“打印”按钮，在列表框list1中输出杨辉三角，程序界面如图所示，VB程序代码如下。

实现上述功能的VB程序如下，请回答下列问题：
(1)代码“Private Sub Command1_Click()”中的Command1_Click()属于_________(单选，填字母：

A．对象名/

B．属性名/

C．事件名/

D．事件过程)。

(2)请在划线处填入合适的代码。
(3)若将加框处代码改为“1 To i”，则__________(选填：会/不会)影响程序结果。
Private Sub Command1_Click()
Dim a (20) As Long
Dim I As Integer，j As Integer，s As String
List1.Clear
n＝Val(Text1.Text)
a(1)＝1
List1.AddItem Str(a(1))
For i＝2 To n
s＝""
For j＝i To 1 Step－1
a(j)＝_____
s＝s＋Str(a(j))
Next j
_____
Next i
End Sub