资源简介

浙江省名校协作体2019届高三上学期信息技术9月联考试卷
一、选择题
1．（2019高三上·浙江月考）下列有关信息的说法，正确的是（　　）
A．信息经过加工和处理后的使用价值始终保持不变
B．信息可以脱离载体而存在
C．信息在使用过程中会产生损耗
D．手机屏幕锁功能，可以提升信息的安全性
【答案】D
【知识点】信息及其特征；信息系统安全防护
【解析】【解答】选项A：信息可以进行加工和处理，在对信息进行重新分类和存储传输后信息会产生一个附加值，这是信息的可处理性。本项错。选项B：信息不能离开载体而独立存在，这是信息的依附性。本项错。选项C：信息可以被多人共享而不会产生损耗，这是信息的共享性。选项D：开户手机锁屏功能，输入密码后手机才能被使用，可以提升信息的安全性，本项对。故本题答案选D。
【分析】本题考查的是信息的特征和信息的安全使用。信息有五个基本特征和五个一般特征。基本特征：普遍性、依附性、传递性、价值性、时效性；一般特征：共享性、真伪性、不完全性、价值相对性、可处理性。在互联网广泛使用的今天特别要注意信息的安全性，不是因为自己的不慎造成损失。
2．（2019高三上·浙江月考）下列有关浏览器与网页、网络协议的说法，正确的是（　　）
A．选择“网页，仅HTML”方式保存网页，网页中的图片同时被保存
B．保存网页其实就是保存网页的URL
C．网页内容是通过HTTP语言描述的
D．SMTP协议是简单邮件传输协议的英文简称
【答案】D
【知识点】网络协议；网页、网站的概念与联系
【解析】【解答】选项A：如果保存网页时 选择“网页，仅HTML”方式保存网页则只保存文本的内容、格式和链接而不保存图片、图像等信息，本项错。选项B： 保存网页其实就是保存网页的内容，收藏网址才是保存网页的URL（统一资源定位器）。本项错。选项C： 网页内容是通过超文本标记语言（HTML）来描述的，本项错。选项D： SMTP协议是简单邮件传输协议的英文简称 ，是用于发送电子邮件的，本项对。故答案选D。
【分析】本题考查的是常用的网络协议的名称及作用以及保存网页的类型、编辑网页使用的语言。保存网页时的选项较多，可以只保存网页上的文字、图片、图像等，也可以保存网页上的文字格式和链接，还可以同时保存网页上的文字、图片、图像等。HTTP叫超文本传输协议是用于发送网页文件的协议。HTML语言叫超文本标记语言是用于编辑网页的文件。SMTP叫 简单邮件传输协议 ，是用于发送电子邮件的，POP3叫邮局协议是用于接受邮件的协议。
3．（2019高三上·浙江月考）使用word编辑某文档，部分界面如图所示，以下说法正确的是（　　）
A．若将文档中图片的环绕方式改为“紧密型”后效果不变
B．删除批注对话框中“摘自《遗传密码》”后该批注框消失
C．文中的“美梦承真”可通过自动更正功能改为“美梦成真”
D．接受所有修订后，第四行将变成“毫发无损。有魔术表演的夜晚总是那么欢乐。”
【答案】A
【知识点】文本的基本编辑
【解析】【解答】选项A：本文的图片环绕方式为“四周型”由于图片形状为矩形所以改为 “紧密型”后效果不变 ，本项对。选项B： 删除批注对话框中“摘自《遗传密码》“只是删除了批注的内容，并没有删除该批注，批注框是不会消失的，本项错。选项C：划绿色波线只是提示该处有语法错误，不会自动更正该词语，本项错。选项D： 接受所有修订后，第四行将变成“毫发无损。有魔术表演的夜晚总是那么开怀。” 拒绝修订后第四行内容才变成 “毫发无损。有魔术表演的夜晚总是那么欢乐。” ，本项错。故答案选A。
【分析】本题考查的是批注和修订功能。批注是对文章的某些文字段落做出备注、意见及建议等。而批注是保留修改痕迹的基础上进行的修改，修订是在保留修改痕迹的一种编辑方式，通过修订可以恢复原来的文字或确认修改。
4．（2019高三上·浙江月考）使用Access软件创建一张数据表，其设计视图界面如图所示，下列说法正确的是（　　）
A．当前状态下，可以对数据表“图书信息”重命名
B．该视图中，右表删除一行，则其数据表的记录总数会相应减少一条
C．在“图书信息”数据表中，可以包含图书名称相同的两条记录
D．存储“借出”字段值需要1个字节
【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
【解析】【解答】选项A：当前状态为设计视图状态，正在对”图书信息“进行字段设置不能对表进行重命名，本项错。选项B：在设计视图状态下，删除一行就是删除一个字段，在数据表视图中对应一列而不是一条记录（一行），本项错。选项C：由图可知充号为主键不能重复其他字段的值包括图书名称可以有重复字段值，故本项对。选项D：”借出“为是否类型的字段，占用一位二进制数即1b，本项错。故答案选C。
【分析】本题考查的是Access数据库的视图方式和字段类型。数据库的视图方式有两种：设计视图和数据表视图。设计视图是用于设置字段名和字段类型的视图，数据表视图是用于编辑记录的视图。Access允许九种数据类型：文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。
5．（2019高三上·浙江月考）使用UltraEdit软件观察字符内码，结果如图所示。
以下说法正确的是（　　）
A．图中内码表示的ASCII码字符共有5个
B．字符“F”内码转十进制过程应为4×162+6×161
C．字母“j”内码用十六进制表示是70
D．字母“B”内码用二进制表示是1000010
【答案】D
【知识点】信息的编码
【解析】【解答】由图可知：F对就46，l对应6C，a对应61，s对应73，h对应68，空格对应20，作对应D7 F7，品对应C6，B7。选项A：由图可知ASCII码字符共有6个（含空格），本项错。选项B：”F“对应的内码为46转为十进制为：4*16+6=(70)10,本项错。选项C： 字母”h“的内码为68，字母“j”内码用十六进制表示是 7A而不是70。本项错。选项D：字母”F“的内码为46，故字母”B“的内码为42，转为二进制为0100 0010，本项对。故答案选D。
【分析】本题考查的是字符的内码表示及十进制、十六进制和二进制数之间的相互转换。一个字母或字符在内存中占用一个字节用2个十六进制数来表示，一个汉字占用2个字节占用4位十六进制来表示。十进制数转二进制数、十六进制数采用除2（16）取余法，二进制数、十六进制数转二进制数采用公式法，二进制数和十六进制数之间是一位对四位的关系。
6．（2019高二上·温州期末）某算法流程图如图所示：
执行该流程图后，输出i，k的值分别是（　　）
A．102，9 B．102，8 C．100，9 D．100，8
【答案】A
【知识点】算法的常用表示方法；算法的控制结构
【解析】【解答】分析本题流程图运行过程：
初始值：i=0，k=0；
i=0，i<100，第一次循环，i mod 4=0成立，执行k=k+1=1，i=i+6=6；
i=6，i<100，第二次循环，i mod 4=0不成立，执行i=i+6=12；
i=12，i<100，第三次循环，i mod 4=0成立，执行k=k+1=2，i=i+6=18；
i=18，i<100，第四次循环，i mod 4=0不成立，执行i=i+6=24；
i=24，i<100，第五次循环，i mod 4=0成立，执行k=k+1=3，i=i+6=30；
依次类推，每循环一次，变量i的值加6，直至i>=100，循环结束，此时i=102。在[0,100)之间，若变量i既是6的倍数，又是4的倍数，即i是12的倍数时，变量k加1，其中0,12,24,36,48,60,72,84,96共9个数满足条件，所以k=9。故答案选A。
【分析】本题考查学生分析和理解流程图的能力，要求学生能够清楚地分析出流程图中各变量的变化情况。
7．（2019高三上·浙江月考）使用GoldWave软件编辑某段音乐，界面如图所示。
下列说法正确的是（　　）
A．当前状态下执行“静音”操作，和插入25秒静音效果相同
B．该音频是Wav格式，是无损压缩的音频文件
C．复制一段10秒声音，在当前状态下第25秒开始执行“混音”后，音乐文件总时长不变
D．当前状态下执行“删除”操作，左声道从25秒到50秒变为静音
【答案】C
【知识点】声音素材的基本处理
【解析】【解答】选项A：如果执行”静音“操作则将当前选中部分设为了静音，而插入静音操作则当前文件的时长变长当前选中部分并没有被删除，故本项错。选项B：由图可知当前声音文件为WAV格式文件，WAV格式文件是没有压缩的声音文件格式，本项错。选项C：执行”混音“后只是改变的波形没有改变声音文件的时长，本项对。选项D： 当前状态下执行“删除”操作，左声道从25秒到50秒被删除而不是变为静音。本项错。故答案选C。
【分析】本题考查的是GoldWave的常用操作。在对声音文件的某段音频进行操作时要进行选标操作，执行”静音“操作是将选中部分设置为静音不会改变声音文件的时长，如果执行”删除“操作则将选中部分删除改变了声音文件的时长。
8．（2019高三上·浙江月考）用Photoshop软件制作“2018世界杯”作品，界面如图所示：
以下说法正确的是（　　）
A．用“裁剪”工具对“背景”图层操作之后，图像大小一定不会发生改变
B．隐藏“徽标”图层后，按原参数保存成bmp图像，存储容量不变
C．将左下角的100%改成66.67%之后，按原参数保存，存储容量变小
D．该作品以jpg格式存储后容量为1.25MB
【答案】B
【知识点】图层及图层的基本操作；声音、图像、视频编码
【解析】【解答】选项A：”裁剪“操作是在图像中选出一部分其他部分被删除，对一个图层进行“裁剪”操作，图像的大小不一定会改变，本项错误；选项B： 隐藏“徽标”图层后，按原参数保存成bmp图像， 则”徽标“图层不被输出，影响存储容量的因素都没有改变，存储容量不变，本项正确；选项C： 将左下角的100%改成66.67%之后，按原参数保存， 则该图像只是显示比例变小存储容量是不受影响的，本项错；选项D：在状态栏中的文档：1.25M/4.2M的含义为在合并所有图层后输出（即以bmp格式输出）后存储容量为1.25MB，若以psd格式（含图层信息）存储后存储容量为4.4MB，本项错。故答案选B。
【分析】本题考查的Photoshop常用的图层操作及状态栏的含义。对图层可以进行复制、删除、裁剪等操作，还可以设置图层的一些属性。在Photoshop的下方是状态栏，可以显示当前文档的一些属性如显示比例和存储容量等信息。
9．（2019高三上·浙江月考）使用Flash软件制作补间动画，部分属性界面如图所示。以下说法正确的是（　　）
A．该补间动画可能是形状补间动画
B．当前状态下，该实例在舞台中可见
C．该界面是关键帧的属性面板
D．该实例由库中“舞动”元件生成
【答案】D
【知识点】元件的类型与应用；动画的实现
【解析】【解答】选项A：由于只有当前状态下的宽高和x、y轴的数据没有动画终止帧的数据不能判断该动画为何种动画，本项错。选项B：当前状态下，该实例的Alpha的值为0%，说明透明度为0是不可见的，本项错。选项C：该界面是实例的属性面板，本项错。选项D:由其属性中的”实例:舞动“知该实例是由”舞动“元件生成的，本项对。故答案选D。
【分析】本题考查的是实例属性面板上的参数及其含义。根据实例面板上的参数我们可以知道该实例的名称、生成该实例的元件名及元件类型、所在舞台上的位置、大小及透明度等信息。
10．（2019高三上·浙江月考）（加试题）一段未经压缩的PAL制式的AVI格式无声视频，时长为10秒，每帧画面为512×400像素，存储容量约为97.7MB，则该视频中图像的每个像素所占的位数是（　　）
A．2位 B．8位 C．16位 D．24位
【答案】C
【知识点】声音、图像、视频编码
【解析】【解答】97.7MB=117630.8KB=120453939.2B=963631513.6b，该视频中每个像素占用的位数为：963631513.6/25/10/512/400=16.82，最接近于16位，故答案选C。
【分析】本题考查的是视频格式的存储容量的计算。PAL格式下每 秒播放25帧。其存储视频文件存储容量=（水平像素×垂直像素×每个像素所需位数／8）*帧频*时长（字节）。
11．（2019高三上·浙江月考）（加试题）有如下VB程序段：
A=1：b=1：n=12
f(1)=a：f(2)=b
For i=3 to n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
执行该段程序后，数组元素f(12)的值为（　　）
A．0 B．1 C．2 D．3
【答案】A
【知识点】常见数据类型、数组；常量、变量及变量的赋值
【解析】【解答】本题程序分析如下：
A=1：b=1：n=12 ‘给变量a赋值为1，变量b赋值为1，变量n赋值为12
f(1)=a：f(2)=b ‘将变量a的值放到数组f的第一个元素中，将b放到数组f的第二个元素中
For i=3 to n ‘使用i来控制循环，i的初值为3，终值为n（12），步长为1
c=a+b ‘将a和b的和赋给变量c
f(i)=c Mod 4 ‘将c除以4的余数存储到数组元素f（i）中
a=b ‘将原b的值赋给变量a
b=c ‘将c的值赋给变量b
Next i ‘结束循环
由以上程序分件知，数组元素f是一个数列，该数列的前两项为1、1，后面各项为其前两项之和除以4的余数，故其数列为1、1、2、3、1、0、1、1、2、3、1、0，f（12）对应的为最后一个数列的值0，故答案选A。
【分析】本题考查的是由数列的前两项生成数列其他各项的算法。该算法为解析算法。所谓解析法（analysis algorithm）是指用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。
12．（2019高三上·浙江月考）【加试题】已知一无序数组a中的元素为"90，15，40，72，65，32，81，6"，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为"8，2，6，3，5，4，7，1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
当文本框Text1中输入的值为32时，程序运行结束后变量c的值为（　　）
A．1 B．2 C．3 D．4
【答案】C
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
i=1：j=8：c=0 '给变量i、j和c赋初值
key=val（text1.text) '将从文本框1中输入的数据转为数值型后赋给变量key
do while i<=j '在数组下标的下限小于上限时进行循环
m=int(i+j)/2 'm为剩余数组元素的中值
t=b(m) '将中值元素下标赋给变量t
c=c+1 '使用c进行计数，即查找的次数
if a(t)=key then p=t:exit do '如果在数组a中查到该数则将下标值t赋给变量p并退出循环
if a(t)i=m+1 '调整数组元素的下限为中值加1
else '否则，即如果中值元素的值比要查找的值大则在前半个数组中找，进行如下处理
j=m-1 '调整数组元素的上限为中值减1
endif '结束条件判断
loop '结束循环
由以上程序分析知，虽然在无序数组a中查找，但经过数据b进行排序后与在有序数组中查找是一样的，其有序数组相当于6、15、32、40、65、72、81、90，第一次比较的是
40和32，40>32在前半个数组中查找，再比较15和32，15<32，在后半个数组中找。比较32和32，至此找到并退出循环，共查找了3次，故c值为3，故答案选C。
【分析】本题考查的是对分查找法。对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
二、填空题
13．（2019高三上·浙江月考）小李收集了本市主要食品平均价格变动的数据，并使用Excel软件进行数据处理，如图1所示。
图1
请回答下列问题：
（1）若要对肉类食品按本期价格进行降序排序，则需要选择的数据区域为　 　。
（2）区域F3：F16的数据是通过公式计算得到的：在F3单元格输入公式后，用自动填充功能完成F4：F16的计算，则F3单元格中的公式是　 　。
（涨跌幅（%）=(本期价格(元)-上期价格(元))/上期价格(元)×100）
（3）在计算F列数据之后，若E列的数据被误清除，则F16单元格将显示为　 　(单选，填字母： A .98.2 / B .0 / C .#DIV/0！/ D .#REF！)。
（4）为了更直观地比较鱼肉类价格波动情况，小李制作了如图2所示的图表。该图表的数据区域是：　 　，D2：E2，D6：E11。
图2
【答案】（1）B6：F8 或 B6：E8
（2）=(D3-E3)/E3*100
（3）C
（4）B2，B6：B11
【知识点】表格数据的处理与计算
【解析】【解答】（1） 若要对肉类食品按本期价格进行降序排序， 不能选择”肉类“这个合并单元格，而F列是公式会随数据的变化而变化，可以选也可以不选，故本小题答案填写： B6：F8 或 B6：E8 。
（2）由F列的公式: 涨跌幅（%）=(本期价格(元)-上期价格(元))/上期价格(元)×100 可知：本期价格在D列， 上期价格 在E列且公式中各单元格地址要随单元格的变化而变化。故F3的公式为： =(D3-E3)/E3*100 。
（3） 在计算F列数据之后，若E列的数据被误清除 ，则公式中E列为0即0作了除数，单元格中显示提示信息 ”#DIV/0！ “，故本小题答案选C。
（4）由图可知：该图表的横轴为肉类和鱼类的名称，纵轴为本期价格和上期价格，故其数据区域为： B2，B6：B11 ， D2：E2，D6：E11 ，故本小题答案填写： B2，B6：B11 。
【分析】本题考查的是Excle的排序数据的选择、公式的运用、数据出错提示信息及图表数据区域的选择。Excel的地址引用有相对地址引用和绝对地址引用及混合地址引用3种方式，相对地址引用就是单元格地址前不加任何东西，单元格地址会随单元格的变化而变化，绝对单元格地址引用就是在单元格地址前加$号，不会随单元格的变化而变化。混合引用是在行号或列标前加$号，另一个不加，在复制公式时加$号的不变，不加$号的变化。在排序时注意不要选择合并的单元格，尤其选择标题栏时注意标题栏是否为合并单元格。图表数据区域的选择是看其横轴和纵轴的数据。在常用的提示信息中： #DIV/0！ 是将0作为了除数（分母）， #REF！ 是使用了错误的参数。
14．（2019高三上·浙江月考）编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：
⑴将n乘以3后加1产生一个新的数
⑵对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1
譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示，回答下列问题：
（1）若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的　 　属性。
（2）完成上述功能的程序代码如下，请在划线处填入合适的代码
Private Sub Command1_Click()
Dim n As Integer，t as Integer ，m as Integer ，s as String
　 　
t = n * 3 + 1
m = 1
s = ""
Do While 　 　
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现！"
End If
End Sub
（3）按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数 　 　。（选填：能/否）
【答案】（1）Caption
（2）n=Val(Text1.Text)；n <> t And m <= 10或其它等价表达式
（3）能
【知识点】解析算法及程序实现
【解析】【解答】（1） 若要把窗体的标题名称由“Form1”改为“数值猜想”，则需修改窗体的 标题属性，故本题答案填写：Caption。
（2）本题程序分析如下：
Private Sub Command1_Click() ‘命令按钮单击事件开始
Dim n As Integer，t as Integer ，m as Integer ，s as String ‘定义整型变量n、t、m和s
‘将文本框1中输入的数据转为数值型并赋给变量n，故本处答案应填写： n=Val(Text1.Text)
1
t = n * 3 + 1 ‘将n值乘以3加上1赋给变量t
m = 1 ‘将计数器m的值赋为1，代表已经进行了一次数据处理
s = "" ‘初始化字符串变量s的值为空串
‘在n值不等于t值且数据处理步骤小于等于10次（m值小于等于10）时进行循环，故此处答案应填写： n <> t And m <= 10
Do While 2
s = s + Str(t) ‘将每次处理后的结果t转为字符型放在变量s中
If t Mod 2 = 0 Then ‘如果t为一个偶数则进行如下处理
t = t \ 2 ‘将这个数整除以2将商重新赋给变量t
Else ‘否则（即结果为奇数时）进行如下处理
t = t * 3 + 1 ‘将这个数仍旧乘以3加上1后重新赋给变量t
End If ‘结束条件判断
m = m + 1 ‘使用计算器m进行计数
Loop ‘结束循环
If n = t Then ‘如果经过处理后的数据t等于n则进行如下处理
Label1.Caption = s + Str(n) ‘使用标签1输出处理过程中的所有中间数和结果
Else ‘否则（如果t和n值不相同）进行如下处理
Label1.Caption = "该数10步之内无法实现！" ‘使用标签1输出该数10步内无法实现
End If ‘结束条件判断
End Sub ‘结束事件过程
由以上程序分析知,1处为：将文本框1中输入的数据转为数值型并赋给变量n，故本处答案应填写： n=Val(Text1.Text) 。
2处为：在n值不等于t值且数据处理步骤小于等于10次（m值小于等于10）时进行循环，故此处答案应填写： n <> t And m <= 10 。
(3)4->13->40->20->10->5->16->8->4，在第8步时回到初始值，故本小题答案选填：能。
【分析】本题考查的是判断一个数在10步内能否回到初始值的算法，该算法采用的是解析算法。所谓解析法（analysis algorithm）是指用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。在本题中使用了计数器对运算步骤进行了统计。
15．（2019高三上·浙江月考）小明制作主题为“皮影熠彩”的多媒体作品，她先用PhotoShop软件制作一张背景图片，然后用Flash软件制作动画。请回答下列各题：
（1）如图1所示，当前状态下，下列说法不正确的有　 　（多选，填字母：A .可以对“龙柱”图层选择区域并填充颜色/ B .用“仿制图章”工具对“灯笼”图层操作将会新增一个图层/ C .将“熠彩”的图层样式拷贝到“皮影”之后，“皮影”的图层样式将被替换/ D .可以设置“背景”图层的不透明度）。
图1
（2）如图2所示，“人物”图层第5帧到32帧实现了人物实例旋转一周且淡入的动画效果，该动画类型为　 　（单选，填字母：A .形状补间/B .动画补间/C .逐帧动画）
图2
（3）调试作品，发现“进入”按钮会在最后消失，以下对“按钮”图层的操作可实现该按钮一直在舞台上的操作有　 　（多选，填字母：A .把第1帧移动到第60帧/B .选择第60帧，执行“清除帧”操作;/C .选择第60帧，执行“清除关键帧”操作/D .对第1帧“复制帧”，选择第60帧“粘贴帧”/E.选择第1帧执行“剪切帧”操作，选择第60帧“粘贴帧”）
（4）为实现单击“进入”按钮，使动画从“main”场景的第1帧开始播放，应在该按钮上添加动作脚本　 　。
（5）经上述操作之后，若要测试“进入”按钮的效果，则应　 　（单选，填字母：A .测试场景/ B .测试影片/ C .播放）
【答案】（1）ABD
（2）B
（3）CD
（4）on(press/release){gotoAndPlay(“main”，1);}
（5）B
【知识点】图片加工常用工具的使用；动画的类型；常用影片控制函数的应用
【解析】【解答】（1）选项A： “龙柱”图层 处于锁定状态不能进行编辑，本项错。选项B： “仿制图章”工具可以复制图像但不会产生新图层。本项错。选项C：图层的样式可以进行复制和替换，本项对。选项D：背景图层处于锁定状态不能进行编辑，本项错。故本题答案选ABD。
（2） “人物”图层第5帧到32帧实现了人物实例旋转一周且淡入的动画效果 ，该动画没有图形的转换，只有透明度和位置的变化，为动画补间，故本小题选择B。
（3）由图2 可知“按钮”图层只有在第60帧为空白关键帧，该帧没有图像，实现按钮始终在舞台上的方法主要是将第60帧加上图像。选项A：将第一帧图像移动到第60帧后，第一帧无图像不能实现始终有“按钮”的效果，本项错。选项B：第60帧为关键帧不能执行“清除帧”操作。本项错。选项C：可以执行“清除关键帧”操作，清除后该帧为普通帧可延续上一关键帧的图像，本项对。选项D： 选择第1帧执行“剪切帧”操作，选择第60帧“粘贴帧” ，可以将第一帧的图像复制到第60帧，其他各帧也为第一帧的图像，本项对。故本题答案选CD。
（4） 为实现单击“进入”按钮，使动画从“main”场景的第1帧开始播放 ，应使用命令，在单击或释放鼠标时将动画转到场景“main”的第1帧进行播放，故本题答案填写： on(press){gotoAndPlay(“main”，1);} 或 on(release){gotoAndPlay(“main”，1);} 。
（5）选项A：测试场景是测试当前场景，一个影片可能有多个场景，“进入”按钮不一定在该场景中。选项B：测试影片是从影片的开始开始测试。选项C：播放不进入全屏幕进行播放对于“按钮”效果不能进行测试，本项错。故本小题答案选B。
【分析】本题考查的是“图层”的操作、动画类型、图像的显示时间、动作脚本及测试影片等。“图层”可以进行复制、移动、设置图层样式、设置滤镜、设置图层属性等操作。补间动画有二种：动画补间和形状补间。形状补间是由一个物体到另一个物体间的变化过程，像由三角形变成四方形等。时间轴上形状补间是淡绿色底加一个黑色箭头组成的。动画补间是由一个形态到另一个形态的变化过程，像移动位置，改变角度等。时间轴上动画补间是淡紫色底加一个黑色箭头组成的。为了增强动画的人机交互功能可以对动画添加动作脚本。
16．（2019高三上·浙江月考）【加试题】小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数 ，保留一位小数），在文本框Text2中输出路径值。程序界面如图所示。
实现上述功能的VB程序如下，但划线部分代码有错，请改正。
Private Sub Command1_Click()
Dim x(1 To 100) As Single， y(1 To 100) As Single
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single
Dim i As Integer， j As Integer， k As Integer
Randomize
List1.Clear
k = Val(Text1.Text)
For i = 1 To k
x(i) = Int(Rnd * 90) / 10 + 1
y(i) = Int(Rnd * 90) / 10 + 1
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i))
Next i
For i = 1 To k - 1
For j = 1 To k - i
If x(j) > x(j + 1) Then
x(i)=x(i) + x(j)
x(j) = x(i) - x(j)
x(j) = x(i) + x(j) ‘①
tmp = y(j)
y(j) = y(j + 1)
y(j + 1) = tmp
End If
Next j
Next i
sum = 0： length = 0
For i = 1 To k - 1
x1 = (x(i) - x(1)) ^ 2 ‘②
'变量y1计算方法同x1，代码略
length = Sqr(x1 + y1)
sum = sum + length
Next i
Text2.Text = Str(Int(sum * 10) / 10)
End Sub
①　 　②　 　
【答案】x(i)=x(i)–x(j)；(x(i)–x(i+1))^2或其他等价表达式
【知识点】解析算法及程序实现
【解析】【解答】本题程序分析如下：
Private Sub Command1_Click() ‘命令按钮单击事件开始
Dim x(1 To 100) As Single， y(1 To 100) As Single ‘定义单精度数组x和y用于存放点的坐标
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single ‘定义单精度变量tmp、length、sum、x1和y1
Dim i As Integer， j As Integer， k As Integer ‘定义整型变量i、j和k
Randomize ‘放置一个随机种子
List1.Clear ‘清空列表框
k = Val(Text1.Text) ‘将文本框1中输入的数据转为数值型并赋给变量k
For i = 1 To k ‘使用k来控制循环
x(i) = Int(Rnd * 90) / 10 + 1 ‘产生第i个点的横坐标并存到数组元素x（i）中
y(i) = Int(Rnd * 90) / 10 + 1 ‘产生第i个点的纵坐标并存到数组元素y（i）中
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i)) ‘在列表框中输出这个点的横坐标和纵坐标
Next i ‘结束循环
For i = 1 To k - 1 ‘使用i来控制外层循环，使用冒泡法将这些点按由小到大的顺序进行排序
For j = 1 To k - i ‘使用j来控制内层循环
If x(j) > x(j + 1) Then ‘如果前一个点的横坐标大于后一个点的横坐标则进行如下处理
x(i)=x(i) + x(j) ‘将两个横坐标求和放在前一个横坐标所在的数组中
x(j) = x(i) - x(j) ‘通过相减交换前后两个点的横坐标
x(j) = x(i) + x(j) ‘①通过相减交换前后两个点的横坐标，故此处应改为： x(i)=x(i)–x(j)
tmp = y(j) ‘将前一个点的纵坐标存入临时变量tmp中
y(j) = y(j + 1) ‘将后一个点的纵坐标存入前一个点的纵坐标所在的数组元素中
y(j + 1) = tmp ‘将前一个点存入的临时变量的值存入后一个点的纵坐标中
End If ‘结束判断
Next j ‘结束内层循环
Next i ‘结束外层循环
sum = 0： length = 0 ‘初始化变量sum和length
For i = 1 To k - 1 ‘使用i来控制循环
x1 = (x(i) - x(1)) ^ 2 ‘②计算两个相邻点的横坐标的平方差，不是求这个点到第一个点的横坐标的平方差，故本处应改为： (x(i)–x(i+1))^2
'变量y1计算方法同x1，代码略
length = Sqr(x1 + y1) ‘求相邻两个点之间的距离
sum = sum + length ‘将两点之间的距离累加到变量sum中
Next i ‘结束循环
Text2.Text = Str(Int(sum * 10) / 10) ‘在文本框2中输出所有点之间的距离
End Sub ‘结束事件过程
由以上分析知，程序划线 ① 处为：通过相减交换前后两个点的横坐标，故此处应改为： x(i)=x(i)–x(j)
程序划线 ② 处为：计算两个相邻点的横坐标的平方差，不是求这个点到第一个点的横坐标的平方差，故本处应改为： (x(i)–x(i+1))^2 。
【分析】本题考查的是冒泡法及交换两个变量值的方法。在使用冒泡法进行排序时会有两层循环，外层循环代表比较的轮数，内层循环代表每轮比较的次数，在每轮比较时都是将相邻数组元素进行比较，如果前一个数组元素大于后一个数组元素（由小到大时）进行交换，这样第一轮使最小的元素排在元素下标最小的元素中，第二轮比较后将次小元素排在第二个元素中，这样经过n-1轮比较后将数列排好。交换两个变量的值有三种方法：一是借助中间变量，二是借助两数之和，三是借助两数之积，但此法中两数不能出现0值。
17．（2019高三上·浙江月考）【加试题】某密码的破译步骤如下：
⑴找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20)，单词与数字对应如下：
⑵将这些数字平方后除以100取余，得到两位数如00，04，21，96。
⑶把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。
⑷步骤(3)找出的最小数即为密码。
小明按照上述方法，设计了一个解密的VB程序，功能如下：单击“解密”按钮Command1，程序依次将文本框Text1中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。
程序运行效果如图所示，请回答下列问题：
（1）若文章内容为“tom bought two apples and
five oranges, which cost ten dollars altogether.”，则破译后的密码应为　 　。
（2）请在划线处填入合适的代码。
Dim a(1 To 20) As String
Private Sub Form_Load()
a(1) = "one"： a(2) = "two"
‘……将所有数字单词按顺序存入数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim s As String, tmp As String
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String,
ch As As String, code As Long
Dim b(1 To 100) As String ‘b数组存放数字单词处理后得到的两位数
s = Text1.Text
c = 0： i = 1： flag =
True：t = ""
Do While i <= Len(s)
ch = Mid(s， i，
1)
If ch >= "a" And ch <= "z" Then
t = t + ch
flag = False
ElseIf flag = False Then
For j = 1 To 20
If t = a(j) Then
c = c + 1
b(c) =　 　
End If
Next j
t = ""
flag = True
End If
i = i + 1
Loop
’将b数组中的两位数按数值大小进行升序排序，代码略
For i = 1 To c
t = Val(b(i))
　 　
Next i
Text2.Text = Str(code)
End Sub
Function decode(num As Integer) As String
Dim mo As Integer
mo = num * num Mod 100
If mo = 0 Then
decode = "00"
ElseIf 　 　 Then
decode = "0" + Trim(Str(mo))
Else
decode = Trim(Str(mo)) 'Trim为去除字符串两端空格的函数
End If
End Function
【答案】（1）425
（2）decode(j)；code = code * 100 + t 或其他等价表达式；mo >= 1 And mo <= 9或其他等价表达式
【知识点】枚举算法及程序实现
【解析】【解答】（1）在字符串 “tom bought two apples and five oranges, which cost ten dollars altogether.” 中共有数字two、five、ten三个数，将这三个数平方后除以100再取余结果为：4、25、00，组成最小数即为425，故本小题答案填写：425。
（2）本题程序分析如下：
Dim a(1 To 20) As String ‘定义窗体级数组a，a共有20个元素
Private Sub Form_Load() ‘窗体装载事件开始
a(1) = "one"： a(2) = "two" ‘对数组a进行赋值
‘……将所有数字单词按顺序存入数组a中，代码略
End Sub ‘结束事件过程
Private Sub Command1_Click() ‘命令按钮单击事件过程
Dim s As String, tmp As String ‘定义一个字符串变量s和tmp
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String, ch As As String, code As Long ‘定义整型变量c、i、j、k和字符串变量t、ch和长整型变量code
Dim b(1 To 100) As String ‘b数组存放数字单词处理后得到的两位数
s = Text1.Text ‘将文本框1中的字符串赋给变量s
c = 0： i = 1： flag = True：t = "" ‘初始化变量c、i、t和flag
Do While i <= Len(s) ‘如果变量i的值小于字符串变量s的长度时进行循环
ch = Mid(s， i， 1) ‘在字符串s中按i的值在对应位置取出一个字符并赋给变量ch
If ch >= "a" And ch <= "z" Then ‘如果ch在小写字母a和z之间则进行如下处理
t = t + ch ‘将这个字符合并到变量t中
flag = False ‘设置标记变量值为false
ElseIf flag = False Then ‘如果不是小写字母且flag的值为false时进行如下处理
For j = 1 To 20 ‘使用j来控制循环
If t = a(j) Then ‘如果t值和数组a中的某个数组元素时进行如下处理
c = c + 1 ‘使用计数器c进 行计数
‘使用自定义函数code将字符串s中的数字平方后除以100取余后再转为字符串，故本处答案应填写： decode(j)
b(c) = 1
End If ‘结束条件判断
Next j ‘结束内层循环
t = "" ‘初字符串t初始化为一个空串
flag = True ‘调置标记变量值为true
End If ‘结束条件判断
i = i + 1 ‘将i值加1，即循环变量的值
Loop ‘结束循环
’将b数组中的两位数按数值大小进行升序排序，代码略
For i = 1 To c ‘使用i来控制循环
t = Val(b(i)) ‘将数组b的数转为数值型并赋给变量t
‘将t值合并到数的右侧，故本处答案应填写： code = code * 100 + t
2
Next i ‘ 结束循环
Text2.Text = Str(code) ‘在文本框2中输出密码
End Sub ‘结束事件过程
Function decode(num As Integer) As String ‘自定义函数decode（）开始
Dim mo As Integer ‘定义一个整型变量mo
mo = num * num Mod 100 ‘mo的值为参数平方后除以100后的余数
If mo = 0 Then ‘如果这个余数为0，则进行如下处理
decode = "00" ‘函数值为“00”
ElseIf 3 Then ‘如果余数不为0但在1到9之间则进行如下处理，故此处应填写： mo >= 1 And mo <= 9
decode = "0" + Trim(Str(mo)) ‘将这个余数转为字符型后前面加上一个0
Else ‘
decode = Trim(Str(mo)) 'Trim为去除字符串两端空格的函数
End If ‘结束条件判断
End Function ‘结束自定义函数
由以上程序分析知，1处为使用自定义函数code将字符串s中的数字平方后除以100取余后再转为字符串，故本处答案应填写： decode(j) 。
2处为：将t值合并到数的右侧，故本处答案应填写： code = code * 100 + t
3处为：如果余数不为0但在1到9之间则进行如下处理，故此处应填写： mo >= 1 And mo <= 9 。
【分析】本题考查的是自定义函数的定义及使用和在字符串中取出一个单词的方法。自定义函数以function为关键字进行定义，使用时同标准函数，但一定要注意参数的类型。从一个字符串中取一个单词是使用mid（）函数逐位取出字符，并用累加器将取出的字符进行合并，在取出的字符为空格、逗号等符号时结束并将字符串t进行初始化以便为取下一个单词做准备。
1 / 1浙江省名校协作体2019届高三上学期信息技术9月联考试卷
一、选择题
1．（2019高三上·浙江月考）下列有关信息的说法，正确的是（　　）
A．信息经过加工和处理后的使用价值始终保持不变
B．信息可以脱离载体而存在
C．信息在使用过程中会产生损耗
D．手机屏幕锁功能，可以提升信息的安全性
2．（2019高三上·浙江月考）下列有关浏览器与网页、网络协议的说法，正确的是（　　）
A．选择“网页，仅HTML”方式保存网页，网页中的图片同时被保存
B．保存网页其实就是保存网页的URL
C．网页内容是通过HTTP语言描述的
D．SMTP协议是简单邮件传输协议的英文简称
3．（2019高三上·浙江月考）使用word编辑某文档，部分界面如图所示，以下说法正确的是（　　）
A．若将文档中图片的环绕方式改为“紧密型”后效果不变
B．删除批注对话框中“摘自《遗传密码》”后该批注框消失
C．文中的“美梦承真”可通过自动更正功能改为“美梦成真”
D．接受所有修订后，第四行将变成“毫发无损。有魔术表演的夜晚总是那么欢乐。”
4．（2019高三上·浙江月考）使用Access软件创建一张数据表，其设计视图界面如图所示，下列说法正确的是（　　）
A．当前状态下，可以对数据表“图书信息”重命名
B．该视图中，右表删除一行，则其数据表的记录总数会相应减少一条
C．在“图书信息”数据表中，可以包含图书名称相同的两条记录
D．存储“借出”字段值需要1个字节
5．（2019高三上·浙江月考）使用UltraEdit软件观察字符内码，结果如图所示。
以下说法正确的是（　　）
A．图中内码表示的ASCII码字符共有5个
B．字符“F”内码转十进制过程应为4×162+6×161
C．字母“j”内码用十六进制表示是70
D．字母“B”内码用二进制表示是1000010
6．（2019高二上·温州期末）某算法流程图如图所示：
执行该流程图后，输出i，k的值分别是（　　）
A．102，9 B．102，8 C．100，9 D．100，8
7．（2019高三上·浙江月考）使用GoldWave软件编辑某段音乐，界面如图所示。
下列说法正确的是（　　）
A．当前状态下执行“静音”操作，和插入25秒静音效果相同
B．该音频是Wav格式，是无损压缩的音频文件
C．复制一段10秒声音，在当前状态下第25秒开始执行“混音”后，音乐文件总时长不变
D．当前状态下执行“删除”操作，左声道从25秒到50秒变为静音
8．（2019高三上·浙江月考）用Photoshop软件制作“2018世界杯”作品，界面如图所示：
以下说法正确的是（　　）
A．用“裁剪”工具对“背景”图层操作之后，图像大小一定不会发生改变
B．隐藏“徽标”图层后，按原参数保存成bmp图像，存储容量不变
C．将左下角的100%改成66.67%之后，按原参数保存，存储容量变小
D．该作品以jpg格式存储后容量为1.25MB
9．（2019高三上·浙江月考）使用Flash软件制作补间动画，部分属性界面如图所示。以下说法正确的是（　　）
A．该补间动画可能是形状补间动画
B．当前状态下，该实例在舞台中可见
C．该界面是关键帧的属性面板
D．该实例由库中“舞动”元件生成
10．（2019高三上·浙江月考）（加试题）一段未经压缩的PAL制式的AVI格式无声视频，时长为10秒，每帧画面为512×400像素，存储容量约为97.7MB，则该视频中图像的每个像素所占的位数是（　　）
A．2位 B．8位 C．16位 D．24位
11．（2019高三上·浙江月考）（加试题）有如下VB程序段：
A=1：b=1：n=12
f(1)=a：f(2)=b
For i=3 to n
c=a+b
f(i)=c Mod 4
a=b
b=c
Next i
执行该段程序后，数组元素f(12)的值为（　　）
A．0 B．1 C．2 D．3
12．（2019高三上·浙江月考）【加试题】已知一无序数组a中的元素为"90，15，40，72，65，32，81，6"，通过引入数组b存储数组a元素按升序排列时的下标，b数组元素为"8，2，6，3，5，4，7，1"，使得a(b(1))≤a(b(2)) ≤a(b(3))……≤a(b(n))，从而对a数组中的数据进行对分查找。部分程序如下：
当文本框Text1中输入的值为32时，程序运行结束后变量c的值为（　　）
A．1 B．2 C．3 D．4
二、填空题
13．（2019高三上·浙江月考）小李收集了本市主要食品平均价格变动的数据，并使用Excel软件进行数据处理，如图1所示。
图1
请回答下列问题：
（1）若要对肉类食品按本期价格进行降序排序，则需要选择的数据区域为　 　。
（2）区域F3：F16的数据是通过公式计算得到的：在F3单元格输入公式后，用自动填充功能完成F4：F16的计算，则F3单元格中的公式是　 　。
（涨跌幅（%）=(本期价格(元)-上期价格(元))/上期价格(元)×100）
（3）在计算F列数据之后，若E列的数据被误清除，则F16单元格将显示为　 　(单选，填字母： A .98.2 / B .0 / C .#DIV/0！/ D .#REF！)。
（4）为了更直观地比较鱼肉类价格波动情况，小李制作了如图2所示的图表。该图表的数据区域是：　 　，D2：E2，D6：E11。
图2
14．（2019高三上·浙江月考）编写一个VB程序，实现如下功能：在文本框Text1中输入一个偶数n，判断该数在10步之内通过以下计算过程后能否回到初始值。计算步骤如下：
⑴将n乘以3后加1产生一个新的数
⑵对产生的新数循环执行如下操作：新数是偶数时，用新数除以2；新数是奇数时，用新数乘以3后加1
譬如，以2为初始值，则计算过程如下。2→7→22→11→34→17→52→26→13→40→20→10→5→16→8→4→2。数字2不能在10步之内回到初始值。
界面如图所示，回答下列问题：
（1）若要把窗体的标题名称由“Form1”改为“数值猜想”，应改变窗体的　 　属性。
（2）完成上述功能的程序代码如下，请在划线处填入合适的代码
Private Sub Command1_Click()
Dim n As Integer，t as Integer ，m as Integer ，s as String
　 　
t = n * 3 + 1
m = 1
s = ""
Do While 　 　
s = s + Str(t)
If t Mod 2 = 0 Then
t = t \ 2
Else
t = t * 3 + 1
End If
m = m + 1
Loop
If n = t Then
Label1.Caption = s + Str(n)
Else
Label1.Caption = "该数10步之内无法实现！"
End If
End Sub
（3）按照以上VB程序的计算方法，若在文本框Text1中输入4，能否在10步之内回到初始数 　 　。（选填：能/否）
15．（2019高三上·浙江月考）小明制作主题为“皮影熠彩”的多媒体作品，她先用PhotoShop软件制作一张背景图片，然后用Flash软件制作动画。请回答下列各题：
（1）如图1所示，当前状态下，下列说法不正确的有　 　（多选，填字母：A .可以对“龙柱”图层选择区域并填充颜色/ B .用“仿制图章”工具对“灯笼”图层操作将会新增一个图层/ C .将“熠彩”的图层样式拷贝到“皮影”之后，“皮影”的图层样式将被替换/ D .可以设置“背景”图层的不透明度）。
图1
（2）如图2所示，“人物”图层第5帧到32帧实现了人物实例旋转一周且淡入的动画效果，该动画类型为　 　（单选，填字母：A .形状补间/B .动画补间/C .逐帧动画）
图2
（3）调试作品，发现“进入”按钮会在最后消失，以下对“按钮”图层的操作可实现该按钮一直在舞台上的操作有　 　（多选，填字母：A .把第1帧移动到第60帧/B .选择第60帧，执行“清除帧”操作;/C .选择第60帧，执行“清除关键帧”操作/D .对第1帧“复制帧”，选择第60帧“粘贴帧”/E.选择第1帧执行“剪切帧”操作，选择第60帧“粘贴帧”）
（4）为实现单击“进入”按钮，使动画从“main”场景的第1帧开始播放，应在该按钮上添加动作脚本　 　。
（5）经上述操作之后，若要测试“进入”按钮的效果，则应　 　（单选，填字母：A .测试场景/ B .测试影片/ C .播放）
16．（2019高三上·浙江月考）【加试题】小王设计了一个算法试图求出平面坐标系中最左点出发，从左往右途经所有点到达最右点的路径值和，编写了一个VB程序功能如下：在文本框Text1中输入需随机生成的坐标点数量，单击“生成”按钮Command1后，在列表框List1中生成相应数量的坐标点（坐标值为大于等于1小于10的实数 ，保留一位小数），在文本框Text2中输出路径值。程序界面如图所示。
实现上述功能的VB程序如下，但划线部分代码有错，请改正。
Private Sub Command1_Click()
Dim x(1 To 100) As Single， y(1 To 100) As Single
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single
Dim i As Integer， j As Integer， k As Integer
Randomize
List1.Clear
k = Val(Text1.Text)
For i = 1 To k
x(i) = Int(Rnd * 90) / 10 + 1
y(i) = Int(Rnd * 90) / 10 + 1
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i))
Next i
For i = 1 To k - 1
For j = 1 To k - i
If x(j) > x(j + 1) Then
x(i)=x(i) + x(j)
x(j) = x(i) - x(j)
x(j) = x(i) + x(j) ‘①
tmp = y(j)
y(j) = y(j + 1)
y(j + 1) = tmp
End If
Next j
Next i
sum = 0： length = 0
For i = 1 To k - 1
x1 = (x(i) - x(1)) ^ 2 ‘②
'变量y1计算方法同x1，代码略
length = Sqr(x1 + y1)
sum = sum + length
Next i
Text2.Text = Str(Int(sum * 10) / 10)
End Sub
①　 　②　 　
17．（2019高三上·浙江月考）【加试题】某密码的破译步骤如下：
⑴找出文章(以“.”结束)中所有用英文表示的数字(均为小写，数字范围1≤n≤20)，单词与数字对应如下：
⑵将这些数字平方后除以100取余，得到两位数如00，04，21，96。
⑶把这些两位数按升序排成一行，组成一个最小的新数，如果新数开头为0，就去除。
⑷步骤(3)找出的最小数即为密码。
小明按照上述方法，设计了一个解密的VB程序，功能如下：单击“解密”按钮Command1，程序依次将文本框Text1中以空格分隔的每个英文单词取出，若单词属于数字单词，则按解密步骤进行处理，最后在文本框Text2中输出解密结果。
程序运行效果如图所示，请回答下列问题：
（1）若文章内容为“tom bought two apples and
five oranges, which cost ten dollars altogether.”，则破译后的密码应为　 　。
（2）请在划线处填入合适的代码。
Dim a(1 To 20) As String
Private Sub Form_Load()
a(1) = "one"： a(2) = "two"
‘……将所有数字单词按顺序存入数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim s As String, tmp As String
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String,
ch As As String, code As Long
Dim b(1 To 100) As String ‘b数组存放数字单词处理后得到的两位数
s = Text1.Text
c = 0： i = 1： flag =
True：t = ""
Do While i <= Len(s)
ch = Mid(s， i，
1)
If ch >= "a" And ch <= "z" Then
t = t + ch
flag = False
ElseIf flag = False Then
For j = 1 To 20
If t = a(j) Then
c = c + 1
b(c) =　 　
End If
Next j
t = ""
flag = True
End If
i = i + 1
Loop
’将b数组中的两位数按数值大小进行升序排序，代码略
For i = 1 To c
t = Val(b(i))
　 　
Next i
Text2.Text = Str(code)
End Sub
Function decode(num As Integer) As String
Dim mo As Integer
mo = num * num Mod 100
If mo = 0 Then
decode = "00"
ElseIf 　 　 Then
decode = "0" + Trim(Str(mo))
Else
decode = Trim(Str(mo)) 'Trim为去除字符串两端空格的函数
End If
End Function
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息系统安全防护
【解析】【解答】选项A：信息可以进行加工和处理，在对信息进行重新分类和存储传输后信息会产生一个附加值，这是信息的可处理性。本项错。选项B：信息不能离开载体而独立存在，这是信息的依附性。本项错。选项C：信息可以被多人共享而不会产生损耗，这是信息的共享性。选项D：开户手机锁屏功能，输入密码后手机才能被使用，可以提升信息的安全性，本项对。故本题答案选D。
【分析】本题考查的是信息的特征和信息的安全使用。信息有五个基本特征和五个一般特征。基本特征：普遍性、依附性、传递性、价值性、时效性；一般特征：共享性、真伪性、不完全性、价值相对性、可处理性。在互联网广泛使用的今天特别要注意信息的安全性，不是因为自己的不慎造成损失。
2．【答案】D
【知识点】网络协议；网页、网站的概念与联系
【解析】【解答】选项A：如果保存网页时 选择“网页，仅HTML”方式保存网页则只保存文本的内容、格式和链接而不保存图片、图像等信息，本项错。选项B： 保存网页其实就是保存网页的内容，收藏网址才是保存网页的URL（统一资源定位器）。本项错。选项C： 网页内容是通过超文本标记语言（HTML）来描述的，本项错。选项D： SMTP协议是简单邮件传输协议的英文简称 ，是用于发送电子邮件的，本项对。故答案选D。
【分析】本题考查的是常用的网络协议的名称及作用以及保存网页的类型、编辑网页使用的语言。保存网页时的选项较多，可以只保存网页上的文字、图片、图像等，也可以保存网页上的文字格式和链接，还可以同时保存网页上的文字、图片、图像等。HTTP叫超文本传输协议是用于发送网页文件的协议。HTML语言叫超文本标记语言是用于编辑网页的文件。SMTP叫 简单邮件传输协议 ，是用于发送电子邮件的，POP3叫邮局协议是用于接受邮件的协议。
3．【答案】A
【知识点】文本的基本编辑
【解析】【解答】选项A：本文的图片环绕方式为“四周型”由于图片形状为矩形所以改为 “紧密型”后效果不变 ，本项对。选项B： 删除批注对话框中“摘自《遗传密码》“只是删除了批注的内容，并没有删除该批注，批注框是不会消失的，本项错。选项C：划绿色波线只是提示该处有语法错误，不会自动更正该词语，本项错。选项D： 接受所有修订后，第四行将变成“毫发无损。有魔术表演的夜晚总是那么开怀。” 拒绝修订后第四行内容才变成 “毫发无损。有魔术表演的夜晚总是那么欢乐。” ，本项错。故答案选A。
【分析】本题考查的是批注和修订功能。批注是对文章的某些文字段落做出备注、意见及建议等。而批注是保留修改痕迹的基础上进行的修改，修订是在保留修改痕迹的一种编辑方式，通过修订可以恢复原来的文字或确认修改。
4．【答案】C
【知识点】数据表、字段、记录的概念；数据表、字段、记录的编辑
【解析】【解答】选项A：当前状态为设计视图状态，正在对”图书信息“进行字段设置不能对表进行重命名，本项错。选项B：在设计视图状态下，删除一行就是删除一个字段，在数据表视图中对应一列而不是一条记录（一行），本项错。选项C：由图可知充号为主键不能重复其他字段的值包括图书名称可以有重复字段值，故本项对。选项D：”借出“为是否类型的字段，占用一位二进制数即1b，本项错。故答案选C。
【分析】本题考查的是Access数据库的视图方式和字段类型。数据库的视图方式有两种：设计视图和数据表视图。设计视图是用于设置字段名和字段类型的视图，数据表视图是用于编辑记录的视图。Access允许九种数据类型：文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。
5．【答案】D
【知识点】信息的编码
【解析】【解答】由图可知：F对就46，l对应6C，a对应61，s对应73，h对应68，空格对应20，作对应D7 F7，品对应C6，B7。选项A：由图可知ASCII码字符共有6个（含空格），本项错。选项B：”F“对应的内码为46转为十进制为：4*16+6=(70)10,本项错。选项C： 字母”h“的内码为68，字母“j”内码用十六进制表示是 7A而不是70。本项错。选项D：字母”F“的内码为46，故字母”B“的内码为42，转为二进制为0100 0010，本项对。故答案选D。
【分析】本题考查的是字符的内码表示及十进制、十六进制和二进制数之间的相互转换。一个字母或字符在内存中占用一个字节用2个十六进制数来表示，一个汉字占用2个字节占用4位十六进制来表示。十进制数转二进制数、十六进制数采用除2（16）取余法，二进制数、十六进制数转二进制数采用公式法，二进制数和十六进制数之间是一位对四位的关系。
6．【答案】A
【知识点】算法的常用表示方法；算法的控制结构
【解析】【解答】分析本题流程图运行过程：
初始值：i=0，k=0；
i=0，i<100，第一次循环，i mod 4=0成立，执行k=k+1=1，i=i+6=6；
i=6，i<100，第二次循环，i mod 4=0不成立，执行i=i+6=12；
i=12，i<100，第三次循环，i mod 4=0成立，执行k=k+1=2，i=i+6=18；
i=18，i<100，第四次循环，i mod 4=0不成立，执行i=i+6=24；
i=24，i<100，第五次循环，i mod 4=0成立，执行k=k+1=3，i=i+6=30；
依次类推，每循环一次，变量i的值加6，直至i>=100，循环结束，此时i=102。在[0,100)之间，若变量i既是6的倍数，又是4的倍数，即i是12的倍数时，变量k加1，其中0,12,24,36,48,60,72,84,96共9个数满足条件，所以k=9。故答案选A。
【分析】本题考查学生分析和理解流程图的能力，要求学生能够清楚地分析出流程图中各变量的变化情况。
7．【答案】C
【知识点】声音素材的基本处理
【解析】【解答】选项A：如果执行”静音“操作则将当前选中部分设为了静音，而插入静音操作则当前文件的时长变长当前选中部分并没有被删除，故本项错。选项B：由图可知当前声音文件为WAV格式文件，WAV格式文件是没有压缩的声音文件格式，本项错。选项C：执行”混音“后只是改变的波形没有改变声音文件的时长，本项对。选项D： 当前状态下执行“删除”操作，左声道从25秒到50秒被删除而不是变为静音。本项错。故答案选C。
【分析】本题考查的是GoldWave的常用操作。在对声音文件的某段音频进行操作时要进行选标操作，执行”静音“操作是将选中部分设置为静音不会改变声音文件的时长，如果执行”删除“操作则将选中部分删除改变了声音文件的时长。
8．【答案】B
【知识点】图层及图层的基本操作；声音、图像、视频编码
【解析】【解答】选项A：”裁剪“操作是在图像中选出一部分其他部分被删除，对一个图层进行“裁剪”操作，图像的大小不一定会改变，本项错误；选项B： 隐藏“徽标”图层后，按原参数保存成bmp图像， 则”徽标“图层不被输出，影响存储容量的因素都没有改变，存储容量不变，本项正确；选项C： 将左下角的100%改成66.67%之后，按原参数保存， 则该图像只是显示比例变小存储容量是不受影响的，本项错；选项D：在状态栏中的文档：1.25M/4.2M的含义为在合并所有图层后输出（即以bmp格式输出）后存储容量为1.25MB，若以psd格式（含图层信息）存储后存储容量为4.4MB，本项错。故答案选B。
【分析】本题考查的Photoshop常用的图层操作及状态栏的含义。对图层可以进行复制、删除、裁剪等操作，还可以设置图层的一些属性。在Photoshop的下方是状态栏，可以显示当前文档的一些属性如显示比例和存储容量等信息。
9．【答案】D
【知识点】元件的类型与应用；动画的实现
【解析】【解答】选项A：由于只有当前状态下的宽高和x、y轴的数据没有动画终止帧的数据不能判断该动画为何种动画，本项错。选项B：当前状态下，该实例的Alpha的值为0%，说明透明度为0是不可见的，本项错。选项C：该界面是实例的属性面板，本项错。选项D:由其属性中的”实例:舞动“知该实例是由”舞动“元件生成的，本项对。故答案选D。
【分析】本题考查的是实例属性面板上的参数及其含义。根据实例面板上的参数我们可以知道该实例的名称、生成该实例的元件名及元件类型、所在舞台上的位置、大小及透明度等信息。
10．【答案】C
【知识点】声音、图像、视频编码
【解析】【解答】97.7MB=117630.8KB=120453939.2B=963631513.6b，该视频中每个像素占用的位数为：963631513.6/25/10/512/400=16.82，最接近于16位，故答案选C。
【分析】本题考查的是视频格式的存储容量的计算。PAL格式下每 秒播放25帧。其存储视频文件存储容量=（水平像素×垂直像素×每个像素所需位数／8）*帧频*时长（字节）。
11．【答案】A
【知识点】常见数据类型、数组；常量、变量及变量的赋值
【解析】【解答】本题程序分析如下：
A=1：b=1：n=12 ‘给变量a赋值为1，变量b赋值为1，变量n赋值为12
f(1)=a：f(2)=b ‘将变量a的值放到数组f的第一个元素中，将b放到数组f的第二个元素中
For i=3 to n ‘使用i来控制循环，i的初值为3，终值为n（12），步长为1
c=a+b ‘将a和b的和赋给变量c
f(i)=c Mod 4 ‘将c除以4的余数存储到数组元素f（i）中
a=b ‘将原b的值赋给变量a
b=c ‘将c的值赋给变量b
Next i ‘结束循环
由以上程序分件知，数组元素f是一个数列，该数列的前两项为1、1，后面各项为其前两项之和除以4的余数，故其数列为1、1、2、3、1、0、1、1、2、3、1、0，f（12）对应的为最后一个数列的值0，故答案选A。
【分析】本题考查的是由数列的前两项生成数列其他各项的算法。该算法为解析算法。所谓解析法（analysis algorithm）是指用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。
12．【答案】C
【知识点】查找算法及程序实现
【解析】【解答】本题程序分析如下：
i=1：j=8：c=0 '给变量i、j和c赋初值
key=val（text1.text) '将从文本框1中输入的数据转为数值型后赋给变量key
do while i<=j '在数组下标的下限小于上限时进行循环
m=int(i+j)/2 'm为剩余数组元素的中值
t=b(m) '将中值元素下标赋给变量t
c=c+1 '使用c进行计数，即查找的次数
if a(t)=key then p=t:exit do '如果在数组a中查到该数则将下标值t赋给变量p并退出循环
if a(t)i=m+1 '调整数组元素的下限为中值加1
else '否则，即如果中值元素的值比要查找的值大则在前半个数组中找，进行如下处理
j=m-1 '调整数组元素的上限为中值减1
endif '结束条件判断
loop '结束循环
由以上程序分析知，虽然在无序数组a中查找，但经过数据b进行排序后与在有序数组中查找是一样的，其有序数组相当于6、15、32、40、65、72、81、90，第一次比较的是
40和32，40>32在前半个数组中查找，再比较15和32，15<32，在后半个数组中找。比较32和32，至此找到并退出循环，共查找了3次，故c值为3，故答案选C。
【分析】本题考查的是对分查找法。对分法查找过程是先将一个数列放于一个有序数组中，然后比较中间数组元素的值与要查找的值，或中间数组的值比要查找的值大，则在前半个数组中查找，若中间数组的值比要查找的值小则在后半个数组中查找。查找方法仍是比较中间数组元素的值和要查找的值。以此类推直到查到或下限大于了上限（没查找）为止。
13．【答案】（1）B6：F8 或 B6：E8
（2）=(D3-E3)/E3*100
（3）C
（4）B2，B6：B11
【知识点】表格数据的处理与计算
【解析】【解答】（1） 若要对肉类食品按本期价格进行降序排序， 不能选择”肉类“这个合并单元格，而F列是公式会随数据的变化而变化，可以选也可以不选，故本小题答案填写： B6：F8 或 B6：E8 。
（2）由F列的公式: 涨跌幅（%）=(本期价格(元)-上期价格(元))/上期价格(元)×100 可知：本期价格在D列， 上期价格 在E列且公式中各单元格地址要随单元格的变化而变化。故F3的公式为： =(D3-E3)/E3*100 。
（3） 在计算F列数据之后，若E列的数据被误清除 ，则公式中E列为0即0作了除数，单元格中显示提示信息 ”#DIV/0！ “，故本小题答案选C。
（4）由图可知：该图表的横轴为肉类和鱼类的名称，纵轴为本期价格和上期价格，故其数据区域为： B2，B6：B11 ， D2：E2，D6：E11 ，故本小题答案填写： B2，B6：B11 。
【分析】本题考查的是Excle的排序数据的选择、公式的运用、数据出错提示信息及图表数据区域的选择。Excel的地址引用有相对地址引用和绝对地址引用及混合地址引用3种方式，相对地址引用就是单元格地址前不加任何东西，单元格地址会随单元格的变化而变化，绝对单元格地址引用就是在单元格地址前加$号，不会随单元格的变化而变化。混合引用是在行号或列标前加$号，另一个不加，在复制公式时加$号的不变，不加$号的变化。在排序时注意不要选择合并的单元格，尤其选择标题栏时注意标题栏是否为合并单元格。图表数据区域的选择是看其横轴和纵轴的数据。在常用的提示信息中： #DIV/0！ 是将0作为了除数（分母）， #REF！ 是使用了错误的参数。
14．【答案】（1）Caption
（2）n=Val(Text1.Text)；n <> t And m <= 10或其它等价表达式
（3）能
【知识点】解析算法及程序实现
【解析】【解答】（1） 若要把窗体的标题名称由“Form1”改为“数值猜想”，则需修改窗体的 标题属性，故本题答案填写：Caption。
（2）本题程序分析如下：
Private Sub Command1_Click() ‘命令按钮单击事件开始
Dim n As Integer，t as Integer ，m as Integer ，s as String ‘定义整型变量n、t、m和s
‘将文本框1中输入的数据转为数值型并赋给变量n，故本处答案应填写： n=Val(Text1.Text)
1
t = n * 3 + 1 ‘将n值乘以3加上1赋给变量t
m = 1 ‘将计数器m的值赋为1，代表已经进行了一次数据处理
s = "" ‘初始化字符串变量s的值为空串
‘在n值不等于t值且数据处理步骤小于等于10次（m值小于等于10）时进行循环，故此处答案应填写： n <> t And m <= 10
Do While 2
s = s + Str(t) ‘将每次处理后的结果t转为字符型放在变量s中
If t Mod 2 = 0 Then ‘如果t为一个偶数则进行如下处理
t = t \ 2 ‘将这个数整除以2将商重新赋给变量t
Else ‘否则（即结果为奇数时）进行如下处理
t = t * 3 + 1 ‘将这个数仍旧乘以3加上1后重新赋给变量t
End If ‘结束条件判断
m = m + 1 ‘使用计算器m进行计数
Loop ‘结束循环
If n = t Then ‘如果经过处理后的数据t等于n则进行如下处理
Label1.Caption = s + Str(n) ‘使用标签1输出处理过程中的所有中间数和结果
Else ‘否则（如果t和n值不相同）进行如下处理
Label1.Caption = "该数10步之内无法实现！" ‘使用标签1输出该数10步内无法实现
End If ‘结束条件判断
End Sub ‘结束事件过程
由以上程序分析知,1处为：将文本框1中输入的数据转为数值型并赋给变量n，故本处答案应填写： n=Val(Text1.Text) 。
2处为：在n值不等于t值且数据处理步骤小于等于10次（m值小于等于10）时进行循环，故此处答案应填写： n <> t And m <= 10 。
(3)4->13->40->20->10->5->16->8->4，在第8步时回到初始值，故本小题答案选填：能。
【分析】本题考查的是判断一个数在10步内能否回到初始值的算法，该算法采用的是解析算法。所谓解析法（analysis algorithm）是指用解析的方法找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。在本题中使用了计数器对运算步骤进行了统计。
15．【答案】（1）ABD
（2）B
（3）CD
（4）on(press/release){gotoAndPlay(“main”，1);}
（5）B
【知识点】图片加工常用工具的使用；动画的类型；常用影片控制函数的应用
【解析】【解答】（1）选项A： “龙柱”图层 处于锁定状态不能进行编辑，本项错。选项B： “仿制图章”工具可以复制图像但不会产生新图层。本项错。选项C：图层的样式可以进行复制和替换，本项对。选项D：背景图层处于锁定状态不能进行编辑，本项错。故本题答案选ABD。
（2） “人物”图层第5帧到32帧实现了人物实例旋转一周且淡入的动画效果 ，该动画没有图形的转换，只有透明度和位置的变化，为动画补间，故本小题选择B。
（3）由图2 可知“按钮”图层只有在第60帧为空白关键帧，该帧没有图像，实现按钮始终在舞台上的方法主要是将第60帧加上图像。选项A：将第一帧图像移动到第60帧后，第一帧无图像不能实现始终有“按钮”的效果，本项错。选项B：第60帧为关键帧不能执行“清除帧”操作。本项错。选项C：可以执行“清除关键帧”操作，清除后该帧为普通帧可延续上一关键帧的图像，本项对。选项D： 选择第1帧执行“剪切帧”操作，选择第60帧“粘贴帧” ，可以将第一帧的图像复制到第60帧，其他各帧也为第一帧的图像，本项对。故本题答案选CD。
（4） 为实现单击“进入”按钮，使动画从“main”场景的第1帧开始播放 ，应使用命令，在单击或释放鼠标时将动画转到场景“main”的第1帧进行播放，故本题答案填写： on(press){gotoAndPlay(“main”，1);} 或 on(release){gotoAndPlay(“main”，1);} 。
（5）选项A：测试场景是测试当前场景，一个影片可能有多个场景，“进入”按钮不一定在该场景中。选项B：测试影片是从影片的开始开始测试。选项C：播放不进入全屏幕进行播放对于“按钮”效果不能进行测试，本项错。故本小题答案选B。
【分析】本题考查的是“图层”的操作、动画类型、图像的显示时间、动作脚本及测试影片等。“图层”可以进行复制、移动、设置图层样式、设置滤镜、设置图层属性等操作。补间动画有二种：动画补间和形状补间。形状补间是由一个物体到另一个物体间的变化过程，像由三角形变成四方形等。时间轴上形状补间是淡绿色底加一个黑色箭头组成的。动画补间是由一个形态到另一个形态的变化过程，像移动位置，改变角度等。时间轴上动画补间是淡紫色底加一个黑色箭头组成的。为了增强动画的人机交互功能可以对动画添加动作脚本。
16．【答案】x(i)=x(i)–x(j)；(x(i)–x(i+1))^2或其他等价表达式
【知识点】解析算法及程序实现
【解析】【解答】本题程序分析如下：
Private Sub Command1_Click() ‘命令按钮单击事件开始
Dim x(1 To 100) As Single， y(1 To 100) As Single ‘定义单精度数组x和y用于存放点的坐标
Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single ‘定义单精度变量tmp、length、sum、x1和y1
Dim i As Integer， j As Integer， k As Integer ‘定义整型变量i、j和k
Randomize ‘放置一个随机种子
List1.Clear ‘清空列表框
k = Val(Text1.Text) ‘将文本框1中输入的数据转为数值型并赋给变量k
For i = 1 To k ‘使用k来控制循环
x(i) = Int(Rnd * 90) / 10 + 1 ‘产生第i个点的横坐标并存到数组元素x（i）中
y(i) = Int(Rnd * 90) / 10 + 1 ‘产生第i个点的纵坐标并存到数组元素y（i）中
List1.AddItem "X：" + Str(x(i)) + " " + "Y：" + Str(y(i)) ‘在列表框中输出这个点的横坐标和纵坐标
Next i ‘结束循环
For i = 1 To k - 1 ‘使用i来控制外层循环，使用冒泡法将这些点按由小到大的顺序进行排序
For j = 1 To k - i ‘使用j来控制内层循环
If x(j) > x(j + 1) Then ‘如果前一个点的横坐标大于后一个点的横坐标则进行如下处理
x(i)=x(i) + x(j) ‘将两个横坐标求和放在前一个横坐标所在的数组中
x(j) = x(i) - x(j) ‘通过相减交换前后两个点的横坐标
x(j) = x(i) + x(j) ‘①通过相减交换前后两个点的横坐标，故此处应改为： x(i)=x(i)–x(j)
tmp = y(j) ‘将前一个点的纵坐标存入临时变量tmp中
y(j) = y(j + 1) ‘将后一个点的纵坐标存入前一个点的纵坐标所在的数组元素中
y(j + 1) = tmp ‘将前一个点存入的临时变量的值存入后一个点的纵坐标中
End If ‘结束判断
Next j ‘结束内层循环
Next i ‘结束外层循环
sum = 0： length = 0 ‘初始化变量sum和length
For i = 1 To k - 1 ‘使用i来控制循环
x1 = (x(i) - x(1)) ^ 2 ‘②计算两个相邻点的横坐标的平方差，不是求这个点到第一个点的横坐标的平方差，故本处应改为： (x(i)–x(i+1))^2
'变量y1计算方法同x1，代码略
length = Sqr(x1 + y1) ‘求相邻两个点之间的距离
sum = sum + length ‘将两点之间的距离累加到变量sum中
Next i ‘结束循环
Text2.Text = Str(Int(sum * 10) / 10) ‘在文本框2中输出所有点之间的距离
End Sub ‘结束事件过程
由以上分析知，程序划线 ① 处为：通过相减交换前后两个点的横坐标，故此处应改为： x(i)=x(i)–x(j)
程序划线 ② 处为：计算两个相邻点的横坐标的平方差，不是求这个点到第一个点的横坐标的平方差，故本处应改为： (x(i)–x(i+1))^2 。
【分析】本题考查的是冒泡法及交换两个变量值的方法。在使用冒泡法进行排序时会有两层循环，外层循环代表比较的轮数，内层循环代表每轮比较的次数，在每轮比较时都是将相邻数组元素进行比较，如果前一个数组元素大于后一个数组元素（由小到大时）进行交换，这样第一轮使最小的元素排在元素下标最小的元素中，第二轮比较后将次小元素排在第二个元素中，这样经过n-1轮比较后将数列排好。交换两个变量的值有三种方法：一是借助中间变量，二是借助两数之和，三是借助两数之积，但此法中两数不能出现0值。
17．【答案】（1）425
（2）decode(j)；code = code * 100 + t 或其他等价表达式；mo >= 1 And mo <= 9或其他等价表达式
【知识点】枚举算法及程序实现
【解析】【解答】（1）在字符串 “tom bought two apples and five oranges, which cost ten dollars altogether.” 中共有数字two、five、ten三个数，将这三个数平方后除以100再取余结果为：4、25、00，组成最小数即为425，故本小题答案填写：425。
（2）本题程序分析如下：
Dim a(1 To 20) As String ‘定义窗体级数组a，a共有20个元素
Private Sub Form_Load() ‘窗体装载事件开始
a(1) = "one"： a(2) = "two" ‘对数组a进行赋值
‘……将所有数字单词按顺序存入数组a中，代码略
End Sub ‘结束事件过程
Private Sub Command1_Click() ‘命令按钮单击事件过程
Dim s As String, tmp As String ‘定义一个字符串变量s和tmp
Dim c as Integer, i As Integer, j As Integer, k As Integer, t As String, ch As As String, code As Long ‘定义整型变量c、i、j、k和字符串变量t、ch和长整型变量code
Dim b(1 To 100) As String ‘b数组存放数字单词处理后得到的两位数
s = Text1.Text ‘将文本框1中的字符串赋给变量s
c = 0： i = 1： flag = True：t = "" ‘初始化变量c、i、t和flag
Do While i <= Len(s) ‘如果变量i的值小于字符串变量s的长度时进行循环
ch = Mid(s， i， 1) ‘在字符串s中按i的值在对应位置取出一个字符并赋给变量ch
If ch >= "a" And ch <= "z" Then ‘如果ch在小写字母a和z之间则进行如下处理
t = t + ch ‘将这个字符合并到变量t中
flag = False ‘设置标记变量值为false
ElseIf flag = False Then ‘如果不是小写字母且flag的值为false时进行如下处理
For j = 1 To 20 ‘使用j来控制循环
If t = a(j) Then ‘如果t值和数组a中的某个数组元素时进行如下处理
c = c + 1 ‘使用计数器c进 行计数
‘使用自定义函数code将字符串s中的数字平方后除以100取余后再转为字符串，故本处答案应填写： decode(j)
b(c) = 1
End If ‘结束条件判断
Next j ‘结束内层循环
t = "" ‘初字符串t初始化为一个空串
flag = True ‘调置标记变量值为true
End If ‘结束条件判断
i = i + 1 ‘将i值加1，即循环变量的值
Loop ‘结束循环
’将b数组中的两位数按数值大小进行升序排序，代码略
For i = 1 To c ‘使用i来控制循环
t = Val(b(i)) ‘将数组b的数转为数值型并赋给变量t
‘将t值合并到数的右侧，故本处答案应填写： code = code * 100 + t
2
Next i ‘ 结束循环
Text2.Text = Str(code) ‘在文本框2中输出密码
End Sub ‘结束事件过程
Function decode(num As Integer) As String ‘自定义函数decode（）开始
Dim mo As Integer ‘定义一个整型变量mo
mo = num * num Mod 100 ‘mo的值为参数平方后除以100后的余数
If mo = 0 Then ‘如果这个余数为0，则进行如下处理
decode = "00" ‘函数值为“00”
ElseIf 3 Then ‘如果余数不为0但在1到9之间则进行如下处理，故此处应填写： mo >= 1 And mo <= 9
decode = "0" + Trim(Str(mo)) ‘将这个余数转为字符型后前面加上一个0
Else ‘
decode = Trim(Str(mo)) 'Trim为去除字符串两端空格的函数
End If ‘结束条件判断
End Function ‘结束自定义函数
由以上程序分析知，1处为使用自定义函数code将字符串s中的数字平方后除以100取余后再转为字符串，故本处答案应填写： decode(j) 。
2处为：将t值合并到数的右侧，故本处答案应填写： code = code * 100 + t
3处为：如果余数不为0但在1到9之间则进行如下处理，故此处应填写： mo >= 1 And mo <= 9 。
【分析】本题考查的是自定义函数的定义及使用和在字符串中取出一个单词的方法。自定义函数以function为关键字进行定义，使用时同标准函数，但一定要注意参数的类型。从一个字符串中取一个单词是使用mid（）函数逐位取出字符，并用累加器将取出的字符进行合并，在取出的字符为空格、逗号等符号时结束并将字符串t进行初始化以便为取下一个单词做准备。
1 / 1

展开更多......

收起↑