精品解析：浙江省丽水市2020-2021学年高二下学期期末教学质量监控信息技术试题

丽水市 2020 学年第二学期普通高中教学质量监控

高二技术试题卷

本试题卷分两部分，第一部分信息技术，第二部分通用技术。全卷共 14 页，第一部

分 1 至 8 页，第二部分 9 至 14 页。满分 100 分，考试时间 90 分钟。注意事项：

1.    考生答题前，务必将自己的姓名、准考证号用黑色字迹的签字笔或钢笔填写在答题纸上。

2.    选择题答案须用 2B 铅笔将答题纸上对应题目的答案标号涂黑，如要改动，须将原填涂处用橡皮擦净。

3.    非选择题的答案须用黑色字迹的签字笔或钢笔写在答题纸上相应区域内，作图时可先使用 2B 铅笔，确定后须用黑色字迹的签字笔或钢笔描黑，答案写在本试题卷上无效。

第一部分信息技术（50 分）

一、选择题（本大题共 12 小题，每小题 2 分，共 24 分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分。）

1. 下列有关信息和信息技术的说法，错误的是（   ）

A. 信息在传递和共享的过程中不会产生损耗

B. 信息经过加工、处理后，往往具有更高的价值

C. 常用的信息表达方式有语言、文字、图像、书籍、报纸、网络等

D. 现代信息技术包括微电子技术、光电子技术、现代通信技术、计算机网络等

2. 下列关于信息安全的说法，正确的是（   ）

A. 计算机安装了杀毒软件，就不会被病毒感染

B. 经常修改信息系统的密码，有利于提高信息的安全性

C. 某支付软件使用人脸识别支付，可确保财产绝对安全

D. 在信息传递时使用压缩技术主要是为了提高信息的安全性

3. 要创建一个名为“报名表”的 Access 数据表，存放下列表格数据：

下列关于“报名表”数据表的描述，正确的是（   ）

A. 该数据表中必定有一个名为“班级”的字段

B. 该数据表不能通过“导入 Excel 电子表格”的操作来添加记录

C. “报名表”的字段顺序与图中数据的列顺序可以不一致

D. “报名表”中同一字段的字段值的数据类型不一定相同

4. 使用 UltraEdit 软件查看字符内码，部分界面如图所示。

下列说法正确的是（   ）

A. 图中内码所对应 ASCII 码字符共有 7 个

B. 内码十六进制“48”转换为十进制为 72

C. 图中内码所对应的字符可能是“happy！”

D. 内码“70”是字符“p”的十六进制内码，则字符“o”的十六进制内码为“69”

5. 用 Photoshop 软件制作“致青春”作品，部分界面如图所示。下列说法正确的是（   ）

A. 可以使用文字工具更改“青春有梦”图层文字的大小

B. 可以使用油漆桶工具修改“勇敢前行”图层中“前”字的颜色

C. 可以拷贝“青春有梦”图层的图层样式，粘贴到“背景”图层

D. 移动“拳头”图层到“勇敢前行”图层上方，不影响图像的呈现效果

6. 某音频文件相关参数如图所示。

则该音频文件存储容量约为（   ）

A. 0.5MB B. 0.84MB C. 1.68MB D. 13.44MB

7. 下列 VB 表达式值最大的是（   ）

A. Sqr(Abs(-9.7)) B. Len(Mid("丽水 2021",3,2))

C. Int(Rnd()*3+1) D. 123 Mod 100 \10

8. 某算法的部分流程图如图所示。执行这部分流程后，输出ｓ的值是（   ）

A. 1101 B. 0010

C. 1111 D. 1110

9. 有如下 VB 程序段：

s1 = "python": s2 = "visual"

 i = 1: j = 1: s = ""

Do While i <= Len(s1) And j <= Len(s2)

If Mid(s1, i, 1) >= Mid(s2, j, 1) Then

 s = s + Mid(s1, i, 1)

Else

j = j + 1

End If

i = i + 1

 Loop

执行该程序后，ｊ的值是（   ）

A. 2 B. 3 C. 5 D.  7

10. 超级素数是指一个素数，每次去掉最后面的一个数字，依然为素数。如 37，去掉最后的7 后，3 仍为素数。统计 1000 以内的超级素数的个数的 VB 程序段如下：

For i = 2 To 1000

flag = True：s = i

Do While flag And s >1

 For j = 2 To Int(Sqr(s))

If s Mod j = 0 Then

Exit For

End If

Next j

Loop

If flag And s<>1 Then

End If

Next i

Label1.caption=str(c)

上述程序段中方框处可选语句为

①flag = False    ②c = c + 1    ③s = s \ 10

则（1）（2）（3）处语句依次可为（   ）

A. ①②③ B. ②①③ C. ③②① D. ①③②

11. 某算法的 VB 程序段如下：

i=1:flag=True

Do While i<6 And flag=True

flag=False

For j =6 To i+1 step -1

If a(j) > a(j-1)   Then

t = a(j): a(j) = a(j-1): a(j-1) = t

 flag=True

End If

 Next j

f(i)=1    ＇f 数组初值均为 0

i=i+1

 Loop

For i=1 To 6

 s=s+f(i)

Next i

数组元素 a(1)到 a(6)的值依次为“17,79,93,55,15,13”，执行该程序段后，s 的值是（   ）

A. 3 B. 4 C. 5 D. 6

12. 某对分查找算法的 VB 程序段如下：

key=Val(Text1.Text)

 i=1:j=8

Text2.Text=〝〞

Do While i<=j

m=Int(i+j)/2)

If key=a(m) Then Exit Do    ＇Exit Do 表示退出循环

If key<a(m) Then j=m-1 Else i=m+1

Text2.Text=Str(a(m))+Text2.Text

Loop

数组元素 a(1)到 a(8)的数据依次为“12，25，36，47，68，79，87，99”，文本框 Text1中输入的值是 12，执行该程序段后，文本框 Text2 中显示的是（   ）

A. 68 47 25 12 B. 47 25 12 C. 68 36 12 D. 25 47

二、非选择题（本大题共 4 小题，其中第 13 小题 4 分，第 14 小题 8 分，第 15 小题 7 分，

第 16 小题 7 分，共 26 分。）

13. 小李收集了某书店主要畅销书销售情况的数据,并使用Excel 软件对数据进行处理，如图所示。

（1）区域 G3:G100 的数据是通过公式计算得到的，在 G3 单元格中输入公式_____，再利用自动填充功能完成区域 G4:G100 的计算。

（2）对销售情况的数据以“定价（元）”为主要关键字按降序进行排序，则排序的数据区域是_____

（3）若在图所示工作表中对数据进行进一步的操作，下列说法正确的是_____（多选，填字母）。

A.若要制作一张关于《西游记》四个季度销量情况折线图，则图表的数据区域是A2:A3,C2:F3

B.在“书籍名称”列前插入一列，“年销售金额”列的数值不会发生变化

C.将对 B3 单元格的数值小数位数设置为 0，则 G3 单元格的数值将变小

D.分别筛选出第一季度销量和第二季度销量最大的 3 项，即可获得上半年销量排在前三的书籍

14. 小李使用 Flash 软件创作“致青春”多媒体作品。请回答下列问题:

（1）在制作动画之前，小李先进行了作品的设计，下列属于需求分析的是_____（多选，填字母：A.确定作品面向对象为高中学生 / B.确定作品的发布方式 /C.编写场景的制作脚本 / D.设计作品的主要界面 / E.制作一张媒体元素分解表）

“main”场景制作脚本如下表所示：

使用Flash软件编辑界面如图a所示：

图a

（2）“女孩”图层关键帧中的对象是由“女孩”元件生成的实例，则该图层第1帧到第60 帧的补间类型是_____（单选，填字母：A.动画补间动画 / B.形状补间动画 / C. 逐帧动画）。“声音”图层的声音同步属性设置为__________（选填：事件 / 数据流）。

（3）测试当前场景时，“标题”图层中的“文字”实例并没有实现淡出直至消失的效果，  要实现该效果，则应进行的操作是___________________。

（4）测试影片时，弹出如图b所示的错误提示，下列说法正确的是_____（多选，填字母：A.“按钮”图层第60帧上没有添加按钮实例 / B.添加在按钮实例中的动作命令有误 /C.stopAllSounds()；命令无需添加参数 /D.“按钮”图层最后一帧没有添加stop();/E.把按钮中的命令修改为on (release) {play();stopAllSounds();}也能达到脚本要求）。

图b

15. 某地区开展新冠疫苗接种工作，疫苗共有 ABC 三类，数量有限。符合下列条件的人员， 可安排接种：①待接种第一针的；②已接种某类疫苗 30 天以上可接种该类第二针的。待接种人员按优先级进行排序（优先级数值小的表示优先级高）。

编写程序，实现接种序号发放的功能：运行程序，列表框 List1 中显示待安排接种人员信息（其中 A32 表示已经接种 A 类疫苗 32 天，B2 表示已经接种 B 类疫苗 2 天，以此类推；F 表示待接种第一针），在文本框 Text1 中输入可使用的疫苗情况（A-100 代表有 A 类疫苗 100 剂），单击“序号发放”按钮 Command1，在列表框 List2 中显示持接种序号人员信息。程序运行界面如图所示：

请回答下列问题：

（1）要使命令按钮 Command1 上显示“序号发放”，是通过设置其_____属性得到。

（2）请在划线处填入合适的代码。

（3）程序中加框处代码有错，请改正。

Dim bh(1 to 2000）As Integer,yxj(1 to 2000) As Integer

Dim xm(1 to 2000) As String,qk(1 to 2000) As String

Dim num As Integer

Private Sub Form_Load()

＇读取编号，优先级，姓名，接种情况分别存在bh,yxj,xm,qk 数组并输出到List1 中

＇接种总人数存入num，代码略

End Sub

Private Sub Command1_click()

Dim s As String, p As String, x As String

Dim n As Integer, i As Integer, j As Integer, k As Integer, t As Integer

s = Text1.Text

p = Mid(s,1,1)

n = Val(Mid(s, 3, Len(s) - 2))

For i = 1 To n

_____

For j = i + 1 To num

If check(qk(k), p) = False And check(qk(j), p) = True Then

k= j

ElseIf  Then_______

If yxj(k) > yxj(j) Then k = j

End If

Next j

If k<> i Then

t = bh(k): bh(k) = bh(i): bh(i) = t

t = yxj(k): yxj(k) = yxj(i): yxj(i) = t

x = xm(k): xm(k) = xm(i): xm(i) = x

x = qk(k): qk(k) = qk(i): qk(i) = x

End If

Next i

List2.AddItem "接种序号" + "    " + "姓名"

For i = 1 To n

List2.AddItem "    " + Str(i) + "    " + xm(i) Next i

End Sub

＇check 函数用于判断是否符合该类疫苗的接种条件

Function check(ch As String, key As String) As Boolean

If_____  Then

check = True

Else

If Mid(ch 1, 1) = key And Val(Mid(ch, 2, Len(ch) - 1)) > 30 Then

check = True

Else

check = False

End If

End If

End Function

16. 将某字符串按“V ”的形状进行变换，其变换方法描述如下：

（1）将字符串中的字母转换为大写字母后按升序进行排序；

（2）根据给定行数，将字符串从上往下、从左到右进行“V ”字形排列；

（3）从左往右逐行读取字符串并输出；

例如：输入字符串为：“NoThingIsImpossible”，

经过排序得到字符串：“BEGHIIIILMNNOOPSSST”，行数输入为 3 时，排列如下：

经过变换后得到新字符串为：“BILOSEHIIMNOSSGINPT”。

编写 VB 程序，实现如下功能:在文本框 Text1 中输入行数，在文本框 Text2 中输入字符串（限定字母），单击“变换”按钮 Command1,在标签 Label3 中输出变换结果。程序运行效果如图所示。

（1）若小明在文本框 Text1 中输入 3，在文本框 Text2 中输入的的字符串为“NOTHING”， 则在标签框 Label3 中输出的结果。________

（2）实现该功能的 VB 程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim n As Integer, i As Integer, j As Integer

Dim s As String, result As String

Dim a(1 To 26) As Integer, res(1 To 100) As String

Dim flag As Integer＇ 变量 flag 用于上下换方向

n = Val(Text1.Text)

s = conv(Text2.Text)

For i = 1 To Len(s)

c = Mid(s i, 1)

_____①   

Next i

 s = ""

For i = 1 To 26

For j = 1 To a(i)

s = s + Chr(i + 64)

Next j

Next i

j = 1: flag = -1

For i = 1 To Len(s)

c = Mid(s, i, 1)

res(j) = res(j) + c

If_____②    Then flag = -flag

End If

_____③   

Next i

For i = 1 To n

result = result + res(i)

 Next i

Label3.Caption = result

End Sub

'小写字母转大写

Function conv(word As String) As String

  Dim i As Integer, c As String, s As String

For i = 1 To Len(word)

c = Mid(word, i, 1)

If c >= "a" And c <= "z" Then c = Chr(Asc(c) - 32)

s = s + c

Next i

conv = s

End Function