资源简介

浙江省丽水市普通高中2020-2021学年高二下学期信息技术期末教学质量监控试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021高二下·丽水期末）下列有关信息和信息技术的说法，错误的是（　　）
A．信息在传递和共享的过程中不会产生损耗
B．信息经过加工、处理后，往往具有更高的价值
C．常用的信息表达方式有语言、文字、图像、书籍、报纸、网络等
D．现代信息技术包括微电子技术、光电子技术、现代通信技术、计算机网络等
【答案】C
【知识点】信息及其特征；信息技术的概念与关键技术；信息表达方式与表达技术
2．（2021高二下·丽水期末）下列关于信息安全的说法，正确的是（　　）
A．计算机安装了杀毒软件，就不会被病毒感染
B．经常修改信息系统的密码，有利于提高信息的安全性
C．某支付软件使用人脸识别支付，可确保财产绝对安全
D．在信息传递时使用压缩技术主要是为了提高信息的安全性
【答案】B
【知识点】信息系统安全防护
3．（2021高二下·丽水期末）要创建一个名为“报名表”的 Access 数据表，存放下列表格数据：
序号 班级 姓名 性别 参赛项目1 参赛项目2 参赛项目3
1 201 张忠明 男 100 米 铅球 跳远
2 202 李敏 女 800 米 跳高 铁饼
… … … … … … …
下列关于“报名表”数据表的描述，正确的是（　　）
A．该数据表中必定有一个名为“班级”的字段
B．该数据表不能通过“导入Excel 电子表格”的操作来添加记录
C．“报名表”的字段顺序与图中数据的列顺序可以不一致
D．“报名表”中同一字段的字段值的数据类型不一定相同
【答案】C
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．（2021高二下·丽水期末）使用 UltraEdit 软件查看字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中内码所对应的 ASCII 码字符共有 7 个
B．内码十六进制“48”转换为十进制为 72
C．图中内码所对应的字符可能是“happy！”
D．内码“70”是字符“p”的十六进制内码，则字符“o”的十六进制内码为“69”
【答案】B
【知识点】进制及数制转换；字符编码
5．（2021高二下·丽水期末）用Photoshop软件制作“致青春”作品，部分界面如图所示。
下列说法正确的是（　　）
A．可以使用文字工具更改“青春有梦”图层文字的大小
B．可以使用油漆桶工具修改“勇敢前行”图层中“前”字的颜色
C．可以拷贝“青春有梦”图层的图层样式，粘贴到“背景”图层
D．移动“拳头”图层到“勇敢前行”图层上方，不影响图像的呈现效果
【答案】D
【知识点】图层及图层的基本操作
6．（2021高二下·丽水期末）某音频文件相关参数如图所示。
则该音频文件存储容量约为（　　）
A．0.5MB B．0.84MB C．1.68MB D．13.44MB
【答案】C
【知识点】声音、图像、视频编码
7．（2021高二下·丽水期末）下列 VB 表达式值最大的是（　　）
A．Sqr(Abs(-9.7)) B．Len(Mid("丽水 2021",3,2))
C．Int(Rnd()*3+1) D．123 Mod 100 \10
【答案】A
【知识点】运算符、基本运算与表达式
8．（2021高二下·丽水期末）某算法的部分流程图如图所示。执行这部分流程后，输出ｓ的值是（　　）
A．1101 B．0010 C．1111 D．1110
【答案】A
【知识点】流程图识读
9．（2021高二下·丽水期末）有如下VB程序段：
s1 = "python": s2 = "visual" i = 1: j = 1: s = ""
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) >= Mid(s2, j, 1) Then s = s + Mid(s1, i, 1)
Else
j = j + 1
End If
i = i + 1
Loop
执行该程序后，ｊ的值是（　　）
A．2 B．3 C．5 D．7
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2021高二下·丽水期末）超级素数是指一个素数，每次去掉最后面的一个数字，依然为素数。如 37，去掉最后的7 后，3 仍为素数。统计 1000 以内的超级素数的个数的 VB 程序段如下：
For i = 2 To 1000
flag = True：s = i
Do While flag And s >1
For j = 2 To Int(Sqr(s))
If s Mod j = 0 Then
Exit For
End If
Next j
Loop
If flag And s<>1 Then
End If
Next i
Label1.caption=str(c)
上述程序段中方框处可选语句为：
①flag = False ②c = c + 1 ③s = s \ 10
则（1）（2）（3）处语句依次可为（　　）
A．①②③ B．②①③ C．③②① D．①③②
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2021高二下·丽水期末）某算法的VB程序段如下：
i=1: flag=True
Do While i<6 And flag=True
flag=False
For j =6 To i+1 step -1
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
flag=True
End If
Next j
f(i)=1 'f 数组初值均为 0
i=i+1
Loop
For i=1 To 6
s=s+f(i)
Next i
数组元素a(1)到a(6)的值依次为“17,79,93,55,15,13”，执行该程序段后，s的值是（　　）
A．3 B．4 C．5 D．6
【答案】B
【知识点】排序算法及程序实现
12．（2021高二下·丽水期末）某对分查找算法的VB程序段如下：
key=Val(Text1.Text)
i=1: j=8
Text2.Text=“ ”
Do While i<=j
m=Int(i+j)/2)
If key=a(m) Then Exit Do 'Exit Do 表示退出循环
If keyText2.Text=Str(a(m))+Text2.Text
Loop
数组元素a(1)到a(8)的数据依次为“12，25，36，47，68，79，87，99”，文本框Text1中输入的值是12，执行该程序段后，文本框Text2中显示的是（　　）
A．68 47 25 12 B．47 25 12 C．68 36 12 D．25 47
【答案】D
【知识点】查找算法及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分。）
13．（2021高二下·丽水期末）小李收集了某书店主要畅销书销售情况的数据，并使用Excel软件对数据进行处理，如图所示。
（1）区域G3:G100的数据是通过公式计算得到的，在G3单元格中输入公式　 　，再利用自动填充功能完成区域G4:G100的计算。
（2）对销售情况的数据以“定价（元）”为主要关键字按降序进行排序，则排序的数据区域是　 　；
（3）若在上图所示工作表中对数据进行进一步的操作，下列说法正确的是 （多选，填字母）。
A．若要制作一张关于《西游记》四个季度销量情况折线图，则图表的数据区域是A2:A3,C2:F3
B．在“书籍名称”列前插入一列，“年销售金额”列的数值不会发生变化
C．将对B3单元格的数值小数位数设置为0，则G3单元格的数值将变小
D．分别筛选出第一季度销量和第二季度销量最大的3项，即可获得上半年销量排在前三的书籍
【答案】（1）=B3*SUM(C3:F3)
（2）A2:G100或A3:G100或A2:F100或A3:F100
（3）A；B
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．（2021高二下·丽水期末）小李使用Flash软件创作“致青春”多媒体作品。请回答下列问题：
（1）在制作动画之前，小李先进行了作品的设计，下列属于需求分析的是　 　（多选，填字母：A .确定作品面向对象为高中学生 / B .确定作品的发布方式 /C .编写场景的制作脚本 / D .设计作品的主要界面 / E .制作一张媒体元素分解表）
（2）“main”场景制作脚本如下表所示：”
场景名：main 序号类别：2 进入方式：由“load”场景单击“Erter”按钮进入
呈现方式： ①标题在舞台左上角出现，第1秒从完全透明到完全显示的效果，最后1秒从完全显示到完全透明的效果。 ②“女孩”从舞台的左侧驶向右侧。 ③“退出”按钮位于舞台右下方，单击该按钮，播放下一场景动画，并停止声音的播放 ④其他动画略。 吴观顺序说明： ①开始出现背景、女孩、标题和声音； ②最后停止动画播放，并出现“退出”按钮“女孩”依然在骑行运动，声音继续播放。
使用Flash软件编辑界面如图a所示：
图a
“女孩”图层关键帧中的对象是由“女孩”元件生成的实例，则该图层第1帧到第60帧的补间类型是　 　（单选，填字母：A .动画补间动画 / B .形状补间动画 / C . 逐帧动画）。“声音”图层的声音同步属性设置为　 　（选填：事件 / 数据流）。
（3）测试当前场景时，“标题”图层中的“文字”实例并没有实现淡出直至消失的效果，要实现该效果，则应进行的操作是　 　。
（4）测试影片时，弹出如图b所示的错误提示，下列说法正确的是　 　（多选，填字母：A .“按钮”图层第60帧上没有添加按钮实例 / B .添加在按钮实例中的动作命令有误
/C .stopAllSounds()；命令无需添加参数 /D .“按钮”图层最后一帧没有添加stop();/E .把按钮中的命令修改为on (release) {play();stopAllSounds();}也能达到脚本要求）。
图b
【答案】（1）AB
（2）A；事件
（3）在“标题”图层第60帧执行“插入关键帧”操作，并将“文字”实例的Alpha值改为0%或在“标题”图层的最后一帧执行“插入关键帧”操作，并将“文字”实例的Alpha值改为0%或在“标题”图层的第48帧执行“复制帧”操作，第60帧执行“粘贴帧”操作，并将“文字”实例的Alpha值改为0%
（4）BCE
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；程序的调试及运行；声音同步属性设置
15．（2021高二下·丽水期末）某地区开展新冠疫苗接种工作，疫苗共有ABC三类，数量有限。符合下列条件的人员，可安排接种：①待接种第一针的；②已接种某类疫苗30天以上可接种该类第二针的。待接种人员按优先级进行排序（优先级数值小的表示优先级高）。
编写程序，实现接种序号发放的功能：运行程序，列表框List1中显示待安排接种人员信息（其中A32表示已经接种A类疫苗32天，B2表示已经接种B类疫苗2天，以此类推；F表示待接种第一针），在文本框Text1中输入可使用的疫苗情况（A-100代表有A类疫苗100剂），单击“序号发放”按钮Command1，在列表框List2中显示持接种序号人员信息。程序运行界面如图所示：
请回答下列问题：
（1）要使命令按钮Command1上显示“序号发放”，是通过设置其　 　属性得到。
（2）请在划线处填入合适的代码。
Dim bh(1 to 2000）As Integer, yxj(1 to 2000) As
Integer
Dim xm(1 to 2000) As String,qk(1 to 2000) As String
Dim num As Integer
Private Sub Form_Load()
'读取编号，优先级，姓名，接种情况分别存在bh,yxj,xm,qk 数组并输出到List1中
'接种总人数存入num，代码略
End Sub
Private Sub Command1_click(　　)
Dim s As
String, p As String, x As String
Dim n As
Integer, i As Integer, j As Integer, k As Integer, t As Integer
s =
Text1.Text
p =
Mid(s,1,1)
n =
Val(Mid(s, 3, Len(s) - 2))
For i = 1
To n
　 　
For j
= i + 1 To num
If
Then k= j
ElseIf check(qk(k), p) = True Or check(qk(j), p) = True Then
If yxj(k) > yxj(j) Then k = j
End If
Next j
If k<> i Then
t = bh(k): bh(k) = bh(i): bh(i) = t
t = yxj(k): yxj(k) = yxj(i): yxj(i) = t
x = xm(k): xm(k) = xm(i): xm(i) = x
x = qk(k): qk(k) = qk(i): qk(i) = x
End If
Next i
List2.AddItem "接种序号" + " " + "姓名"
For i = 1 To n
List2.AddItem " " + Str(i) + " " + xm(i)
Next i
End Sub
'check 函数用于判断是否符合该类疫苗的接种条件
Function check(ch As String, key As String) As Boolean
If　 　Then
check = True
Else
If Mid(ch, 1, 1) = key And Val(Mid(ch, 2, Len(ch) - 1)) > 30 Then check = True
Else
check = False
End If
End If
End Function
（3）程序中加框处代码有错，请改正。
【答案】（1）Caption
（2）k=i；ch= " F " 或 Mid(ch,1,1)= " F "
（3）check(qk(k), p)=True And check(qk(j), p)=True
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．（2021高二下·丽水期末）将某字符串按“V”的形状进行变换，其变换方法描述如下：
1）将字符串中的字母转换为大写字母后按升序进行排序；
2）根据给定的行数，将字符串从上往下、从左到右进行“V”字形排列；
3）从左往右逐行读取字符串并输出；
例如：输入字符串为：“NoThingIsImpossible”，
经过排序得到字符串：“BEGHIIIILMNNOOPSSST”，行数输入为3时，排列如下：
经过变换后得到新字符串为：“BILOSEHIIMNOSSGINPT”。
编写VB程序，实现如下功能:在文本框Text1中输入行数，在文本框Text2中输入字符串（限定字母），单击“变换”按钮Command1，在标签Label3中输出变换结果。程序运行效果如图所示。
（1）若小明在文本框Text1中输入3，在文本框Text2中输入的的字符串为“NOTHING”，则在标签框Label3中输出的结果为　 　。
（2）实现该功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click(　　)
Dim n As
Integer, i As Integer, j As Integer Dim s As String, result As String
Dim a(1 To
26) As Integer, res(1 To 100) As String
Dim flag
As Integer '变量flag用于上下换方向
n =
Val(Text1.Text) s = conv(Text2.Text)
For i = 1
To Len(s)
c =
Mid(s, i, 1)
　 　
Next i
s =
""
For i = 1
To 26
For j
= 1 To a(i)
s
= s + Chr(i + 64)
Next j
Next i
j = 1:
flag = -1
For i = 1
To Len(s)
c =
Mid(s, i, 1)
res(j)
= res(j) + c
If　 　 Then flag = -flag
End If
　 　
Next i
For i = 1
To n
result
= result + res(i)
Next i
Label3.Caption
= result
End Sub
'小写字母转大写
Function conv(word As String) As String Dim i As
Integer, c As String, s As String
For i = 1
To Len(word)
c =
Mid(word, i, 1)
If c
>= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
s = s
+ c
Next i
conv = s
End Function
【答案】（1）GNHNOIT
（2）a(Asc(c)-64) = a(Asc(c)-64)+1 或a(Asc(c)-Asc(“A”)+1) = a(Asc(c)-Asc(“A”)+1)+1；j=1 Or j=n或 j Mod n < 2或 j Mod n < =1 或i Mod (n-1)=1或其他等价答案；j=j+flag
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省丽水市普通高中2020-2021学年高二下学期信息技术期末教学质量监控试卷
一、选择题（本大题共12小题，每小题2分，共24分。）
1．（2021高二下·丽水期末）下列有关信息和信息技术的说法，错误的是（　　）
A．信息在传递和共享的过程中不会产生损耗
B．信息经过加工、处理后，往往具有更高的价值
C．常用的信息表达方式有语言、文字、图像、书籍、报纸、网络等
D．现代信息技术包括微电子技术、光电子技术、现代通信技术、计算机网络等
2．（2021高二下·丽水期末）下列关于信息安全的说法，正确的是（　　）
A．计算机安装了杀毒软件，就不会被病毒感染
B．经常修改信息系统的密码，有利于提高信息的安全性
C．某支付软件使用人脸识别支付，可确保财产绝对安全
D．在信息传递时使用压缩技术主要是为了提高信息的安全性
3．（2021高二下·丽水期末）要创建一个名为“报名表”的 Access 数据表，存放下列表格数据：
序号 班级 姓名 性别 参赛项目1 参赛项目2 参赛项目3
1 201 张忠明 男 100 米 铅球 跳远
2 202 李敏 女 800 米 跳高 铁饼
… … … … … … …
下列关于“报名表”数据表的描述，正确的是（　　）
A．该数据表中必定有一个名为“班级”的字段
B．该数据表不能通过“导入Excel 电子表格”的操作来添加记录
C．“报名表”的字段顺序与图中数据的列顺序可以不一致
D．“报名表”中同一字段的字段值的数据类型不一定相同
4．（2021高二下·丽水期末）使用 UltraEdit 软件查看字符内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中内码所对应的 ASCII 码字符共有 7 个
B．内码十六进制“48”转换为十进制为 72
C．图中内码所对应的字符可能是“happy！”
D．内码“70”是字符“p”的十六进制内码，则字符“o”的十六进制内码为“69”
5．（2021高二下·丽水期末）用Photoshop软件制作“致青春”作品，部分界面如图所示。
下列说法正确的是（　　）
A．可以使用文字工具更改“青春有梦”图层文字的大小
B．可以使用油漆桶工具修改“勇敢前行”图层中“前”字的颜色
C．可以拷贝“青春有梦”图层的图层样式，粘贴到“背景”图层
D．移动“拳头”图层到“勇敢前行”图层上方，不影响图像的呈现效果
6．（2021高二下·丽水期末）某音频文件相关参数如图所示。
则该音频文件存储容量约为（　　）
A．0.5MB B．0.84MB C．1.68MB D．13.44MB
7．（2021高二下·丽水期末）下列 VB 表达式值最大的是（　　）
A．Sqr(Abs(-9.7)) B．Len(Mid("丽水 2021",3,2))
C．Int(Rnd()*3+1) D．123 Mod 100 \10
8．（2021高二下·丽水期末）某算法的部分流程图如图所示。执行这部分流程后，输出ｓ的值是（　　）
A．1101 B．0010 C．1111 D．1110
9．（2021高二下·丽水期末）有如下VB程序段：
s1 = "python": s2 = "visual" i = 1: j = 1: s = ""
Do While i <= Len(s1) And j <= Len(s2)
If Mid(s1, i, 1) >= Mid(s2, j, 1) Then s = s + Mid(s1, i, 1)
Else
j = j + 1
End If
i = i + 1
Loop
执行该程序后，ｊ的值是（　　）
A．2 B．3 C．5 D．7
10．（2021高二下·丽水期末）超级素数是指一个素数，每次去掉最后面的一个数字，依然为素数。如 37，去掉最后的7 后，3 仍为素数。统计 1000 以内的超级素数的个数的 VB 程序段如下：
For i = 2 To 1000
flag = True：s = i
Do While flag And s >1
For j = 2 To Int(Sqr(s))
If s Mod j = 0 Then
Exit For
End If
Next j
Loop
If flag And s<>1 Then
End If
Next i
Label1.caption=str(c)
上述程序段中方框处可选语句为：
①flag = False ②c = c + 1 ③s = s \ 10
则（1）（2）（3）处语句依次可为（　　）
A．①②③ B．②①③ C．③②① D．①③②
11．（2021高二下·丽水期末）某算法的VB程序段如下：
i=1: flag=True
Do While i<6 And flag=True
flag=False
For j =6 To i+1 step -1
If a(j) > a(j-1) Then
t = a(j): a(j) = a(j-1): a(j-1) = t
flag=True
End If
Next j
f(i)=1 'f 数组初值均为 0
i=i+1
Loop
For i=1 To 6
s=s+f(i)
Next i
数组元素a(1)到a(6)的值依次为“17,79,93,55,15,13”，执行该程序段后，s的值是（　　）
A．3 B．4 C．5 D．6
12．（2021高二下·丽水期末）某对分查找算法的VB程序段如下：
key=Val(Text1.Text)
i=1: j=8
Text2.Text=“ ”
Do While i<=j
m=Int(i+j)/2)
If key=a(m) Then Exit Do 'Exit Do 表示退出循环
If keyText2.Text=Str(a(m))+Text2.Text
Loop
数组元素a(1)到a(8)的数据依次为“12，25，36，47，68，79，87，99”，文本框Text1中输入的值是12，执行该程序段后，文本框Text2中显示的是（　　）
A．68 47 25 12 B．47 25 12 C．68 36 12 D．25 47
二、非选择题（本大题共4小题，4+8+7+7，共26分。）
13．（2021高二下·丽水期末）小李收集了某书店主要畅销书销售情况的数据，并使用Excel软件对数据进行处理，如图所示。
（1）区域G3:G100的数据是通过公式计算得到的，在G3单元格中输入公式　 　，再利用自动填充功能完成区域G4:G100的计算。
（2）对销售情况的数据以“定价（元）”为主要关键字按降序进行排序，则排序的数据区域是　 　；
（3）若在上图所示工作表中对数据进行进一步的操作，下列说法正确的是 （多选，填字母）。
A．若要制作一张关于《西游记》四个季度销量情况折线图，则图表的数据区域是A2:A3,C2:F3
B．在“书籍名称”列前插入一列，“年销售金额”列的数值不会发生变化
C．将对B3单元格的数值小数位数设置为0，则G3单元格的数值将变小
D．分别筛选出第一季度销量和第二季度销量最大的3项，即可获得上半年销量排在前三的书籍
14．（2021高二下·丽水期末）小李使用Flash软件创作“致青春”多媒体作品。请回答下列问题：
（1）在制作动画之前，小李先进行了作品的设计，下列属于需求分析的是　 　（多选，填字母：A .确定作品面向对象为高中学生 / B .确定作品的发布方式 /C .编写场景的制作脚本 / D .设计作品的主要界面 / E .制作一张媒体元素分解表）
（2）“main”场景制作脚本如下表所示：”
场景名：main 序号类别：2 进入方式：由“load”场景单击“Erter”按钮进入
呈现方式： ①标题在舞台左上角出现，第1秒从完全透明到完全显示的效果，最后1秒从完全显示到完全透明的效果。 ②“女孩”从舞台的左侧驶向右侧。 ③“退出”按钮位于舞台右下方，单击该按钮，播放下一场景动画，并停止声音的播放 ④其他动画略。 吴观顺序说明： ①开始出现背景、女孩、标题和声音； ②最后停止动画播放，并出现“退出”按钮“女孩”依然在骑行运动，声音继续播放。
使用Flash软件编辑界面如图a所示：
图a
“女孩”图层关键帧中的对象是由“女孩”元件生成的实例，则该图层第1帧到第60帧的补间类型是　 　（单选，填字母：A .动画补间动画 / B .形状补间动画 / C . 逐帧动画）。“声音”图层的声音同步属性设置为　 　（选填：事件 / 数据流）。
（3）测试当前场景时，“标题”图层中的“文字”实例并没有实现淡出直至消失的效果，要实现该效果，则应进行的操作是　 　。
（4）测试影片时，弹出如图b所示的错误提示，下列说法正确的是　 　（多选，填字母：A .“按钮”图层第60帧上没有添加按钮实例 / B .添加在按钮实例中的动作命令有误
/C .stopAllSounds()；命令无需添加参数 /D .“按钮”图层最后一帧没有添加stop();/E .把按钮中的命令修改为on (release) {play();stopAllSounds();}也能达到脚本要求）。
图b
15．（2021高二下·丽水期末）某地区开展新冠疫苗接种工作，疫苗共有ABC三类，数量有限。符合下列条件的人员，可安排接种：①待接种第一针的；②已接种某类疫苗30天以上可接种该类第二针的。待接种人员按优先级进行排序（优先级数值小的表示优先级高）。
编写程序，实现接种序号发放的功能：运行程序，列表框List1中显示待安排接种人员信息（其中A32表示已经接种A类疫苗32天，B2表示已经接种B类疫苗2天，以此类推；F表示待接种第一针），在文本框Text1中输入可使用的疫苗情况（A-100代表有A类疫苗100剂），单击“序号发放”按钮Command1，在列表框List2中显示持接种序号人员信息。程序运行界面如图所示：
请回答下列问题：
（1）要使命令按钮Command1上显示“序号发放”，是通过设置其　 　属性得到。
（2）请在划线处填入合适的代码。
Dim bh(1 to 2000）As Integer, yxj(1 to 2000) As
Integer
Dim xm(1 to 2000) As String,qk(1 to 2000) As String
Dim num As Integer
Private Sub Form_Load()
'读取编号，优先级，姓名，接种情况分别存在bh,yxj,xm,qk 数组并输出到List1中
'接种总人数存入num，代码略
End Sub
Private Sub Command1_click(　　)
Dim s As
String, p As String, x As String
Dim n As
Integer, i As Integer, j As Integer, k As Integer, t As Integer
s =
Text1.Text
p =
Mid(s,1,1)
n =
Val(Mid(s, 3, Len(s) - 2))
For i = 1
To n
　 　
For j
= i + 1 To num
If
Then k= j
ElseIf check(qk(k), p) = True Or check(qk(j), p) = True Then
If yxj(k) > yxj(j) Then k = j
End If
Next j
If k<> i Then
t = bh(k): bh(k) = bh(i): bh(i) = t
t = yxj(k): yxj(k) = yxj(i): yxj(i) = t
x = xm(k): xm(k) = xm(i): xm(i) = x
x = qk(k): qk(k) = qk(i): qk(i) = x
End If
Next i
List2.AddItem "接种序号" + " " + "姓名"
For i = 1 To n
List2.AddItem " " + Str(i) + " " + xm(i)
Next i
End Sub
'check 函数用于判断是否符合该类疫苗的接种条件
Function check(ch As String, key As String) As Boolean
If　 　Then
check = True
Else
If Mid(ch, 1, 1) = key And Val(Mid(ch, 2, Len(ch) - 1)) > 30 Then check = True
Else
check = False
End If
End If
End Function
（3）程序中加框处代码有错，请改正。
16．（2021高二下·丽水期末）将某字符串按“V”的形状进行变换，其变换方法描述如下：
1）将字符串中的字母转换为大写字母后按升序进行排序；
2）根据给定的行数，将字符串从上往下、从左到右进行“V”字形排列；
3）从左往右逐行读取字符串并输出；
例如：输入字符串为：“NoThingIsImpossible”，
经过排序得到字符串：“BEGHIIIILMNNOOPSSST”，行数输入为3时，排列如下：
经过变换后得到新字符串为：“BILOSEHIIMNOSSGINPT”。
编写VB程序，实现如下功能:在文本框Text1中输入行数，在文本框Text2中输入字符串（限定字母），单击“变换”按钮Command1，在标签Label3中输出变换结果。程序运行效果如图所示。
（1）若小明在文本框Text1中输入3，在文本框Text2中输入的的字符串为“NOTHING”，则在标签框Label3中输出的结果为　 　。
（2）实现该功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click(　　)
Dim n As
Integer, i As Integer, j As Integer Dim s As String, result As String
Dim a(1 To
26) As Integer, res(1 To 100) As String
Dim flag
As Integer '变量flag用于上下换方向
n =
Val(Text1.Text) s = conv(Text2.Text)
For i = 1
To Len(s)
c =
Mid(s, i, 1)
　 　
Next i
s =
""
For i = 1
To 26
For j
= 1 To a(i)
s
= s + Chr(i + 64)
Next j
Next i
j = 1:
flag = -1
For i = 1
To Len(s)
c =
Mid(s, i, 1)
res(j)
= res(j) + c
If　 　 Then flag = -flag
End If
　 　
Next i
For i = 1
To n
result
= result + res(i)
Next i
Label3.Caption
= result
End Sub
'小写字母转大写
Function conv(word As String) As String Dim i As
Integer, c As String, s As String
For i = 1
To Len(word)
c =
Mid(word, i, 1)
If c
>= "a" And c <= "z" Then c = Chr(Asc(c) - 32)
s = s
+ c
Next i
conv = s
End Function
答案解析部分
1．【答案】C
【知识点】信息及其特征；信息技术的概念与关键技术；信息表达方式与表达技术
2．【答案】B
【知识点】信息系统安全防护
3．【答案】C
【知识点】数据表、字段、记录的编辑；字段的数据类型
4．【答案】B
【知识点】进制及数制转换；字符编码
5．【答案】D
【知识点】图层及图层的基本操作
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】A
【知识点】运算符、基本运算与表达式
8．【答案】A
【知识点】流程图识读
9．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】B
【知识点】排序算法及程序实现
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）=B3*SUM(C3:F3)
（2）A2:G100或A3:G100或A2:F100或A3:F100
（3）A；B
【知识点】表格数据的处理与计算；表格数据的图表呈现
14．【答案】（1）AB
（2）A；事件
（3）在“标题”图层第60帧执行“插入关键帧”操作，并将“文字”实例的Alpha值改为0%或在“标题”图层的最后一帧执行“插入关键帧”操作，并将“文字”实例的Alpha值改为0%或在“标题”图层的第48帧执行“复制帧”操作，第60帧执行“粘贴帧”操作，并将“文字”实例的Alpha值改为0%
（4）BCE
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；程序的调试及运行；声音同步属性设置
15．【答案】（1）Caption
（2）k=i；ch= " F " 或 Mid(ch,1,1)= " F "
（3）check(qk(k), p)=True And check(qk(j), p)=True
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；过程与自定义函数；排序算法及程序实现
16．【答案】（1）GNHNOIT
（2）a(Asc(c)-64) = a(Asc(c)-64)+1 或a(Asc(c)-Asc(“A”)+1) = a(Asc(c)-Asc(“A”)+1)+1；j=1 Or j=n或 j Mod n < 2或 j Mod n < =1 或i Mod (n-1)=1或其他等价答案；j=j+flag
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑