资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省宁波十校2020年高三信息技术寒假返校联考试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高三下·宁波开学考）下列有关信息和信息技术的说法不正确的是（　　）
A．信息传播的过程中，可以实现从一种形态转换为另一种形态。
B．数字化后的多媒体信息才能被计算机存储和处理。
C．语言、图形、图像、视频和微博是信息的常用表达方式。
D．信息表达的规范化就是表达信息时需要遵守一定的标准，以利于信息的交流。
2．（2020高三下·宁波开学考）下列关于网页和网络协议的说法，正确的是（　　）
A．POP3 协议用于发送 E-Mail。
B．IE 浏览器可浏览和编辑网页文件。
C．搜索引擎的两大核心技术是主题目录检索和自动网页搜索技术。
D．通过收藏夹只能保存网页的URL，无法保存网页上的内容。
3．（2020·东阳模拟）对于数据库和数据表，下列说法不正确的是（　　）
A．数据库可以存储和管理文字、图形、视频等数据
B．Access数据表视图中，可以修改记录的字段值，也可设置某个字段为主键
C．Access同一张数据表中，常常用来存储同一类型或同一主题的相关数据
D．Access数据表视图中，表中的记录和字段删除后不可以使用撤销命令来恢复，但在设计视图中删除字段后可以使用该命令来恢复
4．（2020高三下·宁波开学考）小赵利用Word 软件编辑了一篇关于2022 年杭州亚运会的文档，文档中含有图像“亚运会．jpg”，部分界面如图所示。
下列说法正确的是（　　）
A．这段文字共有4 处修订，2 处批注。
B．文中的图片采用的环绕方式可能为紧密型。
C．利用光学字符识别软件OCR 可识别出“亚运会．jpg”图像中的所有内容。
D．若要对整篇文档中的多处“亚运会”文字设置为红色加粗格式，用自动更正功能最合适。
5．（2020高三下·宁波开学考）使用 UltraEdit 软件查看字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中内码“6E”是字符“n”的十六进制内码，那么字符“N”对应的十六进制内码值为“3C”。
B．图中内码所对应的字符串可能是“2020，hangzhou！”。
C．图中内码所对应的字符串包含12个ASCII 字符。
D．图中内码“30”是字符“0”的十六进制内码，则字符“-1”的十六进制内码为“2F”。
6．（2020高三下·宁波开学考）关于多媒体和多媒体技术，下列说法正确的是（　　）
A．多媒体技术的三大特征是载体依附性、交互性和时效性。
B．文字脚本可以作为多媒体作品制作的直接依据。
C．了解整个作品的组成部分、工作流程和主要界面，可查阅其模块设计报告。
D．FLV 格式文件由于容量小、加载速度快，已成为当前网络视频文件的主流格式之一。
7．（2020高三下·宁波开学考）在VB 程序设计中，下列语句在编译中或运行后一定会发生错误提示的是（　　）
A．Dim text As String B．If f Then x=x*x+1
C．s="cd"+3 D．s=Mid("abc123",3)
8．（2020高三下·宁波开学考）有如下VB程序段，运行该程序段后变量a的值为（　　）
a=4: b=3
If a >= 4 Then
If b < 2 Then a=a+2
If b > 2 Then a=a+3
a=a+2
ElseIf a >= 9 Then
a=a+4
Else
a=a+b
End If
A．13 B．9 C．16 D．8
9．（2020高三下·宁波开学考）某算法的部分流程图如图所示，执行这部分流程图后，变量c的值是（　　）
A．107 B．106 C．133 D．33
10．（2020高三下·宁波开学考）采用冒泡排序算法对数据序列“71，58，54，29，78”完成升序排序，此过程中数据“54”发生比较的次数可能为（　　）
A．4 B．10 C．6 D．3
11．（2020高三下·宁波开学考）对随机生成n个互不相同的正整数（正整数的最大值不超过m）进行排序，排序要求如下：①偶数在前，奇数在后；②奇数降序排序；③偶数升序排序。部分程序如下所示，划线处的正确语句是（　　）
Const n = 15
Const m = 100 '整数的最大值
Dim a(1 To n) As Integer
'本过程产生n个不同随机整数，区间在[1,m]之间，存储在数组a中，代码略
Private Sub Command1_Click()
Dim i As Integer
Dim flag(1 To m) As Boolean
For i = 1 To n
① = True
Next i
For i =2 To m step 2
If flag(i) Then List2.AddItem ②
Next i
For i = ③ To 1 Step -2
If flag(i) Then List2.AddItem Str(i)
Next i
End Sub
A．①flag(i) ②Str(a(i)) ③m-1 B．①flag(a(i)) ②Str(i) ③m-1
C．①flag(a(i)) ②Str(i) ③m D．①flag(i) ②Str(a(i)) ③m
12．（2020高三下·宁波开学考）有如下VB 程序段:
Private Sub Command1_Click()
Dim a(1 to 10) As Integer
Dim i As Integer, j As Integer, Key As Integer, c As Integer, m As Integer
Dim flag As boolean
flag = True: c = 0
i = 1: j = 10
Key = Int(Rnd() * 17) + 8
Do While i <= j And flag = True
c = c + 1
m = (i + j) \ 2
If Key = a(m) Then
flag = False
ElseIf Key > a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
End sub
数组元素a(1)到a(10)的值依次为50、45、40、35、27、24、15、7、5、3，程序运行后变量c的值可能是：（　　）
A．1 或2 B．2 或3 C．3 或4 D．4 或5
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高三下·宁波开学考）小王收集了近5年来中国旅游主要国家入境游客人数的相关信息，并使用Excel软件进行数据处理，如图a所示。
请回答下列问题：
（1）当前工作表中仅区域B1:I15有数据，小王在I3单元格输入了正确的公式，计算了日本2018年占年度主要国家入境游客人数总数的比例。再利用自动填充功能完成I4:I15单元格的计算。操作完成后，发现I4:I15单元格中的计算结果不符合要求。若要正确计算，则I3单元格的公式是　 　（公式中要求保留使用SUM函数）。
（2）小王在完成数据计算后，若要对欧洲地区的国家以“2017年”为关键字进行升序排序，则排序时选择的数据区域是　 　。
（3）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是C2:C5,E2:E5, 　 　。
（4）小王对图a中“2015年”数据进行筛选，条件如图c所示，则图b图表中显示的国家还有 　 　个。
14．（2020高三下·宁波开学考）小李制作主题为“2022年杭州亚运会”的多媒体作品。她首先使用Photoshop软件制作背景图片，然后使用Flash软件制作动画。请回答下列问题：
（1）如图a所示，下列说法正确的有　 　（多选题，填字母）
A．选择“背景”图层，将不透明改为0%，并以PNG格式存储可以得到背景透明的图像文件。
B．选中“太阳图形”图层，通过“自由变换”改变太阳的大小，扇面赛道图层的内容大小也会同步变化。
C．选中“背景”图层，不可以直接设置图层样式，但可以直接添加滤镜。
D．拷贝“文字”图层的图层样式，并粘贴到扇面赛道图层，扇面赛道图层中可见的图层样式有2种。
E．选中“文字”图层，利用文字工具可以选中单个文字，并设置文字大小和颜色。
（2）在2022年杭州亚运会.fla文件中，main场景的界面如图b所示：
小李在“按钮”图层的第72 帧设置脚本命令“Stop();”,测试影片时，动画播放到第72帧停止，但“帮助”图层中的帮助实例在动画停止时仍然保持飘动状态，那么该实例的元件类型是　 　 。
（3）音乐图层中音频同步方式为数据流，测试影片时，要使动画播放3秒后，音乐又开始从头播放，正确的操作是　 　。
（4）利用GoldWave软件对文件bj.wav进行压缩，在其他参数不变的情况下得到音乐文件bj.mp3(文件属性如图c所示)，则压缩比是 　 　：1。（保留整数）
（5）测试影片时，单击“宁波”按钮后动画跳转到“ningbo”场景，并停止在该场景的第1帧，则该按钮上添加的动作命令为 on(press){ 　 　 }。
15．（2020高三下·宁波开学考）编写VB程序，实现如下功能：在程序运行时，在文本框1中输入整数m(1≤m≤10)，单击“生成矩阵”按钮Command1，生成m2个范围为[0,9]的随机整数，随机存储在数组a中，并以m行、m列矩阵的形式在列表框List1上显示。单击“行排序”按钮Command2，对矩阵以“行”为单位完成升序排序，并在列表框List2上显示。运行界面如图所示，程序代码如下：
Dim m As Integer
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
'输入整数m，并随机产生m2个随机数
'随机数以m*m 矩阵形式在List1上显示
'代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer ,t As Integer, k As Integer,
Dim s As String
List2.Clear
For i = 1 To m * m
k = i
For j = i + 1 To ①
If a(j) < a(k) Then k = j
Next j
If k <> i Then t = a(k): a(k) = a(i): a(i) = t
②
If Then
List2.AddItem s
s = ""
End If
Next i
End Sub
（1）代码“List2．Clear”中的Clear 是　 　 。（单选，填字母：A .对象名 /B .事件名 /C .属性名 /D
.方法名）
（2）程序代码中，加框处代码有错，请改正。
（3）请在划线处填入合适代码。
①　 　②　 　
16．（2020高三下·宁波开学考）在n个(1≤n≤15)一连串的方格内填写字母A或B，但相邻两格内不能都填B，求所有可能的填写方案数。例如当n＝3，可能的方案有AAA、AAB、ABA、BAA、BAB等5种。
丽华设计如下算法：考虑到方案中只包含了A与B两个字母，可以用二进制的0和1来代替（0表示A，1表示B）。当全部是0时最小，此数0；当全部是1时此数最大。枚举0到最大数的每一种情况，逐一判断是否包含B相连(二进制数1相连)情况，符合条件的0、1转为A、B后输出。
根据以上算法思想，丽华使用VB程序编写了一个程序来解决这个问题。在文本框Text1中输入n的值，点击“寻找方案”按钮Command1后，在列表框List1中输出所有的方案，在标签Label3中显示方案总数。
（1）如果输入的n值等于4，那么所有可能的方案有　 　 种。
（2）实现上述功能的VB程序如下，运行结果如图所示，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, t As Integer, k As Integer
Dim flag as Boolean, ans As Integer
Dim a(1 To 15) As Integer
n = Val(Text1．Text)
For i = 0 To 2^n-1
t = i
For j = 1 To n
a(j) = t Mod 2
t = t \ 2
Next j
flag = True
For k = 1 To n-1
If 　 　 Then flag = False
Next k
If flag Then 　 　 : ans = ans + 1
Next i
Label3.Caption = "可能方案共" + Str(ans) + "种"
End Sub
Function GetStr(x As Integer, n As Integer) As String
Dim m As Integer, i As Integer
GetStr = ""
m = x
For i = 1 To n
If m Mod 2 = 0 Then
GetStr = "A" + GetStr
Else
GetStr = "B" + GetStr
End If
　 　
Next i
End Function
答案解析部分
1．【答案】C
【知识点】信息的传递与传播；信息表达方式与表达技术；信息表达要求
2．【答案】D
【知识点】网络协议；浏览器；网络资源的检索
3．【答案】B
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的概念
4．【答案】B
【知识点】文本的基本编辑；文本的图片与表格处理
5．【答案】C
【知识点】字符编码
6．【答案】D
【知识点】多媒体技术的概念和特征；多媒体组成元素及文件格式
7．【答案】C
【知识点】程序的调试及运行
8．【答案】B
【知识点】分支结构语句及程序实现
9．【答案】B
【知识点】流程图识读
10．【答案】A
【知识点】排序算法及程序实现
11．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】C
【知识点】查找算法及程序实现
13．【答案】（1）=D3/SUM($D$3:$D$15)*100 或=D3/SUM(D$3:D$15)*100
（2）C8:H11 或C8:I11
（3）C8,E8,C13,E13
（4）3
【知识点】表格数据的处理与计算
14．【答案】（1）C E
（2）影片剪辑
（3）在音乐图层的第1帧执行复制帧命令，并在音乐图层的第37帧粘贴帧或在音乐图层的第37帧插入关键帧，然后再添加音频素材。
（4）11
（5）gotoAndStop("ningbo",1);
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用；声音同步属性设置
15．【答案】（1）D
（2）i Mod m=0
（3）((i-1)\m+1)*m；s=s+str(a(i))
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．【答案】（1）8
（2）a(k)=a(k+1) And a(k)=1 或 a(k)=1 And a(k+1)=1或a(k)=a(k+1) And a(k+1)=1；List1.AddItem GetStr(i, n)；m=m\2
【知识点】过程与自定义函数；枚举算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省宁波十校2020年高三信息技术寒假返校联考试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2020高三下·宁波开学考）下列有关信息和信息技术的说法不正确的是（　　）
A．信息传播的过程中，可以实现从一种形态转换为另一种形态。
B．数字化后的多媒体信息才能被计算机存储和处理。
C．语言、图形、图像、视频和微博是信息的常用表达方式。
D．信息表达的规范化就是表达信息时需要遵守一定的标准，以利于信息的交流。
【答案】C
【知识点】信息的传递与传播；信息表达方式与表达技术；信息表达要求
2．（2020高三下·宁波开学考）下列关于网页和网络协议的说法，正确的是（　　）
A．POP3 协议用于发送 E-Mail。
B．IE 浏览器可浏览和编辑网页文件。
C．搜索引擎的两大核心技术是主题目录检索和自动网页搜索技术。
D．通过收藏夹只能保存网页的URL，无法保存网页上的内容。
【答案】D
【知识点】网络协议；浏览器；网络资源的检索
3．（2020·东阳模拟）对于数据库和数据表，下列说法不正确的是（　　）
A．数据库可以存储和管理文字、图形、视频等数据
B．Access数据表视图中，可以修改记录的字段值，也可设置某个字段为主键
C．Access同一张数据表中，常常用来存储同一类型或同一主题的相关数据
D．Access数据表视图中，表中的记录和字段删除后不可以使用撤销命令来恢复，但在设计视图中删除字段后可以使用该命令来恢复
【答案】B
【知识点】数据库、数据库系统及其特征；数据表、字段、记录的概念
4．（2020高三下·宁波开学考）小赵利用Word 软件编辑了一篇关于2022 年杭州亚运会的文档，文档中含有图像“亚运会．jpg”，部分界面如图所示。
下列说法正确的是（　　）
A．这段文字共有4 处修订，2 处批注。
B．文中的图片采用的环绕方式可能为紧密型。
C．利用光学字符识别软件OCR 可识别出“亚运会．jpg”图像中的所有内容。
D．若要对整篇文档中的多处“亚运会”文字设置为红色加粗格式，用自动更正功能最合适。
【答案】B
【知识点】文本的基本编辑；文本的图片与表格处理
5．（2020高三下·宁波开学考）使用 UltraEdit 软件查看字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中内码“6E”是字符“n”的十六进制内码，那么字符“N”对应的十六进制内码值为“3C”。
B．图中内码所对应的字符串可能是“2020，hangzhou！”。
C．图中内码所对应的字符串包含12个ASCII 字符。
D．图中内码“30”是字符“0”的十六进制内码，则字符“-1”的十六进制内码为“2F”。
【答案】C
【知识点】字符编码
6．（2020高三下·宁波开学考）关于多媒体和多媒体技术，下列说法正确的是（　　）
A．多媒体技术的三大特征是载体依附性、交互性和时效性。
B．文字脚本可以作为多媒体作品制作的直接依据。
C．了解整个作品的组成部分、工作流程和主要界面，可查阅其模块设计报告。
D．FLV 格式文件由于容量小、加载速度快，已成为当前网络视频文件的主流格式之一。
【答案】D
【知识点】多媒体技术的概念和特征；多媒体组成元素及文件格式
7．（2020高三下·宁波开学考）在VB 程序设计中，下列语句在编译中或运行后一定会发生错误提示的是（　　）
A．Dim text As String B．If f Then x=x*x+1
C．s="cd"+3 D．s=Mid("abc123",3)
【答案】C
【知识点】程序的调试及运行
8．（2020高三下·宁波开学考）有如下VB程序段，运行该程序段后变量a的值为（　　）
a=4: b=3
If a >= 4 Then
If b < 2 Then a=a+2
If b > 2 Then a=a+3
a=a+2
ElseIf a >= 9 Then
a=a+4
Else
a=a+b
End If
A．13 B．9 C．16 D．8
【答案】B
【知识点】分支结构语句及程序实现
9．（2020高三下·宁波开学考）某算法的部分流程图如图所示，执行这部分流程图后，变量c的值是（　　）
A．107 B．106 C．133 D．33
【答案】B
【知识点】流程图识读
10．（2020高三下·宁波开学考）采用冒泡排序算法对数据序列“71，58，54，29，78”完成升序排序，此过程中数据“54”发生比较的次数可能为（　　）
A．4 B．10 C．6 D．3
【答案】A
【知识点】排序算法及程序实现
11．（2020高三下·宁波开学考）对随机生成n个互不相同的正整数（正整数的最大值不超过m）进行排序，排序要求如下：①偶数在前，奇数在后；②奇数降序排序；③偶数升序排序。部分程序如下所示，划线处的正确语句是（　　）
Const n = 15
Const m = 100 '整数的最大值
Dim a(1 To n) As Integer
'本过程产生n个不同随机整数，区间在[1,m]之间，存储在数组a中，代码略
Private Sub Command1_Click()
Dim i As Integer
Dim flag(1 To m) As Boolean
For i = 1 To n
① = True
Next i
For i =2 To m step 2
If flag(i) Then List2.AddItem ②
Next i
For i = ③ To 1 Step -2
If flag(i) Then List2.AddItem Str(i)
Next i
End Sub
A．①flag(i) ②Str(a(i)) ③m-1 B．①flag(a(i)) ②Str(i) ③m-1
C．①flag(a(i)) ②Str(i) ③m D．①flag(i) ②Str(a(i)) ③m
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2020高三下·宁波开学考）有如下VB 程序段:
Private Sub Command1_Click()
Dim a(1 to 10) As Integer
Dim i As Integer, j As Integer, Key As Integer, c As Integer, m As Integer
Dim flag As boolean
flag = True: c = 0
i = 1: j = 10
Key = Int(Rnd() * 17) + 8
Do While i <= j And flag = True
c = c + 1
m = (i + j) \ 2
If Key = a(m) Then
flag = False
ElseIf Key > a(m) Then
j = m - 1
Else
i = m + 1
End If
Loop
End sub
数组元素a(1)到a(10)的值依次为50、45、40、35、27、24、15、7、5、3，程序运行后变量c的值可能是：（　　）
A．1 或2 B．2 或3 C．3 或4 D．4 或5
【答案】C
【知识点】查找算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高三下·宁波开学考）小王收集了近5年来中国旅游主要国家入境游客人数的相关信息，并使用Excel软件进行数据处理，如图a所示。
请回答下列问题：
（1）当前工作表中仅区域B1:I15有数据，小王在I3单元格输入了正确的公式，计算了日本2018年占年度主要国家入境游客人数总数的比例。再利用自动填充功能完成I4:I15单元格的计算。操作完成后，发现I4:I15单元格中的计算结果不符合要求。若要正确计算，则I3单元格的公式是　 　（公式中要求保留使用SUM函数）。
（2）小王在完成数据计算后，若要对欧洲地区的国家以“2017年”为关键字进行升序排序，则排序时选择的数据区域是　 　。
（3）根据图a中数据制作的图表如图b所示，创建该图表的数据区域是C2:C5,E2:E5, 　 　。
（4）小王对图a中“2015年”数据进行筛选，条件如图c所示，则图b图表中显示的国家还有 　 　个。
【答案】（1）=D3/SUM($D$3:$D$15)*100 或=D3/SUM(D$3:D$15)*100
（2）C8:H11 或C8:I11
（3）C8,E8,C13,E13
（4）3
【知识点】表格数据的处理与计算
14．（2020高三下·宁波开学考）小李制作主题为“2022年杭州亚运会”的多媒体作品。她首先使用Photoshop软件制作背景图片，然后使用Flash软件制作动画。请回答下列问题：
（1）如图a所示，下列说法正确的有　 　（多选题，填字母）
A．选择“背景”图层，将不透明改为0%，并以PNG格式存储可以得到背景透明的图像文件。
B．选中“太阳图形”图层，通过“自由变换”改变太阳的大小，扇面赛道图层的内容大小也会同步变化。
C．选中“背景”图层，不可以直接设置图层样式，但可以直接添加滤镜。
D．拷贝“文字”图层的图层样式，并粘贴到扇面赛道图层，扇面赛道图层中可见的图层样式有2种。
E．选中“文字”图层，利用文字工具可以选中单个文字，并设置文字大小和颜色。
（2）在2022年杭州亚运会.fla文件中，main场景的界面如图b所示：
小李在“按钮”图层的第72 帧设置脚本命令“Stop();”,测试影片时，动画播放到第72帧停止，但“帮助”图层中的帮助实例在动画停止时仍然保持飘动状态，那么该实例的元件类型是　 　 。
（3）音乐图层中音频同步方式为数据流，测试影片时，要使动画播放3秒后，音乐又开始从头播放，正确的操作是　 　。
（4）利用GoldWave软件对文件bj.wav进行压缩，在其他参数不变的情况下得到音乐文件bj.mp3(文件属性如图c所示)，则压缩比是 　 　：1。（保留整数）
（5）测试影片时，单击“宁波”按钮后动画跳转到“ningbo”场景，并停止在该场景的第1帧，则该按钮上添加的动作命令为 on(press){ 　 　 }。
【答案】（1）C E
（2）影片剪辑
（3）在音乐图层的第1帧执行复制帧命令，并在音乐图层的第37帧粘贴帧或在音乐图层的第37帧插入关键帧，然后再添加音频素材。
（4）11
（5）gotoAndStop("ningbo",1);
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用；声音同步属性设置
15．（2020高三下·宁波开学考）编写VB程序，实现如下功能：在程序运行时，在文本框1中输入整数m(1≤m≤10)，单击“生成矩阵”按钮Command1，生成m2个范围为[0,9]的随机整数，随机存储在数组a中，并以m行、m列矩阵的形式在列表框List1上显示。单击“行排序”按钮Command2，对矩阵以“行”为单位完成升序排序，并在列表框List2上显示。运行界面如图所示，程序代码如下：
Dim m As Integer
Dim a(1 To 100) As Integer
Private Sub Command1_Click()
'输入整数m，并随机产生m2个随机数
'随机数以m*m 矩阵形式在List1上显示
'代码略
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer ,t As Integer, k As Integer,
Dim s As String
List2.Clear
For i = 1 To m * m
k = i
For j = i + 1 To ①
If a(j) < a(k) Then k = j
Next j
If k <> i Then t = a(k): a(k) = a(i): a(i) = t
②
If Then
List2.AddItem s
s = ""
End If
Next i
End Sub
（1）代码“List2．Clear”中的Clear 是　 　 。（单选，填字母：A .对象名 /B .事件名 /C .属性名 /D
.方法名）
（2）程序代码中，加框处代码有错，请改正。
（3）请在划线处填入合适代码。
①　 　②　 　
【答案】（1）D
（2）i Mod m=0
（3）((i-1)\m+1)*m；s=s+str(a(i))
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；排序算法及程序实现
16．（2020高三下·宁波开学考）在n个(1≤n≤15)一连串的方格内填写字母A或B，但相邻两格内不能都填B，求所有可能的填写方案数。例如当n＝3，可能的方案有AAA、AAB、ABA、BAA、BAB等5种。
丽华设计如下算法：考虑到方案中只包含了A与B两个字母，可以用二进制的0和1来代替（0表示A，1表示B）。当全部是0时最小，此数0；当全部是1时此数最大。枚举0到最大数的每一种情况，逐一判断是否包含B相连(二进制数1相连)情况，符合条件的0、1转为A、B后输出。
根据以上算法思想，丽华使用VB程序编写了一个程序来解决这个问题。在文本框Text1中输入n的值，点击“寻找方案”按钮Command1后，在列表框List1中输出所有的方案，在标签Label3中显示方案总数。
（1）如果输入的n值等于4，那么所有可能的方案有　 　 种。
（2）实现上述功能的VB程序如下，运行结果如图所示，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, t As Integer, k As Integer
Dim flag as Boolean, ans As Integer
Dim a(1 To 15) As Integer
n = Val(Text1．Text)
For i = 0 To 2^n-1
t = i
For j = 1 To n
a(j) = t Mod 2
t = t \ 2
Next j
flag = True
For k = 1 To n-1
If 　 　 Then flag = False
Next k
If flag Then 　 　 : ans = ans + 1
Next i
Label3.Caption = "可能方案共" + Str(ans) + "种"
End Sub
Function GetStr(x As Integer, n As Integer) As String
Dim m As Integer, i As Integer
GetStr = ""
m = x
For i = 1 To n
If m Mod 2 = 0 Then
GetStr = "A" + GetStr
Else
GetStr = "B" + GetStr
End If
　 　
Next i
End Function
【答案】（1）8
（2）a(k)=a(k+1) And a(k)=1 或 a(k)=1 And a(k+1)=1或a(k)=a(k+1) And a(k+1)=1；List1.AddItem GetStr(i, n)；m=m\2
【知识点】过程与自定义函数；枚举算法及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑