浙江省2019-2020学年普通高校招生选考科目信息技术考试试卷(二)
1．（2020·浙江模拟）下列有关信息的说法，错误的是( )
A．传递和获得信息的途径可以有多种
B．信息的编码与解码需要遵守一定的原则和方法
C．信息的来源不同导致获取的方法也存在差异
D．微信中转发他人朋友圈链接，无需承担相关法律责任
2．（2020·浙江模拟）某Excel文档的数据如图所示。
下列数据表能粘贴该工作表的数据的是（ ）
A． B．
C． D．
3．（2020·浙江模拟）小陈使用Word软件，对文档的部分内容进行了以下修改，下列描述不正确的是( )
A．该文档第1处批注内容为：“2017年”
B．当前状态下仅有1位用户对该文档添加批注
C．拒绝所有修订后，第7行部分文本内容为：“19”代表的是最大载客量为1 900座
D．接受所有修订后，第1行部分文本内容为：2017年这个春天，中国注定吸引世界目光
4．（2020·浙江模拟）一个未经压缩的BMP格式图像文件，其相关信息如图所示。由此可知，表示该图像的每个像素需要的二进制位数是（ ）
A．4 B．8 C．24 D．32
5．（2020·浙江模拟）一个二位十六进制正整数 n，末位是“9”，下列说法正确的是（ ）
A．无法确定 n 是奇数还是偶数
B．n+1 是一个三位十六进制数
C．转换为十进制数，最小值是 25
D．转换为二进制数，位数一定是 8
6．（2020·浙江模拟）下列有关多媒体技术的说法正确的是( )
A．任何多媒体作品都具有交互性这个特征
B．多媒体作品的规划设计阶段可以分为模块设计和脚本设计
C．多媒体中存在冗余越少，采用多媒体技术压缩后文件的压缩比越大
D．多媒体数据的压缩技术可以允许存在少量误差和去除冗余，因此该压缩属于有损压缩
7．（2020·浙江模拟）某算法的部分流程图如图所示。当输入x的值为100时，在标签Label1中输出的内容为（ ）
A．4 B．33 C．36 D．48
8．（2020·浙江模拟）下列VB表达式的值最大的是（ ）。
A．Len("36")+3 B．Sqr(36)+Int(3.6)
C．Asc("a")- Asc("A") D．Val(mid("236",1,2))
9．（2020·浙江模拟）有如下程序段：
i = 1
Do While i <= 5
If i = 0 or a(i - 1) <= a(i) Then
i = i + 1
Else
t = a(i): a(i) = a(i - 1): a(i - 1) = t
i = i - 1
End If
Loop
For i = 1 To 5
List2.AddItem a(i)
Next i
数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（ ）
A．0 B．71 C．48 D．27
10．（2020·浙江模拟）对用户输入的字符串进行解密的 VB 程序段如下：
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
nk = Asc(ch) - i
If nk < 0 Then nk = nk + 127
Text2.Text = Text2.Text + Chr(nk)
Next i
已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为( )
A．YHt5 B．xgS4 C．zjW9 D．xfQ1
11．（2020·浙江模拟）下列VB程序段实现求双重数列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n项中的奇数项和。
Dim a(1 To 100)As Integer
n=Val(Text1.Text)
a(1)=0：a(3)=1
s=1
Next i
Text2.Text=Str(s)
方框中的代码由以下三部分组成：
①a(i)=a(i-2)+a(i-4)
②s=s+a(i)
③For i=5 To n Step 2
代码顺序正确的选项是( )
A．①②③ B．③②① C．②①③ D．③①②
12．（2020·浙江模拟）以下VB 程序段的功能是：单击一次按钮Command1，在列表List1 中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。
Private Sub Command1_Click()
Dim s As String, c As String, i As String, a As String, t As Integer
Randomize
s = “”
For i = 1 To 10
If a <= 26 Then
t = a + 64
Else
End If
c = Chr(t)
s = s + c
Next i
List1.AddItem s
End Sub
以上横线处的正确语句是( )
A．①a=Int(Rnd * 52 + 1) ②t = a + 70
B．①a=Int(Rnd * 52) ②t = a + 71
C．①a=Int(Rnd * 52 + 1) ②t = a + 72
D．①a=Int(Rnd * 52) ②t = a + 73
13．（2020·浙江模拟）某调查公司发布了喜马拉雅收听次数较多、评分较好的部分栏目，现使用Excel软件进行数据处理，界面如图a所示。
图a
请回答下列问题：
（1）区域F4：F27的数据是通过对F3单元格进行自动填充得到的，则F19单元格中的公式为 。
（2）要对“人文历史”类节目按“已播次数(万)”进行降序排序，应选中的排序区域是 。
（3）若对图a中的数据按“已播次数(万)”和“评分”进行筛选，筛选条件均如图b所示，筛选得到的节目名称是 。
图b
（4）根据创建好的如图c所示的图表可以判断图表数据区域选择时， (选填：有/没有)包含B2和E2单元格的数据。
图c
14．（2020·浙江模拟）小明制作主题为“荷花韵”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
图a
（1）如图a所示，当前状态下，下列说法正确的有 (多选，填字母：A . “荷花韵”图层设置了文字变形效果/ B . “圆荷”图层的图层样式均可视/ C . 将作品保存为PSD格式，可下次继续编辑图层信息/ D . “荷花”图层的不透明度是0%)。
（2）如图b所示，“蝴蝶1”图层第6帧到第36帧实现了蝴蝶从左向右飞行的动画效果，该动画类型为 (填字：动画补间/形状补间/逐帧动画)。
（3）如图b所示，“音乐”图层第10帧的声音来自文件“liushui.mp3”。该场景动画播放到第36帧结束时，声音刚好完整播放一遍。由此可知该声音文件时间长度约为 秒(保留1位小数)。
图b
（4）为实现“蝴蝶2”图层与“蝴蝶1”图层中的蝴蝶实例同时开始播放，应对“蝴蝶2”图层进行的操作是 。
（5）测试影片时，单击“退出”按钮，实现关闭动画。则“退出”按钮的动作脚本为 。
15．（2020·浙江模拟）有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。
实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50) As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
For i = 1 To n
Next i
s = 0；j = 0
Do While s < n
t = 0
Do While t < m
t = t + a(j)
Loop
a(j) = 0
s = s + 1
List1.AddItem “第” + Str(s) + “次：” + Str(j)
Loop
End Sub
（1）“报数”按钮的对象名称是 。
（2）程序代码中，加框处有错，请改正。
（3）程序代码中，横线处语句补充完整。
（4）程序运行结束后，变量t的值是 。
16．（2020·浙江模拟）编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文(每个明文字母对应1个不重复的密文字母)。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文，并在文本框Text2中显示对应密文(运行效果如图所示)。实现上述功能的VB代码如下，请完善程序代码。
Dim m2 As String
Private Sub Command1_Click()
Dim flag(1 To 26) As Boolean
Dim num As Integer，t As Integer
Randomize
num = 1
Text3.Text = “”
For i = 1 To 26
flag(i) = False
Next i
Do While num <= 26
x = Int(Rnd * 26) + 97
If flag(t) = False Then
m2 = m2 + Chr(x)
num = num + 1
End If
Loop
Text3.Text = m2
End Sub
Private Sub Command2_Click()
Dim s As String, m As String, result As String
Dim k As String, c As Integer
s = Text1.Text
m = “abcdefghijklmnopqrstuvwxyz”
For i = 1 To Len(s)
k = Mid(s, i, 1)
If k >= ”A” And k <= “Z” Then
k = Chr(Asc(k) + 32)
End If
c = 1: continue = True
Do While
If k = Mid(m, c, 1) Then
continue = False
End If
c = c + 1
Loop
Next i
Text2.Text = result
End Sub
答案解析部分
1．【答案】D
【知识点】信息的传递与传播；信息获取的环节与方法；信息来源的选择与判断；信息的编码
2．【答案】D
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
3．【答案】D
【知识点】文本的基本编辑
【解析】【解答】批注1中的“2017年”是对“这个春天”所做的批注，批注功能是给文章添加修改意见或注释，但不改变原文的内容，只要被批注的内容“这个春天”不被删除，接受或拒绝修订不会影响所做的批注；如果被批注的内容“这个春天”被删除，接受修订后该批注也会被同时删除。故答案选D。
【分析】本题考查Word的批注与修订功能的区别。批注是对选中的字、词、句或段落发表自己的意见或看法。修订：明确是文稿修改前后的差异。可以对修改之处进行审阅，允许修改或拒绝修改。
4．【答案】D
【知识点】声音、图像、视频编码
【解析】【解答】由图可知：sample.bmp图像的大小为640*512，其占用存储空间为1.25M，由图像占用存储空间公式知：占用字节数=存储容量/分辨率=(1.25*1024*1024*8)/(640*512)=32(b)，即每个点占用32个二进制数。故答案选D。
【分析】本题考查的是图像文件存储容量的计算方法。共公式为：图像文件存储量=水平像素×垂直像素×每个像素所需位数／8 （字节）。
5．【答案】C
【知识点】进制及数制转换
【解析】【解答】选项A：十六进制的前几位都是16的倍数，最后一位是奇数则该数为奇数，是偶数则该数为偶数，本题末位是9是个奇数，本项错。选项B：十进制数9加上1后要进位，但本题是个十六进制数到15（F）加1后才进位，9+1不进位，只能写作A，故本项错。选项C：本题是个二位十六进制数最小的数应为19，转为十进制数为25（16+9=25），本项对。选项D：本题的这个二位十六进制数可能为：19H、29H、……、99H，如为19，则转为二进制数为：11001，位数为5位，本项错。故答案选C。
【分析】本题考查的是十六进制数的特点。十六进制逢16进1，前几位是16的倍数，所以末数位可以确定其奇偶性，在十六进制转十进制数时采用公式法，在对二进制数进行转换时，1 位转为4位但左边的0可以不算位数。
6．【答案】D
【知识点】多媒体技术的概念和特征；多媒体作品的规划和设计；多媒体数据压缩技术
【解析】【解答】多媒体有集成性、交互性和实时性三大特性，集成性是所有多媒体共有的，但交互性和实时性可能在某些多媒体中具有，交互性通过按钮或超链接来实现。规划设计分为系统结构设计和模块设计两个部分。冗余越大，压缩比越大。多媒体数据的压缩是不可逆转的，因此属于有损压缩。
【分析】本题考查的是多媒体技术的特征、规划设计以及多媒体数据的压缩技术。
7．【答案】C
【知识点】算法的控制结构
【解析】【解答】当x=100时，符合循环条件x>0，然后进行条件判断看x能否整除以3，不能，然后执行x整除3并赋给x，这时x的值为33完成第1次循环。然后根据X>0进行第二次循环，这时x的值为33，可以整除3，所以计算s的值：s=s+a=33。然后将x整除并赋给x，x的值为11，完成第二次循环。根据条件进行第三次循环，这时x不能整除3，将x整除并赋给x，x的值为3，完成第三次循环。根据条件进行第四次循环，由于3能整除3，所以计算s的值：s=S+x=33+3=36。计算后再将x整除并赋给变量x，这时x的值为1，进行第五次循环，1不能整除3所以 又再将x整除并赋给变量x，这时x的值为0，寒碜第五次循环，这时由于x的值不满足循环条件x>0，所以退出循环并在标签中输出s的值，所以本题的输出结果为36。本题正确选项为C。
【分析】本题考查的是循环结构。在循环结构中最主要的是对循环条件和循环退出条件的判断，对于没有规律的循环，只能一遍一遍的分析。
8．【答案】C
【知识点】运算符、基本运算与表达式
【解析】【解答】"len"返回字符串长度故A选项的值为2+3=5；"sqr”求平方根，"Int"取整数部分，故B选项的值为6+3=9；Asc求Ascii码，Asc("a")=97，Asc("A")=65，故C选项的值为97-65=32，"Val"将字符串转为数值，D选项的值为Val(23)=23。故答案选C。
【分析】本题考查的是VB中基本函数的功能及表达式的计算。
9．【答案】B
【知识点】算法的控制结构；排序算法及程序实现
【解析】【解答】本题程序分析如下：
i = 1 ‘i为控制循环变量，将i赋初值为1
Do While i <= 5 ‘在i的值小于等于5时执行循环
If i = 0 or a(i - 1) <= a(i) Then ‘如果i值为0或数组元素比前一个值大时进行如下处理
i = i + 1 ‘将i值增1
Else ‘ 如果i值不为0且数组元素比前一个小时进行如下处理
t = a(i): a(i) = a(i - 1): a(i - 1) = t ‘借助第三变量将前后两个数组元素的值进行交换
i = i - 1 ‘将i值减小1
End If ‘结束判断
Loop ‘结束循环
For i = 1 To 5 ‘使用i值来控制循环
List2.AddItem a(i) ‘在列表框2中输出数组元素的值（每行一个）
Next i ‘结束循环
由以上分析知：该程序为将数组元素的值按由小到大的顺序进行排序。故答案选B。
【分析】本题为一道采用回溯算法进行排序的程序设计题。采用回溯算法进行排序时满足条件往后走，不满足条件时退一步或n步进行处理直到满足条件再向后走，一直到所有元素都满足条件为止。
10．【答案】D
【知识点】常量、变量及变量的赋值；加密与解密算法
11．【答案】D
【知识点】循环结构语句及程序实现
12．【答案】A
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
13．【答案】（1）=RANK(C19，$C$3：$C$27)
（2）B8：F12
（3）如何练就好声音
（4）有
【知识点】表格数据的基本操作；表格数据的处理与计算
14．【答案】（1）BC
（2）动画补间
（3）2.2
（4）将“蝴蝶2”图层的首关键帧(或第12帧的关键帧)移至第6帧处
（5）on(release){fsCommand(”quit”)；} 或on(press){fsCommand(”quit”)；}
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．【答案】（1）Cmd_1
（2）a(i)=1
（3）j=j Mod n +1
（4）m
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常量、变量及变量的赋值；循环结构语句及程序实现
16．【答案】t = x - Asc(”a”) + 1；flag(t) = True；countinue = True 或countinue；result = result + Mid(m2, c - 1, 1)
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现；加密与解密算法
1 / 1浙江省2019-2020学年普通高校招生选考科目信息技术考试试卷(二)
1．（2020·浙江模拟）下列有关信息的说法，错误的是( )
A．传递和获得信息的途径可以有多种
B．信息的编码与解码需要遵守一定的原则和方法
C．信息的来源不同导致获取的方法也存在差异
D．微信中转发他人朋友圈链接，无需承担相关法律责任
【答案】D
【知识点】信息的传递与传播；信息获取的环节与方法；信息来源的选择与判断；信息的编码
2．（2020·浙江模拟）某Excel文档的数据如图所示。
下列数据表能粘贴该工作表的数据的是（ ）
A． B．
C． D．
【答案】D
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
3．（2020·浙江模拟）小陈使用Word软件，对文档的部分内容进行了以下修改，下列描述不正确的是( )
A．该文档第1处批注内容为：“2017年”
B．当前状态下仅有1位用户对该文档添加批注
C．拒绝所有修订后，第7行部分文本内容为：“19”代表的是最大载客量为1 900座
D．接受所有修订后，第1行部分文本内容为：2017年这个春天，中国注定吸引世界目光
【答案】D
【知识点】文本的基本编辑
【解析】【解答】批注1中的“2017年”是对“这个春天”所做的批注，批注功能是给文章添加修改意见或注释，但不改变原文的内容，只要被批注的内容“这个春天”不被删除，接受或拒绝修订不会影响所做的批注；如果被批注的内容“这个春天”被删除，接受修订后该批注也会被同时删除。故答案选D。
【分析】本题考查Word的批注与修订功能的区别。批注是对选中的字、词、句或段落发表自己的意见或看法。修订：明确是文稿修改前后的差异。可以对修改之处进行审阅，允许修改或拒绝修改。
4．（2020·浙江模拟）一个未经压缩的BMP格式图像文件，其相关信息如图所示。由此可知，表示该图像的每个像素需要的二进制位数是（ ）
A．4 B．8 C．24 D．32
【答案】D
【知识点】声音、图像、视频编码
【解析】【解答】由图可知：sample.bmp图像的大小为640*512，其占用存储空间为1.25M，由图像占用存储空间公式知：占用字节数=存储容量/分辨率=(1.25*1024*1024*8)/(640*512)=32(b)，即每个点占用32个二进制数。故答案选D。
【分析】本题考查的是图像文件存储容量的计算方法。共公式为：图像文件存储量=水平像素×垂直像素×每个像素所需位数／8 （字节）。
5．（2020·浙江模拟）一个二位十六进制正整数 n，末位是“9”，下列说法正确的是（ ）
A．无法确定 n 是奇数还是偶数
B．n+1 是一个三位十六进制数
C．转换为十进制数，最小值是 25
D．转换为二进制数，位数一定是 8
【答案】C
【知识点】进制及数制转换
【解析】【解答】选项A：十六进制的前几位都是16的倍数，最后一位是奇数则该数为奇数，是偶数则该数为偶数，本题末位是9是个奇数，本项错。选项B：十进制数9加上1后要进位，但本题是个十六进制数到15（F）加1后才进位，9+1不进位，只能写作A，故本项错。选项C：本题是个二位十六进制数最小的数应为19，转为十进制数为25（16+9=25），本项对。选项D：本题的这个二位十六进制数可能为：19H、29H、……、99H，如为19，则转为二进制数为：11001，位数为5位，本项错。故答案选C。
【分析】本题考查的是十六进制数的特点。十六进制逢16进1，前几位是16的倍数，所以末数位可以确定其奇偶性，在十六进制转十进制数时采用公式法，在对二进制数进行转换时，1 位转为4位但左边的0可以不算位数。
6．（2020·浙江模拟）下列有关多媒体技术的说法正确的是( )
A．任何多媒体作品都具有交互性这个特征
B．多媒体作品的规划设计阶段可以分为模块设计和脚本设计
C．多媒体中存在冗余越少，采用多媒体技术压缩后文件的压缩比越大
D．多媒体数据的压缩技术可以允许存在少量误差和去除冗余，因此该压缩属于有损压缩
【答案】D
【知识点】多媒体技术的概念和特征；多媒体作品的规划和设计；多媒体数据压缩技术
【解析】【解答】多媒体有集成性、交互性和实时性三大特性，集成性是所有多媒体共有的，但交互性和实时性可能在某些多媒体中具有，交互性通过按钮或超链接来实现。规划设计分为系统结构设计和模块设计两个部分。冗余越大，压缩比越大。多媒体数据的压缩是不可逆转的，因此属于有损压缩。
【分析】本题考查的是多媒体技术的特征、规划设计以及多媒体数据的压缩技术。
7．（2020·浙江模拟）某算法的部分流程图如图所示。当输入x的值为100时，在标签Label1中输出的内容为（ ）
A．4 B．33 C．36 D．48
【答案】C
【知识点】算法的控制结构
【解析】【解答】当x=100时，符合循环条件x>0，然后进行条件判断看x能否整除以3，不能，然后执行x整除3并赋给x，这时x的值为33完成第1次循环。然后根据X>0进行第二次循环，这时x的值为33，可以整除3，所以计算s的值：s=s+a=33。然后将x整除并赋给x，x的值为11，完成第二次循环。根据条件进行第三次循环，这时x不能整除3，将x整除并赋给x，x的值为3，完成第三次循环。根据条件进行第四次循环，由于3能整除3，所以计算s的值：s=S+x=33+3=36。计算后再将x整除并赋给变量x，这时x的值为1，进行第五次循环，1不能整除3所以 又再将x整除并赋给变量x，这时x的值为0，寒碜第五次循环，这时由于x的值不满足循环条件x>0，所以退出循环并在标签中输出s的值，所以本题的输出结果为36。本题正确选项为C。
【分析】本题考查的是循环结构。在循环结构中最主要的是对循环条件和循环退出条件的判断，对于没有规律的循环，只能一遍一遍的分析。
8．（2020·浙江模拟）下列VB表达式的值最大的是（ ）。
A．Len("36")+3 B．Sqr(36)+Int(3.6)
C．Asc("a")- Asc("A") D．Val(mid("236",1,2))
【答案】C
【知识点】运算符、基本运算与表达式
【解析】【解答】"len"返回字符串长度故A选项的值为2+3=5；"sqr”求平方根，"Int"取整数部分，故B选项的值为6+3=9；Asc求Ascii码，Asc("a")=97，Asc("A")=65，故C选项的值为97-65=32，"Val"将字符串转为数值，D选项的值为Val(23)=23。故答案选C。
【分析】本题考查的是VB中基本函数的功能及表达式的计算。
9．（2020·浙江模拟）有如下程序段：
i = 1
Do While i <= 5
If i = 0 or a(i - 1) <= a(i) Then
i = i + 1
Else
t = a(i): a(i) = a(i - 1): a(i - 1) = t
i = i - 1
End If
Loop
For i = 1 To 5
List2.AddItem a(i)
Next i
数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为（ ）
A．0 B．71 C．48 D．27
【答案】B
【知识点】算法的控制结构；排序算法及程序实现
【解析】【解答】本题程序分析如下：
i = 1 ‘i为控制循环变量，将i赋初值为1
Do While i <= 5 ‘在i的值小于等于5时执行循环
If i = 0 or a(i - 1) <= a(i) Then ‘如果i值为0或数组元素比前一个值大时进行如下处理
i = i + 1 ‘将i值增1
Else ‘ 如果i值不为0且数组元素比前一个小时进行如下处理
t = a(i): a(i) = a(i - 1): a(i - 1) = t ‘借助第三变量将前后两个数组元素的值进行交换
i = i - 1 ‘将i值减小1
End If ‘结束判断
Loop ‘结束循环
For i = 1 To 5 ‘使用i值来控制循环
List2.AddItem a(i) ‘在列表框2中输出数组元素的值（每行一个）
Next i ‘结束循环
由以上分析知：该程序为将数组元素的值按由小到大的顺序进行排序。故答案选B。
【分析】本题为一道采用回溯算法进行排序的程序设计题。采用回溯算法进行排序时满足条件往后走，不满足条件时退一步或n步进行处理直到满足条件再向后走，一直到所有元素都满足条件为止。
10．（2020·浙江模拟）对用户输入的字符串进行解密的 VB 程序段如下：
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
nk = Asc(ch) - i
If nk < 0 Then nk = nk + 127
Text2.Text = Text2.Text + Chr(nk)
Next i
已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为( )
A．YHt5 B．xgS4 C．zjW9 D．xfQ1
【答案】D
【知识点】常量、变量及变量的赋值；加密与解密算法
11．（2020·浙江模拟）下列VB程序段实现求双重数列0，2，1，4，1，6，2，8，3，10，5，12，8，……前n项中的奇数项和。
Dim a(1 To 100)As Integer
n=Val(Text1.Text)
a(1)=0：a(3)=1
s=1
Next i
Text2.Text=Str(s)
方框中的代码由以下三部分组成：
①a(i)=a(i-2)+a(i-4)
②s=s+a(i)
③For i=5 To n Step 2
代码顺序正确的选项是( )
A．①②③ B．③②① C．②①③ D．③①②
【答案】D
【知识点】循环结构语句及程序实现
12．（2020·浙江模拟）以下VB 程序段的功能是：单击一次按钮Command1，在列表List1 中随机输出一行10个大小写字母。已知字母“A”和“a”的ASCII码值分别为65和97。
Private Sub Command1_Click()
Dim s As String, c As String, i As String, a As String, t As Integer
Randomize
s = “”
For i = 1 To 10
If a <= 26 Then
t = a + 64
Else
End If
c = Chr(t)
s = s + c
Next i
List1.AddItem s
End Sub
以上横线处的正确语句是( )
A．①a=Int(Rnd * 52 + 1) ②t = a + 70
B．①a=Int(Rnd * 52) ②t = a + 71
C．①a=Int(Rnd * 52 + 1) ②t = a + 72
D．①a=Int(Rnd * 52) ②t = a + 73
【答案】A
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
13．（2020·浙江模拟）某调查公司发布了喜马拉雅收听次数较多、评分较好的部分栏目，现使用Excel软件进行数据处理，界面如图a所示。
图a
请回答下列问题：
（1）区域F4：F27的数据是通过对F3单元格进行自动填充得到的，则F19单元格中的公式为 。
（2）要对“人文历史”类节目按“已播次数(万)”进行降序排序，应选中的排序区域是 。
（3）若对图a中的数据按“已播次数(万)”和“评分”进行筛选，筛选条件均如图b所示，筛选得到的节目名称是 。
图b
（4）根据创建好的如图c所示的图表可以判断图表数据区域选择时， (选填：有/没有)包含B2和E2单元格的数据。
图c
【答案】（1）=RANK(C19，$C$3：$C$27)
（2）B8：F12
（3）如何练就好声音
（4）有
【知识点】表格数据的基本操作；表格数据的处理与计算
14．（2020·浙江模拟）小明制作主题为“荷花韵”的多媒体作品。他首先使用Photoshop软件制作一张背景图片，然后使用Flash软件制作动画。请回答下列问题：
图a
（1）如图a所示，当前状态下，下列说法正确的有 (多选，填字母：A . “荷花韵”图层设置了文字变形效果/ B . “圆荷”图层的图层样式均可视/ C . 将作品保存为PSD格式，可下次继续编辑图层信息/ D . “荷花”图层的不透明度是0%)。
（2）如图b所示，“蝴蝶1”图层第6帧到第36帧实现了蝴蝶从左向右飞行的动画效果，该动画类型为 (填字：动画补间/形状补间/逐帧动画)。
（3）如图b所示，“音乐”图层第10帧的声音来自文件“liushui.mp3”。该场景动画播放到第36帧结束时，声音刚好完整播放一遍。由此可知该声音文件时间长度约为 秒(保留1位小数)。
图b
（4）为实现“蝴蝶2”图层与“蝴蝶1”图层中的蝴蝶实例同时开始播放，应对“蝴蝶2”图层进行的操作是 。
（5）测试影片时，单击“退出”按钮，实现关闭动画。则“退出”按钮的动作脚本为 。
【答案】（1）BC
（2）动画补间
（3）2.2
（4）将“蝴蝶2”图层的首关键帧(或第12帧的关键帧)移至第6帧处
（5）on(release){fsCommand(”quit”)；} 或on(press){fsCommand(”quit”)；}
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．（2020·浙江模拟）有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3，…，n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。
实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50) As Integer
n = Val(Text1.Text)
m = Val(Text2.Text)
For i = 1 To n
Next i
s = 0；j = 0
Do While s < n
t = 0
Do While t < m
t = t + a(j)
Loop
a(j) = 0
s = s + 1
List1.AddItem “第” + Str(s) + “次：” + Str(j)
Loop
End Sub
（1）“报数”按钮的对象名称是 。
（2）程序代码中，加框处有错，请改正。
（3）程序代码中，横线处语句补充完整。
（4）程序运行结束后，变量t的值是 。
【答案】（1）Cmd_1
（2）a(i)=1
（3）j=j Mod n +1
（4）m
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；常量、变量及变量的赋值；循环结构语句及程序实现
16．（2020·浙江模拟）编写VB程序，实现如下功能：单击“生成密文”按钮Command2，在文本框Text3中产生与每个小写字母对应的密文(每个明文字母对应1个不重复的密文字母)。在文本框Text1中输入单词字符串，单击“加密”按钮Command1后，进行逐个字符加密，加密方法：在“明文”中找到相应字符，再得到明文对应位置的密文，并在文本框Text2中显示对应密文(运行效果如图所示)。实现上述功能的VB代码如下，请完善程序代码。
Dim m2 As String
Private Sub Command1_Click()
Dim flag(1 To 26) As Boolean
Dim num As Integer，t As Integer
Randomize
num = 1
Text3.Text = “”
For i = 1 To 26
flag(i) = False
Next i
Do While num <= 26
x = Int(Rnd * 26) + 97
If flag(t) = False Then
m2 = m2 + Chr(x)
num = num + 1
End If
Loop
Text3.Text = m2
End Sub
Private Sub Command2_Click()
Dim s As String, m As String, result As String
Dim k As String, c As Integer
s = Text1.Text
m = “abcdefghijklmnopqrstuvwxyz”
For i = 1 To Len(s)
k = Mid(s, i, 1)
If k >= ”A” And k <= “Z” Then
k = Chr(Asc(k) + 32)
End If
c = 1: continue = True
Do While
If k = Mid(m, c, 1) Then
continue = False
End If
c = c + 1
Loop
Next i
Text2.Text = result
End Sub
【答案】t = x - Asc(”a”) + 1；flag(t) = True；countinue = True 或countinue；result = result + Mid(m2, c - 1, 1)
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现；加密与解密算法
1 / 1
