使用Access软件编辑数据表，其设计视图的部分界面如图所示。下列说法正确的是

A．数据表名称为“books.accdb”

B．“ID”字段值可以手工输入

C．“作者”字段值允许有重复

D．“单价”字段值可输入“28元”

用word软件编辑某文档，如图所示，下列说法正确的是

A．文中的图文混排效果属于“四周型”环绕方式

B．文中批注的对象为“西湖十景之一”

C．第3行部分文字下方的波浪线是拼写或语法检查的结果

D．当前状态下选择“拒绝修订”，第一句变为“雷峰塔建造于997年”

使用IE浏览器浏览某网页时，部分界面如下图所示。

下列说法正确的是

A．该网页的URL为http://forspeed.onlinedown.net/down/winrar-x64-561sc. exe

B．将网页添加到收藏夹，实质上是将5.htm保存到本地磁盘

C．该网页内容是用HTML描述的，可以使用记事本、IE浏览器等软件进行编辑

D．单击当前超链接，可将目标文件下载到指定位置

数组元素a(1)到a(7)中的数据依次为“3，6，1，6，2，9，6”，执行下面这段VB代码后变量i的值是
flag = False：i = 0
LuckNumber = 6
Do While i < 7 And flag = False

i = i + 1

If a(i) = LuckNumber Then flag = True

Loop
If flag = False Then i = 0

A．0

B．2

C．4

D．7

有如下程序段，若在text1中输入"abcd + BC + cdef + DE"，请问程序执行后list1中第3行中出现的值为
Dim a(1 To 26) As Integer
s = Text1.Text : n = Len(s)
For i = 1 To n
c = Mid(s, i, 1)
If c >= "a" And c <= "z" Then

a(Asc(c) - 96) = a(Asc(c) - 96) + 1

ElseIf c >= "A" And c <= "Z" Then

a(Asc(c) - 64) = a(Asc(c) - 64) + 1

End If
Next i
For i = 1 To 26
List1.AddItem Str(a(i))
Next i

A．1

B．2

C．3

D．4

如图所示的窗体中，共出现了几类对象

A．1

B．2

C．3

D．4

产生一个在[-10，99]中随机整数的VB表达式是

A．int (rnd*100) -10	B．int(rnd*99)-10
C．int(rnd*109)-10	D．int(rnd*110)-10

某算法流程图如图所示：若要用VB语言实现该部分算法，下列代码符合流程图的是

A．

B．

C．

D．

某程序代码如下：
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)

a(i) = Mid(s, i, 1)

Next i
For i = 1 To Len(s) - 1

k = i

For j = i + 1 To Len(s)

If a(k) < a(j) Then k = j

Next j

If i < > k Then

t = a(i): a(i) = a(k): a(k) = t

End If

Next i
For i = 1 To Len(s) - 1

If a(i) = a(i + 1) Then count = count + 1

Next i
程序运行结束后，变量count的值是

A．1

B．2

C．3

D．4

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

下列说法正确的是

A．该音频文件是4声道的WAV格式文件

B．单击“删除”按钮后，该音频的时长变为7秒

C．执行“静音”操作后按原格式保存文件，声音文件存储容量不变

D．该音频的采样频率是每秒采样1411k次，釆样频率越高，音质越好

将时长40秒的某视频素材进行保存，保存设置如图所示。保存后的文件大小约为

A．1186GB

B．9.27GB

C．1.16GB

D．29.7MB

新高考形势下，每位同学都可以根据自己的特长自主选课，现高一进行了摸底统计，情况如下表所示。请回答下列问题：

(1)区域N2:T15的公式是从N2单元格通过自动填充功能得出，由上图可知T10单元格公式为：_________________.
(提示：SUMPRODUCT函数返回相应的数组或区域乘积的和。例如：=SUMPRODUCT((A4:A500=〃101班〃)*(D4:D500))=〃物理〃)）表示在数据区域D4:D500中统计〃101班〃选“物理”的人数）

(2)根据图-1制作的图表如图-2所示，可知制作该图表的区域为：_______________。
(3)对图-1中的数据做如下操作，会引起图表变化的是：_______________。（单选：A、以技术为关键字，对所有班级的数据进行降序排序；B、将P10单元格中的数据修改为20；C、选定数据区域M17:T17设置单元格格式，保留1位小数）
(4)把图1中的L1: T15复制到新工作表中，要对生物和物理按图-3所示进行筛选，则最后筛选结果是_______________ (写出班级名）

下列说法正确的是

A．语言和文字是我们常用的信息表达技术

B．微信、QQ是当前流行的信息表达方式

C．HTTPS协议是由SSL+HTTP协议构建的，可以提高网络信息的安全性

D．POP3协议出错，则无法将电子邮件发送到收件人邮件服务器中

（加试题）幸运数。一组1幵始的奇数数列为：
1，3，5，7，9，11，13，15，17，19，21，23，25，……
此数列的第二项为3，将此数列的第3n个数删除，留下的数为：
1，3，7，9，13，15，19，21，25，……
新数列的第三项为7，将新数列的第7n个数删除，留下的数为：
1，3，7，9，13，15，21，25，……
若一直重复上述步骤，最后剩下的数就是幸运数：
1，3，7，9，13，15，21，25，31，33，37，43，49，51，……
下列程序的功能是找出1000以内的幸运数，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim a(500) As Integer, b(500) As Integer
Dim i As Integer, m As Integer, k As Integer
Dim top As Integer, bott As Integer
’产生由1开始的奇数数列，依次存储在数组a中，代码略
top = 2: bott = 500
Do While top < bott

  ①

For i = 1 To bott

  If i Mod a(top) < > 0 Then

b(k) = a(i)

___________________ ②

End If

Next i

③

top = top + 1

For i = 1 To bott

A(1) = b(1)

Next i

Loop
For i = 1 To bott

List1.Addltem Str(a(i))

Next i
End Sub
(1)Private Sub Command1_Click()中的click是____________(

A．对象名

B．属性名

C．事件名）

(2)改正加框处的代码，并在横线处填写合适的代码
①_____________________________ 
②_____________________________
③_____________________________

（加试题）编写一个成绩查询程序，输入要查找的分数，输出该分数的名次及同分人数，其算法是：用数组a存放不同的分值，数组m存储相同分数的人数，数组mc存储不同分数的名次。例如，数据库中有一组成绩（已按降序排列）：98，95，95，92，90，90，87，按该算法，各数组值如下表所示：

i	1	2	3	4	5
a	98	95	92	90	87
m	1	2	1	2	1
mc	1	2	4	5	7

 
程序界面如下图所示，在文本框Text1中输入查询成绩，点击“查找”按钮，若找到，则输出该分数的名次和同分数的人数，若找不到，则输出“查无此分”。

程序代码如下，请在划线处填入合适的代码。
Dim n As Integer
Dim a(l To 1000) As Integer ’存放不同的分数值
Dim m(0 To 1000) As Integer ’存放相同分数的人数
Dim mc (0 To 1000) As Integer ’存放此分数的名次
Private Sub Form_Load()
Dim conn As New ADODB. Connection
Dim rs As New ADODB. Recordset
Dim tmp As Integer
Dim s As Integer
tmp = -1: n = 0
conn. Connectionstring = 〃provider=Microsoft. AC

A．OLEDB. 12. 0; data source=〃 & App. Path & 〃\mydb. accdb〃

conn. Open
Set rs. ActiveConnection = conn
rs.Open "Select * from score"
mc(0) = 1: m(0) = 0

Do While Not rs. EOF

s = rs. Fields (〃成绩〃)
If s = tmp Then ’当前读入分数与上一个分数相同
m(n) = __________
Else
n = n + 1
a(n) = s
m(n) = 1
mc(n) = ___________ 
End If
_____________
rs. MoveNext

Loop

End Sub
Private Sub Command1_Click0
Dim key As Integer, i As Integer, j As Integer, mid As Integer
key = Val (Text1.Text)
i = 1: j = n
mid = (i + j) \ 2
Do While i <= j And ____________ 

mid = (i + j) \ 2

If a(mid) < key Then

j = mid – 1

Else

i = mid + 1

End If

Loop
If a(mid) = key Then

Label2. Caption = 〃名次: 〃+ Str(mc (mid)) + 〃同分人数: 〃+ Str(m(mid))

Else

Label2. Caption = 〃查无此分〃

End If
End Sub

某同学创作了一个关于“鲲龙AG600”的多媒体作品，首先他用Photoshop软件处理图片，然后使用Flash软件制作动画，请回答下列问题：

(1)如图a所示，要获得透明背景的鲲龙图像，下列操作可以实现的是____________(多选，填字母：A.选中“背景”图层并删除，然后存储为png格式 / B.选中“背景”图层，设置不透明度为0%，然后存储为png格式 / C.选中背景”图层，用橡皮擦擦除其中的图像，然后存储为png格式 /

A．选中“背景”图层，设置为不可见，然后存储为png格式

(2)“文字”图层第1帧至第20帧实现了由文字“鲲龙首飞”逐渐变为文字“国之重器”的动画效果，则动画类型为_____________。（单选，填字母：A.动画补间 /B. 形状补间 / C.逐帧动画）
(3)若要在“飞机”图层第1帧至第40帧实现飞机在空中飞行到当前位置的过程中逐渐消失的动画效果，应进行的操作是______________。
(4)“声音”图层的同步方式如图c所示，若在第20帧处执行“清除关键帧”操作，则声音播放时长为____________秒。

(5)要想通过单击“更多”按钮，打开同一目录下的“kunlong.docx”文件了解更多详情。则在该按钮上添加的动作脚本是_____________________。