浙江省杭州第二高级中学校2021届高三上学期信息技术12月仿真模拟考试试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2020·杭州模拟）关于信息和信息技术的说法不正确的是( )
A．在支付宝支付时添加了指纹验证，提高了信息的安全性
B．现代信息技术包含通信技术、计算机技术、传感器和机器人等方面
C．随着时间的流逝，很多历史事件会变的无从考证，说明信息具有载体依附性
D．对朋友圈里的信息进行点赞属于信息的个人评价
【答案】B
【知识点】信息及其特征；信息技术的概念与关键技术；因特网信息资源评价；信息系统安全防护
2．（2020·杭州模拟）小茗同学将刊登在杂志上的一篇文章扫描后，通过OCR软件识别出文字，并用word软件编辑处理。下列说法不正确的是( )
A．若扫描的分辨率太低，会影响OCR软件的识别率
B．王老师可以使用word的批注功能给文章精彩处添加点评
C．软件对导入的扫描文件进行版面分析，这个过程属于人工智能
D．Word软件中完成编辑后，关闭“修订”功能，之前显示的所有修改记录依旧存在
【答案】C
【知识点】字符识别
3．（2020·杭州模拟）雷雷制作了一个关于动漫的作品，部分信息存储在“动漫作品”数据表中，数据表结构及记录分别如图所示，选择右键菜单中的“新记录”并输入相应数据，下列说法正确的是( )
A．数据库的文件名为“动漫作品”
B．添加新记录之后，编号3的记录将移到第3条
C．在设计视图中可以将“编号”字段设置为主键
D．在数据表视图中，如果删除了某个字段值，则不能再进行“撤销”操作
【答案】C
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．某十进制偶数x，范围为100-254，将其转化为二进制数y，以下说法不正确的是（ ）
A．x/2的运算结果转为二进制一定比y少1位
B．二进制数y的最低位一定是0
C．十进制数x+1转化为二进制数不超过8位
D．十进制数x mod16与二进制数y的左侧4位的值相等
【答案】D
【知识点】进制及数制转换
【解析】【解答】选项A：x除以2后的结果，其二进制数是二进制数y每1位上的数向右移动1位，比原来少1位。A正确；选项B：偶数转化为二进制数，最低位一定是0。B正确；选项C：最大的8位二进制数值为255。C正确；选项D：x除以16取余，其余数与y的右侧4位相等。D错误。故答案选D。
【分析】本题考查十进制数与二进制数之间的转换。
5．（2020·杭州模拟）用GoldWave软件编辑某音频文件，部分界面如下图所示，在当前状态下执行“剪裁”命令，保持其他参数不变，保存后的文件大小约为（ ）
A．172KB B．344KB C．177MB D．344MB
【答案】A
【知识点】声音、图像、视频编码
6．（2020·杭州模拟）使用会声会影软件进行作品制作，部分操作界面如下图所示。
下列说法正确的是（ ）
A．素材“码头.avi”和素材“中国.jpg”之间可以添加转场效果
B．该作品使用了2个视频素材
C．“bg.mp3”开始播放时“背景.wav”停止播放
D．该作品添加的标题内容是“丝绸之路”
【答案】D
【知识点】视频的基本处理
7．（2020·杭州模拟）某算法的部分流程图如图所示。执行这部分流程，分别输入4、13、5、17、51、17则输出值依次为（ ）
A．112，120 B．112，110 C．112，120，8 D．112，120，7
【答案】D
【知识点】流程图识读
8．（2020·杭州模拟）在VB中下列关于对象的描述错误的是（ ）
A．对象的属性用于描述对象的状态
B．对象的属性与方法可以有多个
C．对象的属性值只能在属性窗口中设置
D．对象事件的发生会驱动该对象相应事件处理过程的执行
【答案】C
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用
9．（2020·杭州模拟）程序运行时分别在文本框Text1与Text2中输入12与20，点击按钮Command1后，文本框Text3中显示的内容是（ ）
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = Val (Text1. Text)
j = Val (Text2.Text)
Text3. Text = Str(i * j / f(i，j))
End Sub
Function f(a As Integer, b As Integer) As Integer
Dim k As Integer
k=a Mod b
If k=0 Then
f=b
Else
f=f(b，k)
End If
End Function
A．4 B．12 C．20 D．60
【答案】D
【知识点】过程与自定义函数
10．（2020·杭州模拟）有如下的VB程序：
Private Sub Command1_Click( )
Dim a(10) As Integer, n As Integer
a(1) = 1
For i =2 To 10
a(i)=a(i-1)*i
Next i
List1.AddItem Str(a(i))
End Sub
运行该程序，单击命令按钮Command1，弹出的错误信息提示是（ ）
A．溢出 B．下标越界
C．子程序未定义 D．要求对象
【答案】A
【知识点】程序的调试及运行；循环结构语句及程序实现
11．（2020·杭州模拟）有以下VB程序段
Dim c(-10 To 10) As Integer， a(1 To 10) As Integer， b(1 To 10) As Integer
a(1)=58：a(2)=88：a(3)=66：a(4)=60：a(5)=78
a(6)=32：a(7)=54：a(8)=75：a(9)=99：a(10)=69
Label1． Caption =
For i=1 To 9
b(i)=a(i+1)-a(i)
c(b(i)\10)=c(b(i)\10)+1
Next i
For i=0 To 10
If c(i) > 0 Then Label1.Caption = Label1.Caption + Str(c(i))
Next i
已知数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（ ）
A．131 B．1421 C．1131 D．11421
【答案】C
【知识点】常见数据类型、数组；循环结构语句及程序实现
12．（2020·杭州模拟）现有一个整数型数组a (下标1到n)，其值的规律是先升序中间相等，之后降序。现要找到降序的拐点，如数列2、4、8、12、18、 18、 18、18、5、3，其降序的拐点为最后一个18所在的位置，即8号位置。部分程序如下：
L=1：R=n
Do While L<=R
m=(L+R)\2
If ① Then
R=m-1
Else
L=m+1
End If
Loop
Text1.Text = ②
为实现上述功能，则程序中①、②处填写的代码是（ ）
A．①a(m) > a(m + 1) ②Str(R)
B．①a(m)>a(m+1) ②Str(L)
C．①a(m) >= a(m + 1) ②Str(R)
D．①a(m) >= a(m + 1) ②Str(L)
【答案】B
【知识点】查找算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2020·杭州模拟）小包收集了XX荣耀游戏中的部分英雄属性数据，并用Excel软件进行数据处理，如图a所示，请回答下列问题：
（1）区域J4：K31的数据是通过J3单元格自动填充得到的，则J3单元格中的公式是 。
(提示：物理\法术防御率=物理\法术防御+(物理\法术防御系数+物理\法术防御))
（2）使用图a的数据建立如图b的图标，则该选择的数据区域为 。
（3）小包不小心将整列E单元格删除，则列J单元格将显示为 (单选，填字母：A .0/B .#VALUE！/C .#REF！/D .#DIV/0！)
（4）将区域A3：K31的数据复制到新工作表进行筛选，对“最大生命”和“5秒回血”设置如图c所示的筛选条件，则按此设置筛选出的英雄是 。
【答案】（1）=E3/(E3+M$3)
（2）A1:A10, J1:K10
（3）C
（4）廉颇
【知识点】表格数据的处理与计算
14．（2020·杭州模拟）小俊制作主题为“鬼灭之刃”的多媒体作品。他使用PhotoShop软件制作一张背 景图片，然后使用Flash软件制作动画。请回答下列问题：
（1）如图a所示，当前状态下，下列说法正确的是 (多选，填字母：A .“鬼灭之刃”图层添加了图层样式和滤镜/B .“炭治郎”图层可以使用自由变换改变素材大小/C .“背景”图层可以重命名/D .拷贝“炭治郎”图层样式并复制到“鬼灭之刃”图层后，“鬼灭之刃”图层只有1个图层样式/ E .可以将“祢豆子”图层的透明度调整为50%)
（2）“樱花”图层第11帧至21帧的补间动画实现了由一朵樱花逐渐变为两朵樱花的效果，则该补间类型为 (选填：动画补间/形状补间)
（3）小俊制作“暂停”按钮，在按钮“文字”图层的弹起帧中有“暂停”文字，如图c所示。为了使鼠标移动到该按钮时才显示“暂停”文字，下列操作可行的是 (多选，填字母)
A．将“文字”图层的弹起帧移动到指针经过帧
B．在“文字”图层的弹起帧执行“清除关键帧”操作
C．在“文字”图层的弹起帧执行“清除帧"操作
D．在“文字”图层的指针经过帧执行“插入关键帧”，并在弹起帧执行“转换为空白关键帧”操作
E．在“文字”图层的弹起帧执行“插入空白关键帧”操作
（4）单击“暂停”按钮时动画和声音同时停止播放，“暂停”按钮实例的动作脚本为 “音乐”图层中声音的同步属性为 。(选填，事件/数据流)
（5）测试影片时弹出如图所示的错误提示窗口，由图d中信息可知，该动作脚本设置在 上(选填，按钮/关键帧)。
【答案】（1）CD
（2）形状补间
（3）A；C
（4）on(press){stop();}；数据流
（5）按钮
【知识点】图层及图层的基本操作；动画的类型；元件的类型与应用；常用影片控制函数的应用；声音同步属性设置
15．（2020·杭州模拟）小毅最近迷上一款导弹拦截的游戏。游戏中会依次出现n个导弹，游戏需要把这些导弹都拦截下来，但小毅只有一种反导弹拦截系统车，该车有一个缺陷：它的第一发炮弹能拦截任意高度的导弹，但后面每发射一次拦截炮弹，发射口的高度就会下降，也就是之后的每一发炮弹都不能高于前一发的高度
。小毅打算设计一个程序，可以根据游戏中出现的n个导弹，快速计算出至少需要几台这样的导弹拦截系统车，才能完美的把所有导弹拦截下来。
算法说明：从a数组中读入一枚导弹的高度数据a(i)，在b数组中查找第一个大于a(i)数值的位置，并用a(i)代替。如果a(i)大于等于b数组中所有的数值，则增加一台导弹拦截车(k=k+1)。
请正在做卷子优秀的你回答下列问题。
（1）若导弹高度依次为“243，309，123，167，229，183，87，333，92”， 最少需要 台导弹拦截系统车才能拦截所有导弹。
（2）请在划线处填入合适的代码。
Dim a(0 To 100) As Integer ‘记录所有导弹的高度及顺序
Dim b(0 To 100) As Integer ‘b(k)数组存储第k个系统车能拦截的最高高度
Dim n As Integer
Private Sub Command1_ Click( )
Dim L As
Integer, R As Integer, m As Integer
Dim k As
Integer, res As Integer, i As Integer
Randomize
n=15
For i= 1To
n
a(i)= ‘随机产生高度[75,380]的导弹,高度为整数
Next i
‘将导弹高度依顺序显示在文本框Text1中，代码略
k=1：b(k)=a(1)
For i=2 To
n
b(k+1)=a(i)
L=
1
R=k+1
Do
While L< = R
m=(L+R+1)\2
If Then
R=m-1
res=m
Else
L=m+1
End If
Loop
If res =k+1 Then k=k+1
Next i
Label2. Caption =“最少需要”+ Str(k) +“台导弹拦截系统”
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）41
（2）Int(Rnd * 306) + 75；b(res) = a(i)
（3）b(m) >= a(i)
【知识点】查找算法及程序实现
16．（2020·杭州模拟）从前有一只九尾狐叫小九，他拥有超高的智商，喜欢数学推理。最近他喜欢上了利用约瑟夫环玩推理纸牌的游戏。即给定n张环形排列的纸牌，选定最小的一张牌为起始位置。第一次取第1张牌(起始位置的纸牌)，第二次间隔1张取第3张纸牌，第三次
间隔2张取第6张纸牌，……直到取完为止(如果取的位置超过n，重新从1位置取)。如果有4张纸牌，那么取的纸牌编号依次为1，3，4，2。同样，可以知道每张纸牌的被取走的顺序如下表。
序号 1 2 3 4
1 轮次 1 2 1 3 1 4 1
2 轮次 2 2 2 4 2
3 轮次 3 2 3
4 轮次 4
纸牌被取走顺序也可以理解为纸牌存留的轮次。每次取走一张纸牌后，下一轮第一张纸牌编号为该纸牌的后一张。上述例子中3第二个被取，留存轮次2，下一轮的第一张纸牌为4，剩下的纸牌留存轮次增加。
现在，只要给小九纸牌的数量n，他能通过逆推法快速地计算出取的纸牌编号顺序，方法如下(以n=4为例)：
逆推得到的纸牌顺序 1 4 2 3
最终得到的纸牌编号 1 2 3 4
即在第i轮，上一轮纸牌轮次加1，并在后面增加一张轮次为1的纸牌。然后将轮次为1放在最前的位置，最后整体循环向右移动n-i次。直到n轮后，可知每张纸牌被取走的顺序，根据此顺序，得到每次取走纸牌的编号。
轮次 数组 1 2 3 4
1 a(1)=1 1
2 ①前一轮所有值加1 ②第二位增加数值1 ③将轮次为1的数放在最前 ④整体右移动2位 2 2 1 1 2 1 2
3 ①前一轮所有值加1 ②第三位增加数值1 ③将轮次为1的数放在最前 ④整体右移动1位 2 3 2 3 1 1 2 3 3 1 2
4 ①前一轮所有值加1 ②第四位增加数值1 ③将轮次为1的数放在最前 ④整体右移动0位 4 2 3 4 2 3 1 4 2 1 4 2
根据以上算法小九编写了如下VB程序，请回答下列问题。
（1）由题意可知，当n的值为6时，1~6张纸牌被取走顺序为 。
（2）请在划线处填入合适的代码。
Dim n As Integer
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Dim i As
Integer, j As Integer,k As Integer
Dim ans As
String, x As Integer
n = Val
(Text1. Text)
a(1) = 1
For i=2 To
n
For
j=1 To i-1
Next
j
j=i
Do While j>1
a(j)=a(j-1)
j=j-1
Loop
a(1) = 1
For j=1 Ton - i
k =
a(1)
a(x) = k
Next j
Next i
ans =“”
For i=1
Ton
ans = ans + Str(a(i))
Next i
Label1.
Caption =“序列为：”+ ans
End Sub
Function yd(i As Integer) As Integer
Dim j As
Integer, tmp As Integer
For j=i To
2 Step -1
tmp=j+1
If tmp
> i Then
a (tmp) = a(j)
Next j
yd=j+1
End Function
【答案】（1）1 4 2 5 6 3
（2）a(j) = a(j) + 1；x = yd(i)；tmp = 1
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省杭州第二高级中学校2021届高三上学期信息技术12月仿真模拟考试试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2020·杭州模拟）关于信息和信息技术的说法不正确的是( )
A．在支付宝支付时添加了指纹验证，提高了信息的安全性
B．现代信息技术包含通信技术、计算机技术、传感器和机器人等方面
C．随着时间的流逝，很多历史事件会变的无从考证，说明信息具有载体依附性
D．对朋友圈里的信息进行点赞属于信息的个人评价
2．（2020·杭州模拟）小茗同学将刊登在杂志上的一篇文章扫描后，通过OCR软件识别出文字，并用word软件编辑处理。下列说法不正确的是( )
A．若扫描的分辨率太低，会影响OCR软件的识别率
B．王老师可以使用word的批注功能给文章精彩处添加点评
C．软件对导入的扫描文件进行版面分析，这个过程属于人工智能
D．Word软件中完成编辑后，关闭“修订”功能，之前显示的所有修改记录依旧存在
3．（2020·杭州模拟）雷雷制作了一个关于动漫的作品，部分信息存储在“动漫作品”数据表中，数据表结构及记录分别如图所示，选择右键菜单中的“新记录”并输入相应数据，下列说法正确的是( )
A．数据库的文件名为“动漫作品”
B．添加新记录之后，编号3的记录将移到第3条
C．在设计视图中可以将“编号”字段设置为主键
D．在数据表视图中，如果删除了某个字段值，则不能再进行“撤销”操作
4．某十进制偶数x，范围为100-254，将其转化为二进制数y，以下说法不正确的是（ ）
A．x/2的运算结果转为二进制一定比y少1位
B．二进制数y的最低位一定是0
C．十进制数x+1转化为二进制数不超过8位
D．十进制数x mod16与二进制数y的左侧4位的值相等
5．（2020·杭州模拟）用GoldWave软件编辑某音频文件，部分界面如下图所示，在当前状态下执行“剪裁”命令，保持其他参数不变，保存后的文件大小约为（ ）
A．172KB B．344KB C．177MB D．344MB
6．（2020·杭州模拟）使用会声会影软件进行作品制作，部分操作界面如下图所示。
下列说法正确的是（ ）
A．素材“码头.avi”和素材“中国.jpg”之间可以添加转场效果
B．该作品使用了2个视频素材
C．“bg.mp3”开始播放时“背景.wav”停止播放
D．该作品添加的标题内容是“丝绸之路”
7．（2020·杭州模拟）某算法的部分流程图如图所示。执行这部分流程，分别输入4、13、5、17、51、17则输出值依次为（ ）
A．112，120 B．112，110 C．112，120，8 D．112，120，7
8．（2020·杭州模拟）在VB中下列关于对象的描述错误的是（ ）
A．对象的属性用于描述对象的状态
B．对象的属性与方法可以有多个
C．对象的属性值只能在属性窗口中设置
D．对象事件的发生会驱动该对象相应事件处理过程的执行
9．（2020·杭州模拟）程序运行时分别在文本框Text1与Text2中输入12与20，点击按钮Command1后，文本框Text3中显示的内容是（ ）
Private Sub Command1_Click()
Dim i As Integer, j As Integer
i = Val (Text1. Text)
j = Val (Text2.Text)
Text3. Text = Str(i * j / f(i，j))
End Sub
Function f(a As Integer, b As Integer) As Integer
Dim k As Integer
k=a Mod b
If k=0 Then
f=b
Else
f=f(b，k)
End If
End Function
A．4 B．12 C．20 D．60
10．（2020·杭州模拟）有如下的VB程序：
Private Sub Command1_Click( )
Dim a(10) As Integer, n As Integer
a(1) = 1
For i =2 To 10
a(i)=a(i-1)*i
Next i
List1.AddItem Str(a(i))
End Sub
运行该程序，单击命令按钮Command1，弹出的错误信息提示是（ ）
A．溢出 B．下标越界
C．子程序未定义 D．要求对象
11．（2020·杭州模拟）有以下VB程序段
Dim c(-10 To 10) As Integer， a(1 To 10) As Integer， b(1 To 10) As Integer
a(1)=58：a(2)=88：a(3)=66：a(4)=60：a(5)=78
a(6)=32：a(7)=54：a(8)=75：a(9)=99：a(10)=69
Label1． Caption =
For i=1 To 9
b(i)=a(i+1)-a(i)
c(b(i)\10)=c(b(i)\10)+1
Next i
For i=0 To 10
If c(i) > 0 Then Label1.Caption = Label1.Caption + Str(c(i))
Next i
已知数组c各元素初值为0，执行该程序段，标签Label1上显示的内容是（ ）
A．131 B．1421 C．1131 D．11421
12．（2020·杭州模拟）现有一个整数型数组a (下标1到n)，其值的规律是先升序中间相等，之后降序。现要找到降序的拐点，如数列2、4、8、12、18、 18、 18、18、5、3，其降序的拐点为最后一个18所在的位置，即8号位置。部分程序如下：
L=1：R=n
Do While L<=R
m=(L+R)\2
If ① Then
R=m-1
Else
L=m+1
End If
Loop
Text1.Text = ②
为实现上述功能，则程序中①、②处填写的代码是（ ）
A．①a(m) > a(m + 1) ②Str(R)
B．①a(m)>a(m+1) ②Str(L)
C．①a(m) >= a(m + 1) ②Str(R)
D．①a(m) >= a(m + 1) ②Str(L)
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2020·杭州模拟）小包收集了XX荣耀游戏中的部分英雄属性数据，并用Excel软件进行数据处理，如图a所示，请回答下列问题：
（1）区域J4：K31的数据是通过J3单元格自动填充得到的，则J3单元格中的公式是 。
(提示：物理\法术防御率=物理\法术防御+(物理\法术防御系数+物理\法术防御))
（2）使用图a的数据建立如图b的图标，则该选择的数据区域为 。
（3）小包不小心将整列E单元格删除，则列J单元格将显示为 (单选，填字母：A .0/B .#VALUE！/C .#REF！/D .#DIV/0！)
（4）将区域A3：K31的数据复制到新工作表进行筛选，对“最大生命”和“5秒回血”设置如图c所示的筛选条件，则按此设置筛选出的英雄是 。
14．（2020·杭州模拟）小俊制作主题为“鬼灭之刃”的多媒体作品。他使用PhotoShop软件制作一张背 景图片，然后使用Flash软件制作动画。请回答下列问题：
（1）如图a所示，当前状态下，下列说法正确的是 (多选，填字母：A .“鬼灭之刃”图层添加了图层样式和滤镜/B .“炭治郎”图层可以使用自由变换改变素材大小/C .“背景”图层可以重命名/D .拷贝“炭治郎”图层样式并复制到“鬼灭之刃”图层后，“鬼灭之刃”图层只有1个图层样式/ E .可以将“祢豆子”图层的透明度调整为50%)
（2）“樱花”图层第11帧至21帧的补间动画实现了由一朵樱花逐渐变为两朵樱花的效果，则该补间类型为 (选填：动画补间/形状补间)
（3）小俊制作“暂停”按钮，在按钮“文字”图层的弹起帧中有“暂停”文字，如图c所示。为了使鼠标移动到该按钮时才显示“暂停”文字，下列操作可行的是 (多选，填字母)
A．将“文字”图层的弹起帧移动到指针经过帧
B．在“文字”图层的弹起帧执行“清除关键帧”操作
C．在“文字”图层的弹起帧执行“清除帧"操作
D．在“文字”图层的指针经过帧执行“插入关键帧”，并在弹起帧执行“转换为空白关键帧”操作
E．在“文字”图层的弹起帧执行“插入空白关键帧”操作
（4）单击“暂停”按钮时动画和声音同时停止播放，“暂停”按钮实例的动作脚本为 “音乐”图层中声音的同步属性为 。(选填，事件/数据流)
（5）测试影片时弹出如图所示的错误提示窗口，由图d中信息可知，该动作脚本设置在 上(选填，按钮/关键帧)。
15．（2020·杭州模拟）小毅最近迷上一款导弹拦截的游戏。游戏中会依次出现n个导弹，游戏需要把这些导弹都拦截下来，但小毅只有一种反导弹拦截系统车，该车有一个缺陷：它的第一发炮弹能拦截任意高度的导弹，但后面每发射一次拦截炮弹，发射口的高度就会下降，也就是之后的每一发炮弹都不能高于前一发的高度
。小毅打算设计一个程序，可以根据游戏中出现的n个导弹，快速计算出至少需要几台这样的导弹拦截系统车，才能完美的把所有导弹拦截下来。
算法说明：从a数组中读入一枚导弹的高度数据a(i)，在b数组中查找第一个大于a(i)数值的位置，并用a(i)代替。如果a(i)大于等于b数组中所有的数值，则增加一台导弹拦截车(k=k+1)。
请正在做卷子优秀的你回答下列问题。
（1）若导弹高度依次为“243，309，123，167，229，183，87，333，92”， 最少需要 台导弹拦截系统车才能拦截所有导弹。
（2）请在划线处填入合适的代码。
Dim a(0 To 100) As Integer ‘记录所有导弹的高度及顺序
Dim b(0 To 100) As Integer ‘b(k)数组存储第k个系统车能拦截的最高高度
Dim n As Integer
Private Sub Command1_ Click( )
Dim L As
Integer, R As Integer, m As Integer
Dim k As
Integer, res As Integer, i As Integer
Randomize
n=15
For i= 1To
n
a(i)= ‘随机产生高度[75,380]的导弹,高度为整数
Next i
‘将导弹高度依顺序显示在文本框Text1中，代码略
k=1：b(k)=a(1)
For i=2 To
n
b(k+1)=a(i)
L=
1
R=k+1
Do
While L< = R
m=(L+R+1)\2
If Then
R=m-1
res=m
Else
L=m+1
End If
Loop
If res =k+1 Then k=k+1
Next i
Label2. Caption =“最少需要”+ Str(k) +“台导弹拦截系统”
End Sub
（3）程序中加框处代码有错，请改正。
16．（2020·杭州模拟）从前有一只九尾狐叫小九，他拥有超高的智商，喜欢数学推理。最近他喜欢上了利用约瑟夫环玩推理纸牌的游戏。即给定n张环形排列的纸牌，选定最小的一张牌为起始位置。第一次取第1张牌(起始位置的纸牌)，第二次间隔1张取第3张纸牌，第三次
间隔2张取第6张纸牌，……直到取完为止(如果取的位置超过n，重新从1位置取)。如果有4张纸牌，那么取的纸牌编号依次为1，3，4，2。同样，可以知道每张纸牌的被取走的顺序如下表。
序号 1 2 3 4
1 轮次 1 2 1 3 1 4 1
2 轮次 2 2 2 4 2
3 轮次 3 2 3
4 轮次 4
纸牌被取走顺序也可以理解为纸牌存留的轮次。每次取走一张纸牌后，下一轮第一张纸牌编号为该纸牌的后一张。上述例子中3第二个被取，留存轮次2，下一轮的第一张纸牌为4，剩下的纸牌留存轮次增加。
现在，只要给小九纸牌的数量n，他能通过逆推法快速地计算出取的纸牌编号顺序，方法如下(以n=4为例)：
逆推得到的纸牌顺序 1 4 2 3
最终得到的纸牌编号 1 2 3 4
即在第i轮，上一轮纸牌轮次加1，并在后面增加一张轮次为1的纸牌。然后将轮次为1放在最前的位置，最后整体循环向右移动n-i次。直到n轮后，可知每张纸牌被取走的顺序，根据此顺序，得到每次取走纸牌的编号。
轮次 数组 1 2 3 4
1 a(1)=1 1
2 ①前一轮所有值加1 ②第二位增加数值1 ③将轮次为1的数放在最前 ④整体右移动2位 2 2 1 1 2 1 2
3 ①前一轮所有值加1 ②第三位增加数值1 ③将轮次为1的数放在最前 ④整体右移动1位 2 3 2 3 1 1 2 3 3 1 2
4 ①前一轮所有值加1 ②第四位增加数值1 ③将轮次为1的数放在最前 ④整体右移动0位 4 2 3 4 2 3 1 4 2 1 4 2
根据以上算法小九编写了如下VB程序，请回答下列问题。
（1）由题意可知，当n的值为6时，1~6张纸牌被取走顺序为 。
（2）请在划线处填入合适的代码。
Dim n As Integer
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
Dim i As
Integer, j As Integer,k As Integer
Dim ans As
String, x As Integer
n = Val
(Text1. Text)
a(1) = 1
For i=2 To
n
For
j=1 To i-1
Next
j
j=i
Do While j>1
a(j)=a(j-1)
j=j-1
Loop
a(1) = 1
For j=1 Ton - i
k =
a(1)
a(x) = k
Next j
Next i
ans =“”
For i=1
Ton
ans = ans + Str(a(i))
Next i
Label1.
Caption =“序列为：”+ ans
End Sub
Function yd(i As Integer) As Integer
Dim j As
Integer, tmp As Integer
For j=i To
2 Step -1
tmp=j+1
If tmp
> i Then
a (tmp) = a(j)
Next j
yd=j+1
End Function
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息技术的概念与关键技术；因特网信息资源评价；信息系统安全防护
2．【答案】C
【知识点】字符识别
3．【答案】C
【知识点】数据表、字段、记录的编辑；数据表视图与设计视图
4．【答案】D
【知识点】进制及数制转换
【解析】【解答】选项A：x除以2后的结果，其二进制数是二进制数y每1位上的数向右移动1位，比原来少1位。A正确；选项B：偶数转化为二进制数，最低位一定是0。B正确；选项C：最大的8位二进制数值为255。C正确；选项D：x除以16取余，其余数与y的右侧4位相等。D错误。故答案选D。
【分析】本题考查十进制数与二进制数之间的转换。
5．【答案】A
【知识点】声音、图像、视频编码
6．【答案】D
【知识点】视频的基本处理
7．【答案】D
【知识点】流程图识读
8．【答案】C
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用
9．【答案】D
【知识点】过程与自定义函数
10．【答案】A
【知识点】程序的调试及运行；循环结构语句及程序实现
11．【答案】C
【知识点】常见数据类型、数组；循环结构语句及程序实现
12．【答案】B
【知识点】查找算法及程序实现
13．【答案】（1）=E3/(E3+M$3)
（2）A1:A10, J1:K10
（3）C
（4）廉颇
【知识点】表格数据的处理与计算
14．【答案】（1）CD
（2）形状补间
（3）A；C
（4）on(press){stop();}；数据流
（5）按钮
【知识点】图层及图层的基本操作；动画的类型；元件的类型与应用；常用影片控制函数的应用；声音同步属性设置
15．【答案】（1）41
（2）Int(Rnd * 306) + 75；b(res) = a(i)
（3）b(m) >= a(i)
【知识点】查找算法及程序实现
16．【答案】（1）1 4 2 5 6 3
（2）a(j) = a(j) + 1；x = yd(i)；tmp = 1
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1
