1. 下列说法正确的是

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

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

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

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

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

下列说法正确的是

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

A．1186GB

B．9.27GB

C．1.16GB

D．29.7MB

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

下列说法正确的是

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

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

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

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

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

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

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

A．1

B．2

C．3

D．4

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

A．

B．

C．

D．

10. 有如下程序段，若在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

11. 数组元素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

12. 某程序代码如下：
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

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

(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所示进行筛选，则最后筛选结果是_______________ (写出班级名）

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

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

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

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

15. 【加试题】幸运数。一组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(i) = b(i)

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)改正加框处的代码，并在横线处填写合适的代码
①_____________________________
②_____________________________
③_____________________________

16. 【加试题】编写一个成绩查询程序，输入要查找的分数，输出该分数的名次及同分人数，其算法是：用数组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. ACE. 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