资源简介

登录二一教育在线组卷平台 助您教考全无忧
浙江省“山水联盟”2021届高三上学期信息技术开学考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
1．（2020高三上·浙江开学考）下列有关信息和信息技术的说法中，正确的是（　　）
A．语言、声音、网络和文字是信息的常见表达方式
B．计算机中的信息可以复制，因此只有计算机中的信息才具有共享性
C．电子邮件有利于信息的交流，接收邮件的过程中用到了SMTP协议
D．人们可以利用各种信息技术，把信息从一种形态转换为另一种形态
2．（2020高三上·浙江开学考）使用Word编辑文档时的部分界面如图所示。下列说法正确的是（　　）
A．删除批注内容“蓄水养水，才有源头活水”，则该批注框将随之被删除
B．文档中存在三处修订
C．文档中图片的环绕方式为嵌入型
D．取消“修订”状态，文档中的已有修订标记会发生改变
3．（2020高三上·浙江开学考）某Access数据表编辑界面如下图所示。以下说法正确的是（　　）
A．该数据表的名称为“唱片收藏”，共有8条记录
B．如果把“CD类型”字段的数据类型改为文本型，里面的字段值会变为“是”或“否”
C．该数据表有8个字段，可以在“唱片价格”字段前面添加“销售数量”新字段
D．在数据表视图中，当前选中的记录为第4条记录，可以将其“ID”字段的值改为“4”
4．（2020高三上·浙江开学考）下列十六进制数中，转换为二进制数后含有偶数个“1”的是（　　）
A．10AC B．B342 C．5D09 D．F11A
5．（2020高三上·浙江开学考）使用Photoshop制作“中国医师节”作品，部分编辑界面如图所示。下列说法正确的是（　　）
A．可用油漆桶工具改变“医师节”图层中文字的颜色
B．可将“医师节”图层的图层样式拷贝到“8月19日”图层
C．将此文件导出成bmp文件后，可以看到投影、外发光和内发光三种图层样式效果
D．在当前状态下，可用自由变换改变“医师节”图层中文字大小
6．（2020高三上·浙江开学考）将一时长为10分钟、未经压缩、采样频率为44.1KHZ，双声道WAV音频文件另存为MP3格式其存储容量约为10MB，压缩比为10：1，该WAV音频文件的量化位数是（　　）
A．8位 B．16位 C．24位 D．4位
7．（2020高三上·浙江开学考）下列VB表达式中，可取到的最小值中，最小的为（　　）
A．Rnd-99 B．Fix（（-Rnd*45））*2-10
C．int（（Rnd-Rnd）*100） D．-Int（Rnd*45）*2-10
8．（2020高三上·浙江开学考）某算法的流程图如下图所示。
当输入x的值为109时，在标签Label1中输出的内容为（　　）
A．4 B．33 C．36 D．48
9．（2020高三上·浙江开学考）有如下VB程序段：
flag=False: s="ShanShui2020！"
For i=1 To Len（s）
ch=Mid（s，i，1）
If Not（ch>="0" And ch<="9"）And Not flag Then
t=ch+t
End If
flag=Not flag
Next i
Text1.Text=t
执行完以上程序段后，文本框text1中的内容为（　　）
A．!uSaS B．SaSu! C．!22uSaS D．ShanShui!
10．（2020高三上·浙江开学考）有如下VB程序段
Dim a（1 To 5）As Integer
Dim d（1 To 5）As Integer
a（1）=12：a（2）=21：a（3）=19：a（4）=11：a（5）=20
n=5：Max=0
For i=1 To n
d（i）=0
For j=1 To i-1
If a（j）Next j
If d（i）>Max Then Max=d（i）
Next i
执行完以上程序段后，Max的值为（　　）
A．1 B．2 C．3 D．4
11．（2020高三上·浙江开学考）某查找算法的部分VB程序代码如下：
i=1：j=8：k=0
key=15
Do While i<=j
k=k+1
m=Int（（i+j）/2）
If keyLoop
数组元素a（1）到a（8）的数据依次是“14，15，15，17，28，30，37，40”，该程序执行完毕后，下列各变量的值不正确的是（　　）
A．i=4 B．m=2 C．j=3 D．k=3
12．（2020高三上·浙江开学考）有如下VB程序段
Dim a（1 To 6）As Integer
For i=1 To 6
a（i）=Int（Rnd()*45）*2+10
Next i
For i=1 To 2
For j=2 To 6-i
If a（j）\10>a（j-1）\10 Then
temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
End If
Next j
Next i
执行上述程序段后，下列选项中，a（1）到a（6）各元素值可能的是（　　）
A．84，98，93，84，62，30 B．70，60，10，28，18，14
C．34，44，36，14，16，94 D．74，32，66，46，38，28
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高三上·浙江开学考）小林收集2020年度国内影院电影票房排行榜数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）如图a所示，区域F2：F14是通过rank()函数计算得到的各电影票房的排名（注：rank（number，ref）函数表示返回一个数值在一组数值中的排位，例如：=rank（C3，C3：C10）求的是C3单元格中的数值在C3：C10这一组数值中的排名）。先在F2单元格输入公式，再利用自动填充计算出F3：F14区域内所有的数据，则F2中的公式为　 　。
（2）如果要对各电影的数据以“票房（万元）”为关键字进行降序排序，则应选择数据区域是　 　。
（3）根据图a中数据制作的“2020年电影票房饼图”图表如图b所示，创建该图表的数据区域为　 　。
图b
（4）对图a中的票房占比（%）进行筛选，筛选条件如图c所示，则最终满足条件的数据有几条　 　。
图c
14．（2020高三上·浙江开学考）小明要创作一个主题是“绿水青山就是金山银山”的多媒体作品。请回答下列问题：
（1）在制作作品前，进行了相应的分析和规划。下列属于创作需求分析的是　 　（多选，填字母：A .该作品需要使用的相关软件/B .该作品面向中学生演示播放/C .该作品的主题思想为“绿水青山就是金山银山”/D .该作品将在网络上进行发布/E.制作作品的媒体元素分解表）。
（2）使用Flash软件制作该多媒体作品，如图所示。图中“小船”图层第1帧到第20帧的补间动画实现了“小船”实例从左到右的动画效果，该动画的补间类型是　 　。
（3）测试场景时，“小船”图层内容在播放完第40帧后消失。为了使该图层第40帧内容延续显示至本场景动画结束，解决方法是：　 　；
（4）测试影片时，本场景播放结束后，声音还在继续播放，可知“标题”图层第1帧中声音的同步类型为　 　。（选填：事件/数据流）
（5）测试影片时，单击“详情”按钮，实现在浏览器中显示位于同一文件夹下“两山论.txt”文件的内容，则“详情”按钮的动作脚本为　 　。
15．（2020高三上·浙江开学考）暑假小明的弟弟问了他一道小学一年的数学题，题目是：“小红去超市买东西，里面有：巧克力一盒28元、火腿肠一包24元、皮球一个16元、毛巾一条4元、N95口罩一包15元、笔记本一本8元、铅笔盒一个7元、水晶泥一盒12元、水彩笔一盒24元、牛奶一瓶5元等很多商品。小红带的钱刚好购买其中的两样东西。请问她可以买哪两样东西，有几种组合？”为解决这个问题，小明专门编写了一个VB程序。在文本框中text1输入商品和价格，在文本框text2中输入带的钱，单击“挑选”按钮，在列表框list1中输出查询结果。程序运行界面如下图：
请回答下面问题：
（1）下列对象中，有Caption属性的是　 　（单选，填字母：mand1/B .Text1/C .Lis1）。
（2）实现挑选两样商品功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n，i，j，k，x，L，R，c As Integer
Dim goods（1 To 20）As String 'goods（i）存储商品的名称
Dim price（1To 20）As Integer 'price（i）存储商品的价格
Dim s，ch As String
s=Text1.Text：x=Val（Text2. Text）
j=1：k=0
For i=1 To Len（s）
ch=Mid（s，i，1）
If
ch="，" Then
k=k+1
If k Mod
2=1 Then
　 　
Else
price（k\2）=Val（Mid（s，j，i-j））
End If
j=i+1
End If
Next i
n=k\2
For i=1 To n-1
For i=1 To
n-i
If price（j）>price（j+1）Then
k=price（j）：price（j）=price（j+1）：price（j+1）=k
End If
Next j
Next i
For i=2 To n
　 　
L=i：R=n
Do While L<=R
m=（L+R）\2
If price（m）+price（k）=x Then
c=c+1
List1. Addltem goods（k）& Str（price（k））&"元 和" & goods（m）& Str（price（m））& "元"
j=m
Do While price（j）=price（j-1）
j=j-1
c=c+1
Listl. Addltem goods（k）& Str（price（k））& "元 和" & goods（j）& Str（price（j））& "元"
Loop
Do While　 　
m=m+1
c=c+1
List1. Addltem goods（k）& Str（price（k））& "元 和" & goods（m）& Str（price（m））& "元"
Loop
Exit Do ‘Exit Do 表示退出Do循环
Elself price（m）+price（k）>x Then
R=m-1
Else
L=m+1
End If
Loop
Next i
List1. Addltem"共有：" & Str（c）& "种组合"
End Sub
（3）程序中加框处代码有错，请改正。
16．（2020高三上·浙江开学考）给定一个字符串（由字母、空格、句末点号组成，单词中不出现其它符号），你需要反转字符串中每个单词的字符顺序且输出均为大写字母，同时仍保留单词的初始顺序、空格和句末点号。小李同学编写的“字符反转”VB程序如下，文本框Text1中输入的是反转前字符串，单击“反转”按钮后，在文本Text2中输出字符串反转结果，程序运行界面如图所示。
（1）请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a（1 To 20）As String
Dim n，m，i，j As Integer
Dims，s1，s2 As String
s1=Text1. Text：n=Len（s1）
m=0：s=""
For i=1 To n
If Mid（s1，i，1）="" Or Mid（s1，i，1）="." Then
m=m+1
a（m）=s
s=""
Else
　 　
End If
Next i
For j=1 To m
n=Len（a（j））
For k=1 To n
　 　
If t﹥="a" And t<="z" Then
　 　
s2=s2+t
Else
s2=s2+t
End If
Next k
Text2. Text=Text2. Text+s2
s2=" "
Next j
Text2. Text=Text2. Text & "."
End Sub
（2）观察程序运行界面和阅读下面程序可知，原字符串输入“ShanShui LianMeng”单击“反转”按钮的则反转结果输出　 　。
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息表达方式与表达技术；电子邮件，电子公告板等信息交流方式
2．【答案】B
【知识点】文本的基本编辑
3．【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
4．【答案】D
【知识点】进制及数制转换
5．【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．【答案】B
【知识点】声音、图像、视频编码
7．【答案】C
【知识点】运算符、基本运算与表达式
8．【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
9．【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】B
【知识点】常量、变量及变量的赋值；查找算法及程序实现
12．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
13．【答案】（1）=RANK（D2，$D$2：$D$14）或=RANK（D2，D$2：D$14）
（2）A1：G14或A2：G14或A1：E14或其它等价答案
（3）C3：D4，C8：D9或C1：D1，C3：D4，C8：D9
（4）1
【知识点】表格数据的基本操作；表格数据的处理与计算
14．【答案】（1）ACD
（2）动画补间动画
（3）在“小船”图层的50帧执行插入帧或插入关键帧命令 或在“小船”图层的最后一帧执行插入帧或插入关键帧命令
（4）事件
（5）On（press）{getur1（“两山论.txt”）；}或On（release）{getur1（“两山论.txt”）；}
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）A
（2）goods（k\2+1）=Mid（s，j，i-j）或goods（（k+1）/2）=Mid（s，j，i-j） 或goods（k+1）\2）=Mid（s，j，i-j）或其它等价答案；k=i-1；price（m）=price（m+1）
（3）ch=goods（j）：goods（j）=goods（j+1）：goods（j+1）=ch 或其它等价答案
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；运算符、基本运算与表达式；常量、变量及变量的赋值；查找算法及程序实现
16．【答案】（1）s=s+Mid（s1，i，1）；t=Mid（a（j），n-k+1，1）；t=Chr（Asc（t）-Asc（"a"）+Asc（"A"））或t=Chr（Asc（t）-32）或其它等价答案
（2）IUHSNAHS.
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1登录二一教育在线组卷平台 助您教考全无忧
浙江省“山水联盟”2021届高三上学期信息技术开学考试试卷
一、选择题（本大题共12小题，每小题2分，共24分。每小题列出的四个备选项中只有一个是符合题目要求的，不选、多选、错选均不得分）
1．（2020高三上·浙江开学考）下列有关信息和信息技术的说法中，正确的是（　　）
A．语言、声音、网络和文字是信息的常见表达方式
B．计算机中的信息可以复制，因此只有计算机中的信息才具有共享性
C．电子邮件有利于信息的交流，接收邮件的过程中用到了SMTP协议
D．人们可以利用各种信息技术，把信息从一种形态转换为另一种形态
【答案】D
【知识点】信息及其特征；信息表达方式与表达技术；电子邮件，电子公告板等信息交流方式
2．（2020高三上·浙江开学考）使用Word编辑文档时的部分界面如图所示。下列说法正确的是（　　）
A．删除批注内容“蓄水养水，才有源头活水”，则该批注框将随之被删除
B．文档中存在三处修订
C．文档中图片的环绕方式为嵌入型
D．取消“修订”状态，文档中的已有修订标记会发生改变
【答案】B
【知识点】文本的基本编辑
3．（2020高三上·浙江开学考）某Access数据表编辑界面如下图所示。以下说法正确的是（　　）
A．该数据表的名称为“唱片收藏”，共有8条记录
B．如果把“CD类型”字段的数据类型改为文本型，里面的字段值会变为“是”或“否”
C．该数据表有8个字段，可以在“唱片价格”字段前面添加“销售数量”新字段
D．在数据表视图中，当前选中的记录为第4条记录，可以将其“ID”字段的值改为“4”
【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
4．（2020高三上·浙江开学考）下列十六进制数中，转换为二进制数后含有偶数个“1”的是（　　）
A．10AC B．B342 C．5D09 D．F11A
【答案】D
【知识点】进制及数制转换
5．（2020高三上·浙江开学考）使用Photoshop制作“中国医师节”作品，部分编辑界面如图所示。下列说法正确的是（　　）
A．可用油漆桶工具改变“医师节”图层中文字的颜色
B．可将“医师节”图层的图层样式拷贝到“8月19日”图层
C．将此文件导出成bmp文件后，可以看到投影、外发光和内发光三种图层样式效果
D．在当前状态下，可用自由变换改变“医师节”图层中文字大小
【答案】A
【知识点】图片加工常用工具的使用；图层及图层的基本操作
6．（2020高三上·浙江开学考）将一时长为10分钟、未经压缩、采样频率为44.1KHZ，双声道WAV音频文件另存为MP3格式其存储容量约为10MB，压缩比为10：1，该WAV音频文件的量化位数是（　　）
A．8位 B．16位 C．24位 D．4位
【答案】B
【知识点】声音、图像、视频编码
7．（2020高三上·浙江开学考）下列VB表达式中，可取到的最小值中，最小的为（　　）
A．Rnd-99 B．Fix（（-Rnd*45））*2-10
C．int（（Rnd-Rnd）*100） D．-Int（Rnd*45）*2-10
【答案】C
【知识点】运算符、基本运算与表达式
8．（2020高三上·浙江开学考）某算法的流程图如下图所示。
当输入x的值为109时，在标签Label1中输出的内容为（　　）
A．4 B．33 C．36 D．48
【答案】D
【知识点】常量、变量及变量的赋值；流程图识读
9．（2020高三上·浙江开学考）有如下VB程序段：
flag=False: s="ShanShui2020！"
For i=1 To Len（s）
ch=Mid（s，i，1）
If Not（ch>="0" And ch<="9"）And Not flag Then
t=ch+t
End If
flag=Not flag
Next i
Text1.Text=t
执行完以上程序段后，文本框text1中的内容为（　　）
A．!uSaS B．SaSu! C．!22uSaS D．ShanShui!
【答案】A
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
10．（2020高三上·浙江开学考）有如下VB程序段
Dim a（1 To 5）As Integer
Dim d（1 To 5）As Integer
a（1）=12：a（2）=21：a（3）=19：a（4）=11：a（5）=20
n=5：Max=0
For i=1 To n
d（i）=0
For j=1 To i-1
If a（j）Next j
If d（i）>Max Then Max=d（i）
Next i
执行完以上程序段后，Max的值为（　　）
A．1 B．2 C．3 D．4
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2020高三上·浙江开学考）某查找算法的部分VB程序代码如下：
i=1：j=8：k=0
key=15
Do While i<=j
k=k+1
m=Int（（i+j）/2）
If keyLoop
数组元素a（1）到a（8）的数据依次是“14，15，15，17，28，30，37，40”，该程序执行完毕后，下列各变量的值不正确的是（　　）
A．i=4 B．m=2 C．j=3 D．k=3
【答案】B
【知识点】常量、变量及变量的赋值；查找算法及程序实现
12．（2020高三上·浙江开学考）有如下VB程序段
Dim a（1 To 6）As Integer
For i=1 To 6
a（i）=Int（Rnd()*45）*2+10
Next i
For i=1 To 2
For j=2 To 6-i
If a（j）\10>a（j-1）\10 Then
temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
End If
Next j
Next i
执行上述程序段后，下列选项中，a（1）到a（6）各元素值可能的是（　　）
A．84，98，93，84，62，30 B．70，60，10，28，18，14
C．34，44，36，14，16，94 D．74，32，66，46，38，28
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
二、非选择题（本大题共4小题，4+8+7+7，共26分）
13．（2020高三上·浙江开学考）小林收集2020年度国内影院电影票房排行榜数据，并使用Excel软件进行数据处理，如图a所示。
图a
请回答下列问题：
（1）如图a所示，区域F2：F14是通过rank()函数计算得到的各电影票房的排名（注：rank（number，ref）函数表示返回一个数值在一组数值中的排位，例如：=rank（C3，C3：C10）求的是C3单元格中的数值在C3：C10这一组数值中的排名）。先在F2单元格输入公式，再利用自动填充计算出F3：F14区域内所有的数据，则F2中的公式为　 　。
（2）如果要对各电影的数据以“票房（万元）”为关键字进行降序排序，则应选择数据区域是　 　。
（3）根据图a中数据制作的“2020年电影票房饼图”图表如图b所示，创建该图表的数据区域为　 　。
图b
（4）对图a中的票房占比（%）进行筛选，筛选条件如图c所示，则最终满足条件的数据有几条　 　。
图c
【答案】（1）=RANK（D2，$D$2：$D$14）或=RANK（D2，D$2：D$14）
（2）A1：G14或A2：G14或A1：E14或其它等价答案
（3）C3：D4，C8：D9或C1：D1，C3：D4，C8：D9
（4）1
【知识点】表格数据的基本操作；表格数据的处理与计算
14．（2020高三上·浙江开学考）小明要创作一个主题是“绿水青山就是金山银山”的多媒体作品。请回答下列问题：
（1）在制作作品前，进行了相应的分析和规划。下列属于创作需求分析的是　 　（多选，填字母：A .该作品需要使用的相关软件/B .该作品面向中学生演示播放/C .该作品的主题思想为“绿水青山就是金山银山”/D .该作品将在网络上进行发布/E.制作作品的媒体元素分解表）。
（2）使用Flash软件制作该多媒体作品，如图所示。图中“小船”图层第1帧到第20帧的补间动画实现了“小船”实例从左到右的动画效果，该动画的补间类型是　 　。
（3）测试场景时，“小船”图层内容在播放完第40帧后消失。为了使该图层第40帧内容延续显示至本场景动画结束，解决方法是：　 　；
（4）测试影片时，本场景播放结束后，声音还在继续播放，可知“标题”图层第1帧中声音的同步类型为　 　。（选填：事件/数据流）
（5）测试影片时，单击“详情”按钮，实现在浏览器中显示位于同一文件夹下“两山论.txt”文件的内容，则“详情”按钮的动作脚本为　 　。
【答案】（1）ACD
（2）动画补间动画
（3）在“小船”图层的50帧执行插入帧或插入关键帧命令 或在“小船”图层的最后一帧执行插入帧或插入关键帧命令
（4）事件
（5）On（press）{getur1（“两山论.txt”）；}或On（release）{getur1（“两山论.txt”）；}
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2020高三上·浙江开学考）暑假小明的弟弟问了他一道小学一年的数学题，题目是：“小红去超市买东西，里面有：巧克力一盒28元、火腿肠一包24元、皮球一个16元、毛巾一条4元、N95口罩一包15元、笔记本一本8元、铅笔盒一个7元、水晶泥一盒12元、水彩笔一盒24元、牛奶一瓶5元等很多商品。小红带的钱刚好购买其中的两样东西。请问她可以买哪两样东西，有几种组合？”为解决这个问题，小明专门编写了一个VB程序。在文本框中text1输入商品和价格，在文本框text2中输入带的钱，单击“挑选”按钮，在列表框list1中输出查询结果。程序运行界面如下图：
请回答下面问题：
（1）下列对象中，有Caption属性的是　 　（单选，填字母：mand1/B .Text1/C .Lis1）。
（2）实现挑选两样商品功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n，i，j，k，x，L，R，c As Integer
Dim goods（1 To 20）As String 'goods（i）存储商品的名称
Dim price（1To 20）As Integer 'price（i）存储商品的价格
Dim s，ch As String
s=Text1.Text：x=Val（Text2. Text）
j=1：k=0
For i=1 To Len（s）
ch=Mid（s，i，1）
If
ch="，" Then
k=k+1
If k Mod
2=1 Then
　 　
Else
price（k\2）=Val（Mid（s，j，i-j））
End If
j=i+1
End If
Next i
n=k\2
For i=1 To n-1
For i=1 To
n-i
If price（j）>price（j+1）Then
k=price（j）：price（j）=price（j+1）：price（j+1）=k
End If
Next j
Next i
For i=2 To n
　 　
L=i：R=n
Do While L<=R
m=（L+R）\2
If price（m）+price（k）=x Then
c=c+1
List1. Addltem goods（k）& Str（price（k））&"元 和" & goods（m）& Str（price（m））& "元"
j=m
Do While price（j）=price（j-1）
j=j-1
c=c+1
Listl. Addltem goods（k）& Str（price（k））& "元 和" & goods（j）& Str（price（j））& "元"
Loop
Do While　 　
m=m+1
c=c+1
List1. Addltem goods（k）& Str（price（k））& "元 和" & goods（m）& Str（price（m））& "元"
Loop
Exit Do ‘Exit Do 表示退出Do循环
Elself price（m）+price（k）>x Then
R=m-1
Else
L=m+1
End If
Loop
Next i
List1. Addltem"共有：" & Str（c）& "种组合"
End Sub
（3）程序中加框处代码有错，请改正。
【答案】（1）A
（2）goods（k\2+1）=Mid（s，j，i-j）或goods（（k+1）/2）=Mid（s，j，i-j） 或goods（k+1）\2）=Mid（s，j，i-j）或其它等价答案；k=i-1；price（m）=price（m+1）
（3）ch=goods（j）：goods（j）=goods（j+1）：goods（j+1）=ch 或其它等价答案
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；运算符、基本运算与表达式；常量、变量及变量的赋值；查找算法及程序实现
16．（2020高三上·浙江开学考）给定一个字符串（由字母、空格、句末点号组成，单词中不出现其它符号），你需要反转字符串中每个单词的字符顺序且输出均为大写字母，同时仍保留单词的初始顺序、空格和句末点号。小李同学编写的“字符反转”VB程序如下，文本框Text1中输入的是反转前字符串，单击“反转”按钮后，在文本Text2中输出字符串反转结果，程序运行界面如图所示。
（1）请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a（1 To 20）As String
Dim n，m，i，j As Integer
Dims，s1，s2 As String
s1=Text1. Text：n=Len（s1）
m=0：s=""
For i=1 To n
If Mid（s1，i，1）="" Or Mid（s1，i，1）="." Then
m=m+1
a（m）=s
s=""
Else
　 　
End If
Next i
For j=1 To m
n=Len（a（j））
For k=1 To n
　 　
If t﹥="a" And t<="z" Then
　 　
s2=s2+t
Else
s2=s2+t
End If
Next k
Text2. Text=Text2. Text+s2
s2=" "
Next j
Text2. Text=Text2. Text & "."
End Sub
（2）观察程序运行界面和阅读下面程序可知，原字符串输入“ShanShui LianMeng”单击“反转”按钮的则反转结果输出　 　。
【答案】（1）s=s+Mid（s1，i，1）；t=Mid（a（j），n-k+1，1）；t=Chr（Asc（t）-Asc（"a"）+Asc（"A"））或t=Chr（Asc（t）-32）或其它等价答案
（2）IUHSNAHS.
【知识点】运算符、基本运算与表达式；分支结构语句及程序实现；循环结构语句及程序实现
二一教育在线组卷平台（zujuan.21cnjy.com）自动生成 1 / 1

展开更多......

收起↑