浙江省2022届高三信息技术选考模拟试卷（二）
试卷更新日期：2021-11-26 类型：高考模拟
一、选择题
-
1. 下列关于信息的说法，正确的是（ ）A、信息要进行传递和共享，必须先进行数字化 B、信息的数字化过程就是采样、量化、编码的过程 C、信息本身是看不见摸不着的，所以不能用某种方式表现 D、信息的表达技术有电视、广播、网络、书籍、声音等2. 下列关于网站与网页描述正确的是（ ）A、保存网页就是收藏网页地址 B、网页内容是用HTTP语言描述的 C、网站由若干静态或动态网页组成，网页之间可能通过超链接实现跳转 D、以“网页，仅 HTML”方式保存网页，可以保存网页中的超链接、表格和图片3. 为了防控“新冠”疫情，技术组开发了校园疫情系统，使用Access软件创建健康信息管理的数据库，其中“测温”表需要记录如下信息
序号
姓名
班级
测量时间
体温(℃)
是否去过高风险地区
1
张三
高一(3)
7:23
36.8
否
2
李四
高二(5)
7:31
36.9
否
…
…
…
…
…
…
下列描述正确的是（ ）
A、“校园疫情系统”是数据库管理系统 B、“测温”表只能有6个字段 C、记录“测温时间”信息字段类型可以“日期/时间” D、记录“是否去过高风险地区”信息的字段类型不可以设为“文本”4. 用UltraEdit软件查看字符内码，部分界面如图所示。下列说法正确的是（ ）
A、共有5个ASCII字符 B、共有3个GB2312字符 C、是“3-2=1正确！”的内码 D、是“1+2=3正确？”的内码5. 使用GoldWave软件编辑某音频文件，部分界面如图所示。下列说法正确的是（ ）
A、直接保存后声音文件的容量约为1.9MB B、执行“删除”命令后直接保存，文件容量变小 C、另存时将采样频率提高为48000Hz,声音品质明显提高 D、无法获取声音的量化位数，所以不能正确计算文件容量6. 一段分辨率为1024×768、16位色、PAL制式（25帧/秒）的未经压缩AVI格式无声视频，其存储容量为1125MB，则该视频时长约为（ ）A、120秒 B、60秒 C、30 秒 D、12 秒7. 下列VB表达式值一定为True的是（ ）A、Mid(“True Or False”,1,4) B、Int(Rnd*100)>0 C、Len(“2021”) > Sqr(50) D、123 Mod 10 \ 2 <=10 \ 38. 某算法的流程图如图所示，若输入s的值为字符串“Abc123456def”,执行这部分流程后，输出c的值是（ ）
A、Abcdef B、123456 C、123456def D、Abc123456def9. 如下VB程序段:k=0:n=Len(s)
For i = 1 To n\2
k = k+Abs(Asc(Mid(s,i,1)) - Asc(Mid(s,n-i+1,1)))
Next i
If k=0 Then flag=True
运行后该程序段后，变量flag的值为True，s的值可能的是（ ）
A、"appyappy" B、"12321" C、"Appa" D、"2021-2021"10. 有n个整数存放在数组a中，整数k1与k2且k1<k2。某程序段如下：i = 1: L = 0: R = n + 1
Do While i < R
If a(i) < k1 Then
L = L + 1
If L <> i Then tt = a(i): a(i) = a(L): a(L) = tt
i = i + 1
ElseIf a(i) > k2 Then
R = R - 1
tt = a(i): a(i) = a(R): a(R) = tt
Else
i = i + 1
End If
Loop
则执行上述代码后，下列说法正确的是（ ）
A、数组a变成升序排列 B、a(L)<=k1 C、a(R)>=k2 D、a数组中大于等于k1小于等于k2的元素个数为R-L-111. 某程序段如下：s = "happy": n = Len(s)
For i = 1 To n
x = Int(Rnd * n + 1)
c = Mid(s, x, 1)
If x Mod 2 = 0 Then
c = Chr((Asc(c) - Asc("a") + 1) Mod 26 + Asc("a"))
Else
c = Chr(Asc("a") + 25 - (Asc(c) - Asc("a")))
End If
s1 = c + s1
Next i
则运行本程序段后，变量s1的值不可能为（ ）
A、"bbkkq" B、"qbqsq" C、"kksqk" D、"gboqx"12. 下列VB程序段功能为:在降序排序数组a中(a(1)≥a(2)．．．．．≥a(n))，查找数据key，若能找到，则输出该数在数组a中第一次出现的位置，否则输出“找不到”。i=1:j=n
Do While i<j
m=(i+j)\2
If ① Then
i=m+ 1
Else
②
End If
Loop
Ifa(i)=key Then Label1.Caption=Str(i) Else Label1.Caption="找不到"
上述程序段两个横线处的语句分别为（ ）
A、①key<a(m) ②j=m-1 B、①key>a(m) ②j=m C、①key<=a(m) ②j=m-1 D、①key>=a(m) ②j=m二、非选择题
-
13. 小吴创作“热烈庆祝中国共产党成立100周年”的多媒体作品，其中“热烈庆祝中国共产党”这几个字为动态效果。她首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：(1)、小吴想用Photoshop软件打开如图a的jpg格式图片素材进行处理，得到图b的结果。在图a进行以下几个步骤的操作可以实现（多选，填字母：A .使用“矩形选区工具”选中图正中的直线，删除/B .使用“橡皮擦”工具擦除图中的直线/C .使用“裁剪工具”选中图中需要保留的部分，裁剪/ D .使用“矩形选区工具”选中图中需要的部分，反选后删除/E .使用“图像大小”功能适当减小图像像素，删除多余的内容）。
图a
图b
(2)、如图c，要使按钮图层的元件实例在40帧才出现，应该如何操作？
图c
(3)、“庆祝语”影片剪辑元件编辑界面如图d所示，该元件1-17帧实现“热烈庆祝中国共产党”逐字出现的文字动画，20-35帧实现飘带动画。若测试影片时该元件实例的文字动画仅播放一次，飘带动画不断重复播放，则如何实现？
图d
(4)、测试影片时出现如图e所示的错误提示，结合图c，判断动作脚本错误发生在图层，应该如何改正。
图e
14. 小明在玩翻转棋盘的游戏，游戏规则是在一个4*4的棋盘中挑选棋子（棋子只有黑白两面，0表示白，1表示黑），对于每颗被挑选的棋子，要将该棋子和它在棋盘上的上下左右4个相邻位置上的棋子一起翻转，若某个方向上无棋子，则不作处理，最后使得棋盘纯色（纯白或纯黑）。
如上图所示的棋盘，需要选择第2行第2列、第4行第2列两颗棋子，按照规则进行翻转便可使得棋盘变为纯黑。现编写程序找出实现棋盘纯色所需翻转棋子次数最少的方案并输出所挑选棋子的个数，若无答案则输出“无法翻转为纯色”。
解决该问题的算法原理：棋盘翻转方案为0000000000000000~1111111111111111之间的某几种，即十进制数 0~65535，利用枚举算法在0~65535之间枚举，即可找到最优方案。假设被选翻转棋子状态用1表示被选中，0表示不选中。例如某方案的十进制为1028即 2^10+2^2，转化为一个16位的二进制串0000010000000100就表示该棋盘中的第2行第2列、第4行第2列这两个棋子及其上下左右被选中翻转，我们认为该方案选中两个棋子进行翻转。
程序运行界面如下图所示，请回答下列问题。
(1)、若某方案用十进制表示为100，则该方案总共选择了个棋子进行翻转。(2)、实现上述功能的程序代码如下，请将划线处的代码补充完整。'数组a储存棋盘原状态，数组b储存翻转后的棋盘状态
Dim a(1 To 16) As Integer, b(1 To 16) As Integer, minc As Long
Private Sub Form_Load()
'生成原始由0、1组成的棋盘状态，用数组 a(1)-a(16)保存，代码略
End Sub
Private Sub Command1_Click()
Dim k As Integer, c As Integer, i As Long, j As Long
minc = 100
For i = 0 To 65535
For j = 1 To 16 '初始化棋盘
b(j) = a(j)
Next j
k = 16: c = 0: j = i
Do While j > 0
If j Mod 2=1 Then
b(k) = 1 - b(k)
If k > 4 Then b(k - 4) = 1 - b(k - 4)
If Then b(k + 4) = 1 - b(k + 4)
If k Mod 4 <> 0 Then b(k + 1) = 1 - b(k + 1)
If k Mod 4 <> 1 Then b(k - 1) = 1 - b(k - 1)
c = c + 1
End If
k = k - 1
Loop
If
Then minc = cNext i
If minc = 100 Then Label1．Caption = "无法翻转为纯色!" Else Label1．Caption = "最少翻" + Str(minc) + "次"
End Sub
Function check() As Boolean '判断棋盘是否纯色
Dim flag As Boolean, i As Integer
flag = True
For i = 1 To 15
If Then flag = False: Exit For
Next i
check = flag
End Function
(3)、代码加框处有误，请改正。15. 某校举办技术学科统测，参加统测的每个学生有班级序号、姓名(字母缩写)和统测的技术成绩。现需整理统测数据，要求是:先按班级序号从小到大排列；然后，同一班级的学生按技术成绩从大到小排列。按上述要求，编写一个VB程序，功能如下：在列表框List中显示整理前的数据，单击“整理”按钮Commandl1，整理结果显示在列表框List2中，程序运行界面如图所示。
(1)、将数组元素d(1)到d(640)分为16段，如果每段恰好包含40个元素，采用选择法排序算法分别对每段中的元素进行排序，整个排序过程中，数组元素之间的比较次数是 (单选，填字母：A、640×639/2次/ B、16×40×39/2次/ C、40×16×15/2次)。(2)、请在划线处填入合适的代码。Const n＝640 '参加统测总学生数
Const nc ＝16 '班级数
Dim class(1 To n) As Integer， sname(1 To n)As String， score(1 To n) As Integer
Dim b( To nc) As Integer '存储每个班级的参加统测人数
Dim c(1 To nc) As Integer
Dim d(1 To n)As Integer
Private Sub Form_Load()
'本过程读取每个参加统测学生的班级序号、姓名和统测成绩分别存储在数组class,sname和 score中并在List1中显示，代码略
End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer
For i = 1 To nc
b(i) = 0
Next i
For i = 1 To n '统计每个班级统测人数
Next i
k = 1
For i = 1 To nc
c(i) = k
k = k ＋ b(i)
Next i
For i = 1 To n
k = class (i)
c(k) = c(k) + 1
Next i
For i = 1 To nc '对各班级按统测成绩进行排序
Call px（），c(i)-1))
Next i
For i = 1 To n
List2.AddItem ＂ ＂ & class(d(i)) & ＂ ＂& sname (d(i)) & ＂ ＂ & score(d(i))
Next i
End Sub
Private Sub px(head As Integer, tail As Integer)
Dim i As Integer, j As Integer, t As Integer
For i = head To tail - 1
For j = tail To i + 1 Step -1
If Then
t = d(j): d(j) = d(j - 1): d(j - 1) = t
End If
Next j
Next i
End Sub