资源简介

浙江省湖州、衢州、丽水三地市2021-2022学年高三上学期信息技术11月教学质量检测（一模）试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021·湖州模拟）下列有关信息的说法，正确的是（　　）
A．信息仅在人类社会是无处不在的
B．规范的信息表达有助于信息的交流
C．虛假信息的产生只源于错误的信息加工
D．数字化后的信息才可以被加工和处理
【答案】B
【知识点】信息及其特征；信息表达要求
2．（2021·湖州模拟）下列有关网页与浏览器的说法，不正确的是（　　）
A．描述网页基本元素的超文本标记语言简称是HTML
B．收藏夹中的网址可以进行重命名、移动、删除操作
C．在IE浏览器中，保存网页操作不能获取图像文件
D．搜索引擎一般包括自动网页搜索和全文检索两大核心技术
【答案】C
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索；网页标记语言及基本组成
3．（2021·湖州模拟）使用Access软件编辑某单位员工管理数据库，其中“献血情况"数据表的部分界面如图所示。
下列说法正确的是（　　）
A．在当前数据表视图中不能添加字段
B．可以将“姓名”字段设为“主键”
C．“出生年月”字段的数据类型不可能为“文本”型
D．可以通过“导入文本文件”操作，对已有的数据表追加记录
【答案】D
【知识点】数据表、字段、记录的编辑
4．（2021·湖州模拟）下列有关信息编码的说法，正确的是（　　）
A．全角英文字符的内码占1个字节
B．两位十六进制数的最大值等于256
C．已知字符“9”的ASCII码值为39H，则字符“10”的ASCII码值是3AH
D．若一个二进制数的最低位为0，将其转换为十进制数后该数为偶数
【答案】D
【知识点】进制及数制转换；字符编码
5．（2021·湖州模拟）使用Photoshop软件制作“青春追梦人”作品，部分编辑界面如图所示。
下列说法正确的是（　　）
A．可将“背景”图层的不透明度设置为“50%”
B．可将“人物”图层的图层样式拷贝到“青春”图层
C．执行“自由变换”命令可以改变文字图层中的文字大小
D．将作品存储为BMP格式后会显示“内阴影”效果
【答案】C
【知识点】图层及图层的基本操作
6．（2021·湖州模拟）一段未经压缩的时长60秒、立体声双声道44100HZ、16位WAV音频，要将其存储容量从约10MB减少到约2.5MB，在不改变其他参数的前提下，可调整采样频率、量化位数分别为(　　)
A．22050HZ、8位 B．44100HZ、8位
C．22050HZ、16位 D．44100HZ、24位
【答案】A
【知识点】声音、图像、视频编码
7．（2021·湖州模拟）VB表达式16\2^2*3+ 2的值是(　　)
A．2 B．3 C．14 D．194
【答案】B
【知识点】运算符、基本运算与表达式
8．（2021·湖州模拟）某算法的部分流程图如图所示，执行这部分流程，若输入n的值为10，则输出a、b的值分别是(　　)
A．4，6 B．9，12 C．16，20 D．25，30
【答案】A
【知识点】流程图识读
9．（2021·湖州模拟）将正整数n分解为连续正整数之和(如正整数9分解为2+3+4、4+5两种)。统计分解方法共有几种的VB程序段如下：
ans=0
n = Va1 (Text1． Text)
For i=1 To n\2
t=n：x=i
Do While t>0
Loop
Next i
Text2.Text = Str (ans)
方框中的代码由以下三部分组成：
①If t=0 Then ans=ans+1 ②t=t-x③x=x+1
下列选项中，代码顺序正确的是(　　)
A．③①② B．②①③ C．①③② D．①②③
【答案】B
【知识点】循环结构语句及程序实现
10．（2021·湖州模拟）有如下VB程序段：
count = 0： n=7： i= 1
Do While i<=n
If a(i)> a(i+1)Then
count = count + 1
t = a(i)： a(i) = a(i + 1)： a(i+1) =t
End If
If i=n Then i=0：n=n-1
i=i+1
Loop
Text1.Text = Str (count)
数组元素a(1)到a(8)的值依次是“15，2，1，17，19，14，25，26”，执行该程序段后，文本框Text1中显示的是(　　)
A．4 B．5 C．6 D．7
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021·湖州模拟）有如下VB程序段：
k=0：r=""
For i=1 To Len(s)
If b(k) = Mid(s， i，1) Then
k=k-1
Else
k=k+1
b(k) = Mid(s， i， 1)
End If
Next i
For i=1 To k
r=r+b(i)
Next i
数组元素b(0)到b(10)的初始值为“”，若变量s的值为“abbaddcab”，执行该程序段后，变量r的值是(　　)
A．”abdc” B．"aacab” C．"c" D．"cab"
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2021·湖州模拟）某对分查找算法的VB程序段如下：
For i=1 To 15
a(i) = i
Next i
key = Int (Rnd * 20)
i = 1：j=15：n=0
Do While i<=j
m=(i+j+1)\2
If a(m)< key Then i=m +1 Else j=m-1
n=n+1
Loop
执行该程序段后，变量n的值可能是(　　)
A．1 B．2 C．3 D．4
【答案】D
【知识点】查找算法及程序实现
二、非选择题 (本大题共4小题，4+8+7+7，共26分)
13．（2021·湖州模拟）收集某校高一年级3个班趣味运动会相关数据，并用Excel软件进行数据处理，部分界面如图a所示。
请回答下列问题：
（1）区域H4：H123的数据是通过公式计算得到的，在H4单元格中输入公式　 　。
再使用自动填充功能完成区域H5：H123的计算。(按照名次来计算得分，要求第1名得50分、第2名得49分……第50名得1分、其他名次得0分．提示：=IF(A4<8，8-A4， 0)表示A4单元格的值小于8时，返回8-A4的值，否则返回0)
（2）对区域A2：I123进行相关数据分析，下列说法正确的是 。(多选，填字母)
A．修改G4单元格的数据，I4单元格的值会随之改变
B．为了将总得分最高的男生数据显示在当前工作表第4行，可选择数据区域A4：I123，以“列B”为主要关键字按字母升序、“列I”为次要关键字按降序进行排序
C．选手编号规则为： S+两位班级编号+两位班内学号。先按“列I”降序排序，再对“选手编号”进行筛选，条件为包含“01”，则显示在最前面的是高一(1)班总得分最高的学生数据
D．选手编号规则为： S+两位班级编号+两位班内学号。为了显示高一(3) 班总得分最高的3位学生数据，可先对“选手编号”进行筛选，条件为开头是“S03”，再对“总得分”进行筛选，选择“10个最大的值”并显示最大的3项
（3）对图a中的数据进行相关统计，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示。创建该图表的数据区域是
　 　。
【答案】（1）=IF(G4<51,51-G4,0)
（2）A；B
（3）A2:D5
【知识点】表格数据的处理与计算；表格数据的图表呈现；数据分析
14．（2021·湖州模拟）使用Flash软件创作主题为“中国梦”的多媒体作品，部分编辑界面如图a所示。
（1）创作多媒体作品需要进行需求分析。下列属于创作需求分析的是　 　(多选，填字母：A .了解作品的社会效益、经济效益/B .确定作品的结构类型/C .确定获取原始素材的方式/D .考虑作品的脚本编写/E .确定作品的发布方式)。
（2）“鸽子”图层第1帧的内容由库中“鸽子”元件生成。该元件的编辑界面如图b所示，该元件可由　 　(单选，填字母：A .鸽子．gif /B .鸽子．
jpg)文件导入库中直接生成，该元件中动画的类型是　 　(单选，填字母：A .逐帧动画/B .补间动画)。
（3）“按钮”图层的第45帧添加了动作脚本命令“stop()；”，声音的同步属性为事件。测试影片时，动画播放到第45帧自动停止，单击“播放”按钮，影片停止当前声音的播放，跳转到“中国梦”场景第1帧开始播放，则该按钮实例上添加的动作脚本是 (多选，填字母)
A．on(release) {stopAl1Sounds () ；gotoAndPlay("中国梦"，1)；}
B．on (release) {stopAllSounds () ； gotoAndPlay(1)；}
C．on (release) {stopAllSounds (45) ；gotoAndP1ay("中国梦"，1)；}
D．on (release) {stopAllSounds (45) ； gotoAndP1ay(1) ；}
E．on (release) {stopAllSounds () ；p1ay()；}
（4）测试场景时，“天安门”图层内容在播放完第25帧后消失，为了使该图层第25帧内容延续到第45帧，应进行的操作是　 　。
【答案】（1）BE
（2）A；A
（3）A；E
（4）选中“天安门”图层第26帧执行“清除关键帧”操作 或选中“天安门”图层第25帧执行“复制帧”操作，在第26帧执行“粘贴帧”操作
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．（2021·湖州模拟）某校将举行“希望杯”欢乐四项赛，比赛项目有跳绳、颠球、套圈、飞镖四项。团体赛规则：每班由2名选手参加；每名选手参赛项目不限；每项每班由1名选手参赛；团体成绩为4项得分的总和。根据团体赛规则，为推选出最优组合参赛，班级制定了如下推荐办法：个人总分前5名入围，在入围的选手中依据最高单项得分之和推选两位选手组队参赛(若有多组符合要求，则选择编号靠前的选手组队)。
编写VB程序，实现选手推荐功能：单击“入围”按钮Command1后，将入围选手名单及成绩按总分降序显示在列表框List1中，然后单击“推荐”按钮Command2，在标签Label1中显示推荐结果，程序运行界面如图所示。
（1）要使窗体Form1标题显示“比赛选手推荐”，则需修改该窗体的　 　属性。(单选，填字母：A . Font /B . Caption /C．BackColor)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Constrs=30 '初赛人数
Dim ts(rs) As Integer， dq(rs) As Integer， tq (rs) As Integer， fb(rs) As Integer
Dim xm(rs) As String， zf(rs) As Integer， bh(rs) As Integer
Dim n As Integer
Private Sub Command1_Click ()
Dim i As Integer， j As Integer， k As Integer， t As Integer
'读取选手姓名及四项比赛成绩，依次存入数组xm、ts、dq、tq、 fb，代码略
For i=1 To rs
zf(i) = ts(i) + dq(i) + tq(i) + fb(i)
bh(i) = i
Next i
For i=1 To rs-1
k=i
For j = i+1To rs
If Then k=j
Next j
If k<>i Then t=bh(i)：bh(i)=bh(k)：bh(k)=t
If i > 5 And zf(bh(i)) < zf(bh(i - 1)) Then
n= 　 　
Exit For 'Exit For表示退出循环
End If
Next i
'按要求将入围选手显示在列表框List1中，代码略
End Sub
Private Sub Command2_ Click()
Dim smax As Integer， s As Integer， i As Integer， j As Integer
Dim xs1 As String， xs2 As String
smax = 0
For i=1Ton- 1
For j=i+ 1To n
s = sum(bh(i)， bh(j))
If s > smax Then
　 　
xs1 = xm(bh(i))
xs2 = xm(bh(j))
End If
Next j
Next i
Label1.Caption=xs1+""+xs2
End Sub
Function sum(x As Integer， y As Integer) As Integer
sum=0
If ts(x) > ts(y) Then sum=sum+ts(x) Else sum=sum+ts(y)
If dq(x) > dq(y) Then sum = sum + dq(x) Else sum= sum + dq(y)
If tq(x) > tq(y) Then sum = sum + tq(x) Else sum= sum + tq(y)
If fb(x) > fb(y) Then sum = sum + fb(x) Else sum = sum + fb(y)
End Function
（3）程序中加框处代码有错，请改正。
【答案】（1）B
（2）i - 1；smax = s
（3）zf(bh(j)) > zf(bh(k))
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．（2021·湖州模拟）某影厅共12排，每排10座。座位编号以排号+座号来命名，如第10排3座，编号命名为103。该影厅的最佳观影区为方框内的座位，即第5排3座~第10排8座的矩形位置。0表示该座位可选，非0表示已售(1表示系统推荐，2表示手工选择) 座位推荐算法：
1)只推荐最佳观影区的座位，从前往后，优先选择最中间的位置，若找到最中间位置，则推荐，否则继续寻找下一排，以此类推；
2)购票数为1时，推荐单个靠中间的位置，大于1时，只推荐连续的座位；
3)若在最佳观影区内未找到可以推荐的座位时，系统将提示手工选择。编写VB程序，模拟电影院选座。在文本框Text1中输入购票数，单击“选座”按钮Command1，在标签Labe12中显示机选座位。程序运行界面如图所示。
（1）该影厅空座情况不变如上图所示，若购票数由2改为1，则推荐的座位编号为　 　。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
ConstC=10：ConstR=12
'每排10座，共12排
Dim zw(1 To C * R) As Integer， kzw(1 To C * R) As Integer '座位，空座位
Private Sub Form_ Load ()
'读取影厅座位数据存入数组zw，并将座位信息显示在列表框list1中，代码略
End Sub
Private Sub Command1_Click ()
Dim i As Integer， j As Integer， k As Integer
Dim x As Integer， min As Integer， start As Integer
Dim m As Integer， n As Integer， ans As String
m = Val (Text1.Text) '购票数，确保数值在座位数以内
n=0 '空座位的个数
For i=5 To 10 '统计最佳观影区中的空座位编号
For j=3 To 8
If
zw((i-1)*C+j)= 0 Then
n=n+1
kzw(n) = 　 　
End
If
Next j
Next i
min = C： start=0：
k=1
Do While k+m-1<= n
If
kzw(k) + m-1= kzw(k +m- 1) Then
x=Abs(C\2-(kzw(k)+kzw(k+m-1))\2 Mod C)
If x < min Then
min=x
start = k '记录满足座位条件的起始空位号
If min=0 Then Exit Do 'Exit Do表示退出循环
End If
End If
　 　
Loop
ans =””
If start = 0 Then
ans = "未能推荐座位，请手工选座"
Else
For
i = kzw(start) To 　 　
'CStr函数把表达式转换为字符串，不产生前置空格
ans = ans + "第"+ CStr(i \C+ 1) +"排"+ CStr(i ModC) +"座"
Next i
End If
Label2.Caption = ans
End Sub
【答案】（1）75
（2）(i - 1) * C + j；k = k + 1；kzw(start) + m – 1 或 kzw(start + m - 1)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省湖州、衢州、丽水三地市2021-2022学年高三上学期信息技术11月教学质量检测（一模）试卷
一、选择题(本大题共12小题，每小题2分，共24分。)
1．（2021·湖州模拟）下列有关信息的说法，正确的是（　　）
A．信息仅在人类社会是无处不在的
B．规范的信息表达有助于信息的交流
C．虛假信息的产生只源于错误的信息加工
D．数字化后的信息才可以被加工和处理
2．（2021·湖州模拟）下列有关网页与浏览器的说法，不正确的是（　　）
A．描述网页基本元素的超文本标记语言简称是HTML
B．收藏夹中的网址可以进行重命名、移动、删除操作
C．在IE浏览器中，保存网页操作不能获取图像文件
D．搜索引擎一般包括自动网页搜索和全文检索两大核心技术
3．（2021·湖州模拟）使用Access软件编辑某单位员工管理数据库，其中“献血情况"数据表的部分界面如图所示。
下列说法正确的是（　　）
A．在当前数据表视图中不能添加字段
B．可以将“姓名”字段设为“主键”
C．“出生年月”字段的数据类型不可能为“文本”型
D．可以通过“导入文本文件”操作，对已有的数据表追加记录
4．（2021·湖州模拟）下列有关信息编码的说法，正确的是（　　）
A．全角英文字符的内码占1个字节
B．两位十六进制数的最大值等于256
C．已知字符“9”的ASCII码值为39H，则字符“10”的ASCII码值是3AH
D．若一个二进制数的最低位为0，将其转换为十进制数后该数为偶数
5．（2021·湖州模拟）使用Photoshop软件制作“青春追梦人”作品，部分编辑界面如图所示。
下列说法正确的是（　　）
A．可将“背景”图层的不透明度设置为“50%”
B．可将“人物”图层的图层样式拷贝到“青春”图层
C．执行“自由变换”命令可以改变文字图层中的文字大小
D．将作品存储为BMP格式后会显示“内阴影”效果
6．（2021·湖州模拟）一段未经压缩的时长60秒、立体声双声道44100HZ、16位WAV音频，要将其存储容量从约10MB减少到约2.5MB，在不改变其他参数的前提下，可调整采样频率、量化位数分别为(　　)
A．22050HZ、8位 B．44100HZ、8位
C．22050HZ、16位 D．44100HZ、24位
7．（2021·湖州模拟）VB表达式16\2^2*3+ 2的值是(　　)
A．2 B．3 C．14 D．194
8．（2021·湖州模拟）某算法的部分流程图如图所示，执行这部分流程，若输入n的值为10，则输出a、b的值分别是(　　)
A．4，6 B．9，12 C．16，20 D．25，30
9．（2021·湖州模拟）将正整数n分解为连续正整数之和(如正整数9分解为2+3+4、4+5两种)。统计分解方法共有几种的VB程序段如下：
ans=0
n = Va1 (Text1． Text)
For i=1 To n\2
t=n：x=i
Do While t>0
Loop
Next i
Text2.Text = Str (ans)
方框中的代码由以下三部分组成：
①If t=0 Then ans=ans+1 ②t=t-x③x=x+1
下列选项中，代码顺序正确的是(　　)
A．③①② B．②①③ C．①③② D．①②③
10．（2021·湖州模拟）有如下VB程序段：
count = 0： n=7： i= 1
Do While i<=n
If a(i)> a(i+1)Then
count = count + 1
t = a(i)： a(i) = a(i + 1)： a(i+1) =t
End If
If i=n Then i=0：n=n-1
i=i+1
Loop
Text1.Text = Str (count)
数组元素a(1)到a(8)的值依次是“15，2，1，17，19，14，25，26”，执行该程序段后，文本框Text1中显示的是(　　)
A．4 B．5 C．6 D．7
11．（2021·湖州模拟）有如下VB程序段：
k=0：r=""
For i=1 To Len(s)
If b(k) = Mid(s， i，1) Then
k=k-1
Else
k=k+1
b(k) = Mid(s， i， 1)
End If
Next i
For i=1 To k
r=r+b(i)
Next i
数组元素b(0)到b(10)的初始值为“”，若变量s的值为“abbaddcab”，执行该程序段后，变量r的值是(　　)
A．”abdc” B．"aacab” C．"c" D．"cab"
12．（2021·湖州模拟）某对分查找算法的VB程序段如下：
For i=1 To 15
a(i) = i
Next i
key = Int (Rnd * 20)
i = 1：j=15：n=0
Do While i<=j
m=(i+j+1)\2
If a(m)< key Then i=m +1 Else j=m-1
n=n+1
Loop
执行该程序段后，变量n的值可能是(　　)
A．1 B．2 C．3 D．4
二、非选择题 (本大题共4小题，4+8+7+7，共26分)
13．（2021·湖州模拟）收集某校高一年级3个班趣味运动会相关数据，并用Excel软件进行数据处理，部分界面如图a所示。
请回答下列问题：
（1）区域H4：H123的数据是通过公式计算得到的，在H4单元格中输入公式　 　。
再使用自动填充功能完成区域H5：H123的计算。(按照名次来计算得分，要求第1名得50分、第2名得49分……第50名得1分、其他名次得0分．提示：=IF(A4<8，8-A4， 0)表示A4单元格的值小于8时，返回8-A4的值，否则返回0)
（2）对区域A2：I123进行相关数据分析，下列说法正确的是 。(多选，填字母)
A．修改G4单元格的数据，I4单元格的值会随之改变
B．为了将总得分最高的男生数据显示在当前工作表第4行，可选择数据区域A4：I123，以“列B”为主要关键字按字母升序、“列I”为次要关键字按降序进行排序
C．选手编号规则为： S+两位班级编号+两位班内学号。先按“列I”降序排序，再对“选手编号”进行筛选，条件为包含“01”，则显示在最前面的是高一(1)班总得分最高的学生数据
D．选手编号规则为： S+两位班级编号+两位班内学号。为了显示高一(3) 班总得分最高的3位学生数据，可先对“选手编号”进行筛选，条件为开头是“S03”，再对“总得分”进行筛选，选择“10个最大的值”并显示最大的3项
（3）对图a中的数据进行相关统计，结果放在新工作表中，如图b所示。根据图b中的数据制作的图表如图c所示。创建该图表的数据区域是
　 　。
14．（2021·湖州模拟）使用Flash软件创作主题为“中国梦”的多媒体作品，部分编辑界面如图a所示。
（1）创作多媒体作品需要进行需求分析。下列属于创作需求分析的是　 　(多选，填字母：A .了解作品的社会效益、经济效益/B .确定作品的结构类型/C .确定获取原始素材的方式/D .考虑作品的脚本编写/E .确定作品的发布方式)。
（2）“鸽子”图层第1帧的内容由库中“鸽子”元件生成。该元件的编辑界面如图b所示，该元件可由　 　(单选，填字母：A .鸽子．gif /B .鸽子．
jpg)文件导入库中直接生成，该元件中动画的类型是　 　(单选，填字母：A .逐帧动画/B .补间动画)。
（3）“按钮”图层的第45帧添加了动作脚本命令“stop()；”，声音的同步属性为事件。测试影片时，动画播放到第45帧自动停止，单击“播放”按钮，影片停止当前声音的播放，跳转到“中国梦”场景第1帧开始播放，则该按钮实例上添加的动作脚本是 (多选，填字母)
A．on(release) {stopAl1Sounds () ；gotoAndPlay("中国梦"，1)；}
B．on (release) {stopAllSounds () ； gotoAndPlay(1)；}
C．on (release) {stopAllSounds (45) ；gotoAndP1ay("中国梦"，1)；}
D．on (release) {stopAllSounds (45) ； gotoAndP1ay(1) ；}
E．on (release) {stopAllSounds () ；p1ay()；}
（4）测试场景时，“天安门”图层内容在播放完第25帧后消失，为了使该图层第25帧内容延续到第45帧，应进行的操作是　 　。
15．（2021·湖州模拟）某校将举行“希望杯”欢乐四项赛，比赛项目有跳绳、颠球、套圈、飞镖四项。团体赛规则：每班由2名选手参加；每名选手参赛项目不限；每项每班由1名选手参赛；团体成绩为4项得分的总和。根据团体赛规则，为推选出最优组合参赛，班级制定了如下推荐办法：个人总分前5名入围，在入围的选手中依据最高单项得分之和推选两位选手组队参赛(若有多组符合要求，则选择编号靠前的选手组队)。
编写VB程序，实现选手推荐功能：单击“入围”按钮Command1后，将入围选手名单及成绩按总分降序显示在列表框List1中，然后单击“推荐”按钮Command2，在标签Label1中显示推荐结果，程序运行界面如图所示。
（1）要使窗体Form1标题显示“比赛选手推荐”，则需修改该窗体的　 　属性。(单选，填字母：A . Font /B . Caption /C．BackColor)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Constrs=30 '初赛人数
Dim ts(rs) As Integer， dq(rs) As Integer， tq (rs) As Integer， fb(rs) As Integer
Dim xm(rs) As String， zf(rs) As Integer， bh(rs) As Integer
Dim n As Integer
Private Sub Command1_Click ()
Dim i As Integer， j As Integer， k As Integer， t As Integer
'读取选手姓名及四项比赛成绩，依次存入数组xm、ts、dq、tq、 fb，代码略
For i=1 To rs
zf(i) = ts(i) + dq(i) + tq(i) + fb(i)
bh(i) = i
Next i
For i=1 To rs-1
k=i
For j = i+1To rs
If Then k=j
Next j
If k<>i Then t=bh(i)：bh(i)=bh(k)：bh(k)=t
If i > 5 And zf(bh(i)) < zf(bh(i - 1)) Then
n= 　 　
Exit For 'Exit For表示退出循环
End If
Next i
'按要求将入围选手显示在列表框List1中，代码略
End Sub
Private Sub Command2_ Click()
Dim smax As Integer， s As Integer， i As Integer， j As Integer
Dim xs1 As String， xs2 As String
smax = 0
For i=1Ton- 1
For j=i+ 1To n
s = sum(bh(i)， bh(j))
If s > smax Then
　 　
xs1 = xm(bh(i))
xs2 = xm(bh(j))
End If
Next j
Next i
Label1.Caption=xs1+""+xs2
End Sub
Function sum(x As Integer， y As Integer) As Integer
sum=0
If ts(x) > ts(y) Then sum=sum+ts(x) Else sum=sum+ts(y)
If dq(x) > dq(y) Then sum = sum + dq(x) Else sum= sum + dq(y)
If tq(x) > tq(y) Then sum = sum + tq(x) Else sum= sum + tq(y)
If fb(x) > fb(y) Then sum = sum + fb(x) Else sum = sum + fb(y)
End Function
（3）程序中加框处代码有错，请改正。
16．（2021·湖州模拟）某影厅共12排，每排10座。座位编号以排号+座号来命名，如第10排3座，编号命名为103。该影厅的最佳观影区为方框内的座位，即第5排3座~第10排8座的矩形位置。0表示该座位可选，非0表示已售(1表示系统推荐，2表示手工选择) 座位推荐算法：
1)只推荐最佳观影区的座位，从前往后，优先选择最中间的位置，若找到最中间位置，则推荐，否则继续寻找下一排，以此类推；
2)购票数为1时，推荐单个靠中间的位置，大于1时，只推荐连续的座位；
3)若在最佳观影区内未找到可以推荐的座位时，系统将提示手工选择。编写VB程序，模拟电影院选座。在文本框Text1中输入购票数，单击“选座”按钮Command1，在标签Labe12中显示机选座位。程序运行界面如图所示。
（1）该影厅空座情况不变如上图所示，若购票数由2改为1，则推荐的座位编号为　 　。
（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
ConstC=10：ConstR=12
'每排10座，共12排
Dim zw(1 To C * R) As Integer， kzw(1 To C * R) As Integer '座位，空座位
Private Sub Form_ Load ()
'读取影厅座位数据存入数组zw，并将座位信息显示在列表框list1中，代码略
End Sub
Private Sub Command1_Click ()
Dim i As Integer， j As Integer， k As Integer
Dim x As Integer， min As Integer， start As Integer
Dim m As Integer， n As Integer， ans As String
m = Val (Text1.Text) '购票数，确保数值在座位数以内
n=0 '空座位的个数
For i=5 To 10 '统计最佳观影区中的空座位编号
For j=3 To 8
If
zw((i-1)*C+j)= 0 Then
n=n+1
kzw(n) = 　 　
End
If
Next j
Next i
min = C： start=0：
k=1
Do While k+m-1<= n
If
kzw(k) + m-1= kzw(k +m- 1) Then
x=Abs(C\2-(kzw(k)+kzw(k+m-1))\2 Mod C)
If x < min Then
min=x
start = k '记录满足座位条件的起始空位号
If min=0 Then Exit Do 'Exit Do表示退出循环
End If
End If
　 　
Loop
ans =””
If start = 0 Then
ans = "未能推荐座位，请手工选座"
Else
For
i = kzw(start) To 　 　
'CStr函数把表达式转换为字符串，不产生前置空格
ans = ans + "第"+ CStr(i \C+ 1) +"排"+ CStr(i ModC) +"座"
Next i
End If
Label2.Caption = ans
End Sub
答案解析部分
1．【答案】B
【知识点】信息及其特征；信息表达要求
2．【答案】C
【知识点】网络资源的类型、下载与保存；浏览器；网络资源的检索；网页标记语言及基本组成
3．【答案】D
【知识点】数据表、字段、记录的编辑
4．【答案】D
【知识点】进制及数制转换；字符编码
5．【答案】C
【知识点】图层及图层的基本操作
6．【答案】A
【知识点】声音、图像、视频编码
7．【答案】B
【知识点】运算符、基本运算与表达式
8．【答案】A
【知识点】流程图识读
9．【答案】B
【知识点】循环结构语句及程序实现
10．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）=IF(G4<51,51-G4,0)
（2）A；B
（3）A2:D5
【知识点】表格数据的处理与计算；表格数据的图表呈现；数据分析
14．【答案】（1）BE
（2）A；A
（3）A；E
（4）选中“天安门”图层第26帧执行“清除关键帧”操作 或选中“天安门”图层第25帧执行“复制帧”操作，在第26帧执行“粘贴帧”操作
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；元件的类型与应用；常用影片控制函数的应用
15．【答案】（1）B
（2）i - 1；smax = s
（3）zf(bh(j)) > zf(bh(k))
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．【答案】（1）75
（2）(i - 1) * C + j；k = k + 1；kzw(start) + m – 1 或 kzw(start + m - 1)
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑