资源简介

浙江省普通高中2022届高三上学期信息技术12月统测试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2021高三上·浙江月考）下列关于信息和信息技术说法正确的是(　　)
A．文字、语言声音、图像、广播、电视等都是信息的表达方式
B．信息的载体依附性是指信息的传播不可以脱离它所反映的事物
C．因特网信息资源的三种主要评价方式分别是统计评价、核心刊物评价和专家推荐
D．国际标准化组织制定了各种通信协议(如TCP/IP等)，目的是为了信息表达的规范化
2．（2021高三上·浙江月考）下列有关网页与浏览器的说法，正确的是(　　)
A．使用搜索引擎，关键字越多，搜索结果也越多
B．用FLASH导出影片不可以选择导出html格式文件
C．HTTP协议用于浏览器与Web服务器之间的信息传输
D．搜索引擎的两大核心技术是自动网页搜索技术和主题目录检索
3．（2021高三上·浙江月考）使用Access软件创建的“学校信息”数据表，其设计视图的部分学校信息界面如图所示，下列说法正确的是(　　)
A．“备注”字段值可以包含任意多个字符
B．该数据表中，“学校序号”字段值可以是“ZJ01”
C．“是”或者“否”可以是“公办学校”字段的有效输入值
D．“2021\10\01”可以是“建校日期”字段的有效输入值
4．（2021高三上·浙江月考）如图，下列关于计算机字符编码的描述，正确的是(　　)
A．字符“S”在计算机内部的二进制编码是“01010011”
B．字符“Z”的内码值是60H
C．“奥”字的字符内码是“B9”
D．图中“中国奥运军团YYDS”共占15个字节
5．（2021高三上·浙江月考）用Photoshop软件制作“致敬抗疫英雄海报”作品，如图所示。
下列说法正确的是(　　)
A．可以使用油漆桶工具将“背景”图层填充成其他颜色
B．使用“缩放工具”后，左下角的“4.01M/14.7M”也会随之改变
C．当前状态下使用“自由变换”命令可以调整“阴影”图层内容大小
D．将“抗疫英雄”图层的图层样式拷贝至“抗击疫情”图层，则“抗击疫情”图层的“描边”效果将消失
6．（2021高三上·浙江月考）一个时长为10秒、24位真彩色、总帧数300帧的未经压缩的AVI格式无声视频文件约为675MB，则其分辨率可能是(　　)
A．800 * 600 B．1024 * 768 C．1366 * 768 D．2048 * 1536
7．（2021高三上·浙江月考）VB表达式3^2*6Mod24\2*3的值是(　　)
A．2 B．1 C．4 D．3
8．（2021高三上·浙江月考）某算法部分流程图如图所示，执行这部分流程后，输出s的值是(　　)
A．20 B．45 C．55 D．65
9．（2021高三上·浙江月考）有如下VB程序段：
s ="ATCGCGCTACTGA"
s1 =" ACGT"
n= Len(s)
i=1：j=1：c=0
Do While i <= n and j <=4
If Mid(s， i， 1)=Mid(s1， j，1) Then
j=j+1
End If
i=i+1
Loop
s= Mid(s， 1， i-1)
执行该程序段后，变量s的值是(　　)
A．ATCCCG B．ATCC C．ATCGCGCT D．ATCCCGC
10．（2021高三上·浙江月考）有如下VB程序段：
i=1：j=10：n=0
Do While i<=j
m=(i+j)\2
If a(m)i=m+1
n=n+ m
Else
j=m-1
n=n-m
End If
Loop
数组元素a(1)至a(10)中的值依次为“32，39，44，49，51，54，61，61，68，76”，当key值为61时，执行该程序段后，变量n的值是(　　)
A．-4 B．4 C．-5 D．5
11．（2021高三上·浙江月考）有如下VB程序段：
Dim a(1 To 6) As Integer
For i=1 To 6
a(i)= Int(Rnd * 4)+1
If a(i) Mod 2=0 And i Mod 2=0 Then
a(i)=2 * a(i) - a(i - 1)
End If
s=s+Str(a(i))
Next i
执行该程序段后，变量s的值可能是(　　)
A．242221 B．333126 C．043513 D．323117
12．（2021高三上·浙江月考）数组a中各元素在列表框List1中以“个数逐行递增”的形式分布如图所示，在文本框Text11中输人行号，单击“排序”按钮，对该行数据做排序处理，并将排序之后的数据显示在文本框Text2。VB程序段如下：
Dim a(1 To 15) As Integer
'生成数组a， a(1)=24：a(2)= 17：a(3)=21：
a(4)=15：a(5)=14 …代码略
n= Val(Text1. Text)
For i=1 To n-1
For j=(n+1) * n/2 To ① Step-1
If ② Then
t=a(j)：a(j)=a(j- 1)：a(j- 1)=t
End If
Next j
Next i
'将处理后的数组，以金字塔形显示，代码略
上述程序段中①②处的语句分别为(　　)
A．(n-1) *n/2+1+I a(j)>a(j- 1)
B．(n-1) *n/2+1+i a(j)C．(n+1) * n/2+i-1 a(j)D．(n+1) * n/2+i-1 a(j)>a(j-1)
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小陈从网上收集的关于部分国家的疫情数据情况，并使用Excel软件进行数据处理，如图a所示，请回答下列问题：
图a
（1）区域F3：F25是计算各国新增病例的排名，该数据是通过公式计算得到的：在F3单元格中输入公式　 　，再利用自动填充功能完成区域F4：F25的计算(注：公式= RANK(A1，A1：A5)表示A1单元格在区域A1：A5中的排名)。
（2）根据表格中数据制作图表如图b所示，创建该图表的数据区域是　 　。
图b
（3）为显示“状况”属于“较轻”的国家中“新增”数量排名前三的数据，以下方法可行的是 (多选：填字母)
A．先对“状况”进行筛选，选择值为“较轻”，再对“新增”进行筛选，选择“10个最大的值”，并显示最大的3项
B．先对“状况”进行筛选，选择值为“较轻”，再选择“新增”为关键字进行降序排序，选择排在前面的国家
C．先对“状况”进行筛选，选择值为“较轻”，再选择“排名”为关键字进行升序排序，选择排在前面的国家
D．以“新增”为主要关键字、“状况”为次要关键字均按降序排序，选择排在前面的国家
14．（2021高三上·浙江月考）用Flash软件创作“川剧变脸”多媒体作品，部分编辑界面如图所示。
请回答下列问题：
（1）以下关于多媒体设计的选项中错误的是 (多选，填字母)。
A．作品的模块设计描述了作品的组成部分、工作流程和主要界面
B．该多媒体作品主要是面向京剧爱好者，此定位属于应用需求分析
C．确定Flash中音乐素材的获取方式属于多媒体设计的脚本编写部分
D．选择将此动画发布在网页上属于创作需求分析
E．在脚本编写时，先设计制作脚本，再设计文字脚本
（2）测试影片，动画开始后停在第1帧，但脸谱会不断变化着各种花脸，由此可见，“脸谱”元件应该是　 　(单选，填字母：A .图形元件/B .影片剪辑/C .按钮元件)。
（3）动画中“文字1”“文字2”“文字3”图层在第25帧开始由三个字“川剧场”逐渐变成“欢迎您”，则“文字3”图层第25帧到第55帧的动画类型为　 　(单选，填字母：A .动画补间/B .形状补间)。
（4）动画播放过程中发现“文字3”图层在55帧后内容消失，为使第55帧中内容延续至最
后，正确的操作是：
　 　。
（5）点击“小花”按钮，动画继续播放，并且音乐停止，则该按钮上的脚本动作为：　 　。
15．（2021高三上·浙江月考）某车管所计划设计-款选车牌的程序，规则如下：
规则一：随机选取10个车牌号，其中2个车牌的尾数是字母，其余8个车牌的尾数是数字。
规则二：车牌尾数按从小到大排列。
规则三：若规则一随机选取的车牌中，第1个车牌尾数为数字，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：数字一字母一数字一字母一数字一数字……；若规则一随机选取的车牌中，第1个车牌尾数为字母，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：字母一数字一字母一数字一数字……
程序运行后，列表框List1中显示随机选取的车牌，单击“排序”按钮，在列表框List2 中显示按以上规则排序后的待选车牌。
（1）该界面中至少用到　 　(填数字)类控件。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dima(1 To 10) As String
Private Sub Form_ Load(　　)
'从数据库里随机选取10个车牌号(其中有2个尾号带字母)，车牌号依次存储于数组a(1)至a(10)，代码略
End Sub
Private Sub Command1_ Click(　　)
If Then
m= 1
Else
m=0
End If
For i=1 To n-1
k=i
For j=i+1 To n
If 　 　 Then k=j
Next j
If k <> i then tmp=a(k)： a(k)=a(i)：a(i)= tmp
Next i
pos= 9
For i=0 To 1
j=　 　
tmp = a(pos)
Do While j>=m+1+2*i
a(j+1)=a(j)
j=j-1
Loop
　 　
pos= pos+1
Next i
For i=1 To 10
List2.AddItem a(i)
Next i
End Sub
Function judge(s As String) As Boolean
If Mid(s，7)>。="0"AndMid(s，7)<<="9"Then
judge = True
Else
judge = False
End If
End Function
（3）程序中加框处代码有误，请改正。
16．（2021高三上·浙江月考）小明接受了一个任务：要对照赋分表完成对本次高三技术摸底考试的卷面成绩赋分，赋分表数据如下：
赋分成绩 100 99 98 97 96 …… 42 43 41
卷面成绩 90 88 86 85 83 …… 30 30 30
赋分成绩最低40分，卷面成绩低于30分则赋0分。赋分表数据存人数组ffb，如ffb(100)=90，则表示卷面成绩90时，赋分100分。小明设计的赋分具体步骤如下：
第一步：对学生的卷面成绩进行降序排序；
第二步：对照赋分表，对每-名学生卷面成绩进行赋分。
小明编写了VB赋分程序，在列表框List1中显示学号和学生卷面成绩，在列表框List2中显示赋分表数据，单击按钮“我要赋分”后，按照之前的学号顺序在列表框List3中显示学号、卷面成绩和赋分成绩。VB程序界面如下：
Const m = 10000
Dim xh(1 to 10000) As String '存储学生学号
Dim cj(1 To 10000) As Integer '存储学生卷面成绩
Dim ffcj(1 To 10000) As Integer '存储学生赋分成绩
Dim ffb(40 To 100) As Integer '存储赋分表数据
Private Sub Form_ Load()
'读入m名学生的学号、技术考试卷面成绩分别存人数组xh和cj中，并在List1中显示；读入赋分表成绩存人数组ffb中，代码略
End Sub
Private Sub Command1_ Click()
Dim a(0 To 100) As Integer
Dim b(0 To 100) As Integer
Dim c(1 To 10000) As Integer
List2.AddItem "赋分成绩卷面成绩"
For i=100 To 40 Step-1 '在List2显示赋分表数据
List2. AddItem Str(i)+ "" +Str( ffb(i))
Next i
For i=1 To m '统计各分数段的人数
①
a(t)=a(t)+1
Next i
j= 100
Do While a(j)=0
j=j-1
Loop
b(j)=1
For k=j- 1 To 0 Step -1
b(k)=b(k+1) + a(k+ 1)
Next k
For i=1 To m
t=cj(i)
c(b(t))=i
②
Next i
p=1：q= 100
Do While p<=m
If cj(c(p))> = ffb(q) Then
③
p=p+1
ElseIf q=40 Then
ffcj(c(p))=0
p=p+1
Else
q=q-1
End If
Loop
List3. AddItem "学号卷面成绩赋分成绩"
For i=1 To m
List3. AddItem xh(i)+" " + Str(cj(i)) + ""+Str(ffcj(i))
Next i
End Sub
（1）从图中赋分表数据可知ffb(92)= 77，ffb(91)=77，ffb(90)=77。结合阅读程序，请问学号为“30311”的同学卷面成绩为77分，则其赋分成绩为　 　 。
（2）请在划线处填写合适的代码。
①　 　②　 　③　 　
答案解析部分
1．【答案】D
【知识点】信息及其特征；因特网信息资源评价；信息表达方式与表达技术；信息表达要求
2．【答案】C
【知识点】网络协议；网络资源的检索
3．【答案】B
【知识点】字段的数据类型
4．【答案】A
【知识点】进制及数制转换；字符编码
5．【答案】D
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】C
【知识点】流程图识读
9．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】A
【知识点】查找算法及程序实现
11．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】B
【知识点】排序算法及程序实现
13．【答案】（1）= RANK(B3， $B$3： $ B$ 25) 或= RANK(B3，B$ 3：B$ 25) 或= RANK(B3，B$ 3：B$ 25，0) 或= RANK(B3， $B$3： $B$ 25，0) 或其他等价答案
（2）A2 ： A6，C2 ： C6
（3）B；C
【知识点】表格数据的处理与计算
14．【答案】（1）A；E
（2）B
（3）B
（4）在“文字3”图层第60帧插人帧(或者插人关键帧)
（5）on( press){ play(　　);stopallsounds(　　);}
【知识点】多媒体作品的规划和设计；动画的类型；元件的类型与应用；常用影片控制函数的应用
15．【答案】（1）4
（2）Mid(a(k)，7，1)> Mid(a(j)，7，1)；pos- 1(或 8+i)；a(j+1)= tmp
（3）judge(a(1))= True
【知识点】排序算法及程序实现；程序设计工具及编程环境
16．【答案】（1）92
（2）t=cj(i)；b(t)=b(t)+1；ffcj(c(p))=q
【知识点】排序算法及程序实现
1 / 1浙江省普通高中2022届高三上学期信息技术12月统测试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2021高三上·浙江月考）下列关于信息和信息技术说法正确的是(　　)
A．文字、语言声音、图像、广播、电视等都是信息的表达方式
B．信息的载体依附性是指信息的传播不可以脱离它所反映的事物
C．因特网信息资源的三种主要评价方式分别是统计评价、核心刊物评价和专家推荐
D．国际标准化组织制定了各种通信协议(如TCP/IP等)，目的是为了信息表达的规范化
【答案】D
【知识点】信息及其特征；因特网信息资源评价；信息表达方式与表达技术；信息表达要求
2．（2021高三上·浙江月考）下列有关网页与浏览器的说法，正确的是(　　)
A．使用搜索引擎，关键字越多，搜索结果也越多
B．用FLASH导出影片不可以选择导出html格式文件
C．HTTP协议用于浏览器与Web服务器之间的信息传输
D．搜索引擎的两大核心技术是自动网页搜索技术和主题目录检索
【答案】C
【知识点】网络协议；网络资源的检索
3．（2021高三上·浙江月考）使用Access软件创建的“学校信息”数据表，其设计视图的部分学校信息界面如图所示，下列说法正确的是(　　)
A．“备注”字段值可以包含任意多个字符
B．该数据表中，“学校序号”字段值可以是“ZJ01”
C．“是”或者“否”可以是“公办学校”字段的有效输入值
D．“2021\10\01”可以是“建校日期”字段的有效输入值
【答案】B
【知识点】字段的数据类型
4．（2021高三上·浙江月考）如图，下列关于计算机字符编码的描述，正确的是(　　)
A．字符“S”在计算机内部的二进制编码是“01010011”
B．字符“Z”的内码值是60H
C．“奥”字的字符内码是“B9”
D．图中“中国奥运军团YYDS”共占15个字节
【答案】A
【知识点】进制及数制转换；字符编码
5．（2021高三上·浙江月考）用Photoshop软件制作“致敬抗疫英雄海报”作品，如图所示。
下列说法正确的是(　　)
A．可以使用油漆桶工具将“背景”图层填充成其他颜色
B．使用“缩放工具”后，左下角的“4.01M/14.7M”也会随之改变
C．当前状态下使用“自由变换”命令可以调整“阴影”图层内容大小
D．将“抗疫英雄”图层的图层样式拷贝至“抗击疫情”图层，则“抗击疫情”图层的“描边”效果将消失
【答案】D
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2021高三上·浙江月考）一个时长为10秒、24位真彩色、总帧数300帧的未经压缩的AVI格式无声视频文件约为675MB，则其分辨率可能是(　　)
A．800 * 600 B．1024 * 768 C．1366 * 768 D．2048 * 1536
【答案】B
【知识点】声音、图像、视频编码
7．（2021高三上·浙江月考）VB表达式3^2*6Mod24\2*3的值是(　　)
A．2 B．1 C．4 D．3
【答案】A
【知识点】运算符、基本运算与表达式
8．（2021高三上·浙江月考）某算法部分流程图如图所示，执行这部分流程后，输出s的值是(　　)
A．20 B．45 C．55 D．65
【答案】C
【知识点】流程图识读
9．（2021高三上·浙江月考）有如下VB程序段：
s ="ATCGCGCTACTGA"
s1 =" ACGT"
n= Len(s)
i=1：j=1：c=0
Do While i <= n and j <=4
If Mid(s， i， 1)=Mid(s1， j，1) Then
j=j+1
End If
i=i+1
Loop
s= Mid(s， 1， i-1)
执行该程序段后，变量s的值是(　　)
A．ATCCCG B．ATCC C．ATCGCGCT D．ATCCCGC
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2021高三上·浙江月考）有如下VB程序段：
i=1：j=10：n=0
Do While i<=j
m=(i+j)\2
If a(m)i=m+1
n=n+ m
Else
j=m-1
n=n-m
End If
Loop
数组元素a(1)至a(10)中的值依次为“32，39，44，49，51，54，61，61，68，76”，当key值为61时，执行该程序段后，变量n的值是(　　)
A．-4 B．4 C．-5 D．5
【答案】A
【知识点】查找算法及程序实现
11．（2021高三上·浙江月考）有如下VB程序段：
Dim a(1 To 6) As Integer
For i=1 To 6
a(i)= Int(Rnd * 4)+1
If a(i) Mod 2=0 And i Mod 2=0 Then
a(i)=2 * a(i) - a(i - 1)
End If
s=s+Str(a(i))
Next i
执行该程序段后，变量s的值可能是(　　)
A．242221 B．333126 C．043513 D．323117
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2021高三上·浙江月考）数组a中各元素在列表框List1中以“个数逐行递增”的形式分布如图所示，在文本框Text11中输人行号，单击“排序”按钮，对该行数据做排序处理，并将排序之后的数据显示在文本框Text2。VB程序段如下：
Dim a(1 To 15) As Integer
'生成数组a， a(1)=24：a(2)= 17：a(3)=21：
a(4)=15：a(5)=14 …代码略
n= Val(Text1. Text)
For i=1 To n-1
For j=(n+1) * n/2 To ① Step-1
If ② Then
t=a(j)：a(j)=a(j- 1)：a(j- 1)=t
End If
Next j
Next i
'将处理后的数组，以金字塔形显示，代码略
上述程序段中①②处的语句分别为(　　)
A．(n-1) *n/2+1+I a(j)>a(j- 1)
B．(n-1) *n/2+1+i a(j)C．(n+1) * n/2+i-1 a(j)D．(n+1) * n/2+i-1 a(j)>a(j-1)
【答案】B
【知识点】排序算法及程序实现
二、非选择题(本大题共4小题，4+8+7+7，共26分)
13．（2021高三上·浙江月考）小陈从网上收集的关于部分国家的疫情数据情况，并使用Excel软件进行数据处理，如图a所示，请回答下列问题：
图a
（1）区域F3：F25是计算各国新增病例的排名，该数据是通过公式计算得到的：在F3单元格中输入公式　 　，再利用自动填充功能完成区域F4：F25的计算(注：公式= RANK(A1，A1：A5)表示A1单元格在区域A1：A5中的排名)。
（2）根据表格中数据制作图表如图b所示，创建该图表的数据区域是　 　。
图b
（3）为显示“状况”属于“较轻”的国家中“新增”数量排名前三的数据，以下方法可行的是 (多选：填字母)
A．先对“状况”进行筛选，选择值为“较轻”，再对“新增”进行筛选，选择“10个最大的值”，并显示最大的3项
B．先对“状况”进行筛选，选择值为“较轻”，再选择“新增”为关键字进行降序排序，选择排在前面的国家
C．先对“状况”进行筛选，选择值为“较轻”，再选择“排名”为关键字进行升序排序，选择排在前面的国家
D．以“新增”为主要关键字、“状况”为次要关键字均按降序排序，选择排在前面的国家
【答案】（1）= RANK(B3， $B$3： $ B$ 25) 或= RANK(B3，B$ 3：B$ 25) 或= RANK(B3，B$ 3：B$ 25，0) 或= RANK(B3， $B$3： $B$ 25，0) 或其他等价答案
（2）A2 ： A6，C2 ： C6
（3）B；C
【知识点】表格数据的处理与计算
14．（2021高三上·浙江月考）用Flash软件创作“川剧变脸”多媒体作品，部分编辑界面如图所示。
请回答下列问题：
（1）以下关于多媒体设计的选项中错误的是 (多选，填字母)。
A．作品的模块设计描述了作品的组成部分、工作流程和主要界面
B．该多媒体作品主要是面向京剧爱好者，此定位属于应用需求分析
C．确定Flash中音乐素材的获取方式属于多媒体设计的脚本编写部分
D．选择将此动画发布在网页上属于创作需求分析
E．在脚本编写时，先设计制作脚本，再设计文字脚本
（2）测试影片，动画开始后停在第1帧，但脸谱会不断变化着各种花脸，由此可见，“脸谱”元件应该是　 　(单选，填字母：A .图形元件/B .影片剪辑/C .按钮元件)。
（3）动画中“文字1”“文字2”“文字3”图层在第25帧开始由三个字“川剧场”逐渐变成“欢迎您”，则“文字3”图层第25帧到第55帧的动画类型为　 　(单选，填字母：A .动画补间/B .形状补间)。
（4）动画播放过程中发现“文字3”图层在55帧后内容消失，为使第55帧中内容延续至最
后，正确的操作是：
　 　。
（5）点击“小花”按钮，动画继续播放，并且音乐停止，则该按钮上的脚本动作为：　 　。
【答案】（1）A；E
（2）B
（3）B
（4）在“文字3”图层第60帧插人帧(或者插人关键帧)
（5）on( press){ play(　　);stopallsounds(　　);}
【知识点】多媒体作品的规划和设计；动画的类型；元件的类型与应用；常用影片控制函数的应用
15．（2021高三上·浙江月考）某车管所计划设计-款选车牌的程序，规则如下：
规则一：随机选取10个车牌号，其中2个车牌的尾数是字母，其余8个车牌的尾数是数字。
规则二：车牌尾数按从小到大排列。
规则三：若规则一随机选取的车牌中，第1个车牌尾数为数字，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：数字一字母一数字一字母一数字一数字……；若规则一随机选取的车牌中，第1个车牌尾数为字母，则经过规则二排列后，还需要将字母尾数车牌进行穿插，最终形成：字母一数字一字母一数字一数字……
程序运行后，列表框List1中显示随机选取的车牌，单击“排序”按钮，在列表框List2 中显示按以上规则排序后的待选车牌。
（1）该界面中至少用到　 　(填数字)类控件。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dima(1 To 10) As String
Private Sub Form_ Load(　　)
'从数据库里随机选取10个车牌号(其中有2个尾号带字母)，车牌号依次存储于数组a(1)至a(10)，代码略
End Sub
Private Sub Command1_ Click(　　)
If Then
m= 1
Else
m=0
End If
For i=1 To n-1
k=i
For j=i+1 To n
If 　 　 Then k=j
Next j
If k <> i then tmp=a(k)： a(k)=a(i)：a(i)= tmp
Next i
pos= 9
For i=0 To 1
j=　 　
tmp = a(pos)
Do While j>=m+1+2*i
a(j+1)=a(j)
j=j-1
Loop
　 　
pos= pos+1
Next i
For i=1 To 10
List2.AddItem a(i)
Next i
End Sub
Function judge(s As String) As Boolean
If Mid(s，7)>。="0"AndMid(s，7)<<="9"Then
judge = True
Else
judge = False
End If
End Function
（3）程序中加框处代码有误，请改正。
【答案】（1）4
（2）Mid(a(k)，7，1)> Mid(a(j)，7，1)；pos- 1(或 8+i)；a(j+1)= tmp
（3）judge(a(1))= True
【知识点】排序算法及程序实现；程序设计工具及编程环境
16．（2021高三上·浙江月考）小明接受了一个任务：要对照赋分表完成对本次高三技术摸底考试的卷面成绩赋分，赋分表数据如下：
赋分成绩 100 99 98 97 96 …… 42 43 41
卷面成绩 90 88 86 85 83 …… 30 30 30
赋分成绩最低40分，卷面成绩低于30分则赋0分。赋分表数据存人数组ffb，如ffb(100)=90，则表示卷面成绩90时，赋分100分。小明设计的赋分具体步骤如下：
第一步：对学生的卷面成绩进行降序排序；
第二步：对照赋分表，对每-名学生卷面成绩进行赋分。
小明编写了VB赋分程序，在列表框List1中显示学号和学生卷面成绩，在列表框List2中显示赋分表数据，单击按钮“我要赋分”后，按照之前的学号顺序在列表框List3中显示学号、卷面成绩和赋分成绩。VB程序界面如下：
Const m = 10000
Dim xh(1 to 10000) As String '存储学生学号
Dim cj(1 To 10000) As Integer '存储学生卷面成绩
Dim ffcj(1 To 10000) As Integer '存储学生赋分成绩
Dim ffb(40 To 100) As Integer '存储赋分表数据
Private Sub Form_ Load()
'读入m名学生的学号、技术考试卷面成绩分别存人数组xh和cj中，并在List1中显示；读入赋分表成绩存人数组ffb中，代码略
End Sub
Private Sub Command1_ Click()
Dim a(0 To 100) As Integer
Dim b(0 To 100) As Integer
Dim c(1 To 10000) As Integer
List2.AddItem "赋分成绩卷面成绩"
For i=100 To 40 Step-1 '在List2显示赋分表数据
List2. AddItem Str(i)+ "" +Str( ffb(i))
Next i
For i=1 To m '统计各分数段的人数
①
a(t)=a(t)+1
Next i
j= 100
Do While a(j)=0
j=j-1
Loop
b(j)=1
For k=j- 1 To 0 Step -1
b(k)=b(k+1) + a(k+ 1)
Next k
For i=1 To m
t=cj(i)
c(b(t))=i
②
Next i
p=1：q= 100
Do While p<=m
If cj(c(p))> = ffb(q) Then
③
p=p+1
ElseIf q=40 Then
ffcj(c(p))=0
p=p+1
Else
q=q-1
End If
Loop
List3. AddItem "学号卷面成绩赋分成绩"
For i=1 To m
List3. AddItem xh(i)+" " + Str(cj(i)) + ""+Str(ffcj(i))
Next i
End Sub
（1）从图中赋分表数据可知ffb(92)= 77，ffb(91)=77，ffb(90)=77。结合阅读程序，请问学号为“30311”的同学卷面成绩为77分，则其赋分成绩为　 　 。
（2）请在划线处填写合适的代码。
①　 　②　 　③　 　
【答案】（1）92
（2）t=cj(i)；b(t)=b(t)+1；ffcj(c(p))=q
【知识点】排序算法及程序实现
1 / 1

展开更多......

收起↑