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)
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
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
12. 某升序排序算法的 VB 程序段如下:
Dim a(8) As Integer
A. 物质、能源和信息是人类社会的三大要素 B. 经过加工和处理后，信息的价值肯定能得到提高 C. 信息可以脱离它所反映的事物被存储、保存和传播 D. 微信朋友圈主要体现了信息的传递性与共享性 2. 下列关于网页说法，不．正．确．的是（ ） A．HTTP 表示超文本标记语言 B．网页文件的实质是文本文件 C．网页内容是用 HTML 进行描述的 D．网页的三种基本元素是文字、图形图像和超链接 3. 下列选项中，体现人工智能技术的有（ ） A．利用 Word 的自动更正功能修正文字 B. 利用智能手机的微信语音进行通话 C. 使用 OCR 技术获取图片上的文字 D. 使用五笔字型输入法进行文字输入 4. 关于 Access 数据表的说法，下列说法正确的是（ ） A．可以在数据表的中间任意位置插入新记录 B．同一数据表中各记录的字段数肯定相同 C．同一数据表中可以有两个相同的字段名 D．数据表中的字段数可以为 0 5. 使用 UltraEdit 软件查看字符“2019 Happy”的内码，部分界面如下图所示。
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
（选
高二技术学科 试题 （信息技术部分） 第5页（共 13 页）
填字母：A.变长/B.变短/C.不变）。
图b
（5）测试影片时，单击“退出”按钮后将关闭动画窗口，则该按钮上的动作脚本是
。
15.“杨辉三角”问题，如图所示，其规律如下：其显著特征是除斜边上的 1 以外，其余数值均等于
其肩部两数之和。编写 VB 程序，其功能如下：在文本框 Text1 中输入 20 以内的整数，点击“打
二、非选择题（本大题共 4 题，其中第 13 题 4 分，第 14 题 8 分，第 15 题 7 分，第 16 题 7 分，共 26 分） 13．小王从图书馆收集了学校学生借阅情况的数据（其中班生均数为各班人均所借图书数），并用
EXCEL 进行处理，如图 a 所示。请回答下列问题。
图a
（1）区域 C18：G18 的数据由 H18 单元格利用自动填充功能得到，则 C18 单元格中的计算公式
下列说法正确的是（ ） A. 字符“11”的内码二进制表示为“00111011” B. 这些字符共占用 9 个字节的存储空间 C. 字母“h”的十六进制内码为“28” D. 这些字符全部采用 ASCII 编码
高二技术学科 试题 （信息技术部分） 第1页（共 13 页）
6. 用 Goldwave 软件编辑某音频文件，部分界面如图所示。当前状态下，先执行“剪裁”，然后插入 10 秒静音后直接保存，则该音频文件的大小约为（ ）
For i = 1 To 4
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
Next i
执行该程序段后，数组元素 a(1)到 a(5)的数据依次为（ ）
A. “23”,”231”,”234”,”34”,”123”
For j = i To 1 Step -1
a(j) =
①
s = s + Str(a(j))
Next j
②
Next i
End Sub
高二技术学科 试题 （信息技术部分） 第6页（共 13 页）
16.礼品分配问题：某班得到一件精美礼品，由于只有一件礼品，大家决定用下面方法来分配该礼品： 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
羊补牢”的淡入效果，该动画属于__________（选填字母：A.逐帧动画/ B.动画补间/ C.形状补
间）动画。
（3）“文字”图层的 30 帧到 50 帧实现的是“亡羊补牢”逐渐过渡到“为时不晚”的动画效果，已
知 30 帧关键帧内容是由 20 帧复制过来的，则在 30 帧需要进行的操作是
。
（4）“声音”图层添加的声音属性如图 b 所示。当同步方式变为“事件”后，声音播放长度将
Next i
End Sub
高二技术学科 试题 （信息技术部分） 第7页（共 13 页）
A. 3.3MB
B. 5.0MB
C. 6.7MB
D. 8.4MB
7. 某算法的部分流程图如图所示。执行这部分流程，循环结束时 i 的值是（ ） A．13 B．11 C．9 D．7
s←0,i←1
s≤36?
Y s←s+2*i i←i+2
8. 有如下 VB 程序段：
a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"
B. 变量 i 的值为 4
C. 变量 j 的值为 4
D. 变量 m 的值为 4
11. 有如下VB程序段：
For i= 1 To 5
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
为
。
（2）若要对高三年级按“班生均数”降序排序，则排序时选择的数据区域是
。
（3）根据图 a 中部分数据直接创建了图 b 所示的图表，其数据区域是
。
图b
（4）若将 C3:I18 中单元格的数字格式保留 0 位小数，则图 b 中图表
（会/不会）受影响。
高二技术学科 试题 （信息技术部分） 第4页（共 13 页）
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) > 1 Then n = n + i
Next i
数组 a 各元素的初始值都为 0,执行该程序段后，则变量 n 的值为（ ）
（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 = ""
14. 小王使用Photoshop和Flash软件制作某多媒体文件。请回答下列问题：
图a
（1）如图 a 所示，小王先用 Photoshop 处理图片，当前状态下下列说法，正确的有
。(多选，
填字母：A.不能用“文字工具”修改“亡羊补牢”字样的字体/ B.先用“套索工具”选中背景图
层的白色背景，然后用 Delete 键删除，最后将背景变为透明/ C.先用“矩形选框工具”选中“亡
绝密★考试结束前
