资源简介

【xj】浙江省2019-2020学年高中信息技术优化提升测评卷（一）
一、填空题
1．（2020·浙江模拟）下列有关信息技术的说法，正确的是（　　）
A．信息技术是对文字信息进行加工和处理时使用的技术
B．随着信息技术的发展，只需要计算机就能完成信息的处理
C．1946年第一台电子计算机诞生后才有信息技术
D．计算机技术的发展促进了信息技术的发展
2．（2020高一下·东台月考）将邮件从电子邮箱服务器中传送到本地计算机时采用的协议名称是（　　）
A．SMTP B．НТТР C．РОРЗ D．FTP
3．（2020·浙江模拟）下列选项中，体现人工智能技术的有（　　）
①利用语音方式控制机器人
②使用智能手机在微信传输语音
③电饭锅的自动保温功能
④使用面部识别技术解锁手机
⑤停车场自动计费系统的汽车牌照识别功能
A．①④⑤ B．①③④ C．②④⑤ D．③④⑤
4．（2020·浙江模拟）以下有关数据库的说法，正确的是（　　）
A．数据表中同一字段内的数据类型一定是相同的
B．数据库应用系统可以完全脱离数据库管理系统独立运行
C．一个数据库文件同一时间内只允许一个用户访问
D．Access和oracle都是常见的小型数据库管理系统
5．使用UltraEdit软件查看“浙江选考2019”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中所有字符内码值的十进制表示均小于128
B．图中出现的字母的内码为十六进制数,其余的是十进制数
C．数字“10”的内码值用二进制数表示为0011000100110000
D．图中共有8个字符，所占字节数为13
6．（2020·浙江模拟）使用GoldWave软件进行作品制作，部分操作界面如图所示。
下列说法不正确的是（　　）
A．在当前状态下插入15秒静音，音频文件存储容量将变大
B．执行“删除”命令后直接保存，音频文件存储容量将变小
C．该音频文件采用无损压缩格式，其采样频率为44.1KHz
D．现对该音频的后5秒设置“淡出”效果并按原格式、原参数保存，存储空间不变
7．（2020·浙江模拟）在Photoshop软件中编辑某文档，其部分界面如图所示。
下列说法正确的是（　　）
A．“背景”图层的下方可能有其他图层
B．可以直接在“背景”图层做“镜头光晕”滤镜操作
C．将此文档保存为jpg格式后，“英文”图层的图层样式仍可见
D．可以在“猫和老鼠”图层使用文字工具修改该图层的文字内容
8．（2020高三上·浙江月考）某算法的部分流程图如图所示。执行这部分流程后，输出sum，i的值分别是（　　）
A．28，6 B．60，6 C．28，5 D．60，5
9．某对分查找算法的VB程序段如下：
i=1: j=6: n=0: f=False
key=Val(Text1.Text)
Do While i<=j and Not f
n=n+1
m=Fix((i+j)/2)
If key=a(m)then f=True
If keyLoop
数组元素a(1)到a(6)的值依次为“12，19，27，31，46，55”，文本框Text 1中输入“31”后运行该程序，则以上程序段运行结束后，下列说法不正确的是（　　）
A．变量i的值为4 B．变量j的值为4
C．变量m的值为4 D．变量n的值为3
10．（2020·浙江模拟）某排序算法，VB代码如下：
i=1
Do While i<=5
If i = 0 or a(i – 1)<= a(i) Then
i=i+1
Else
t=a(i):a(i)=a(i-1):a(i-1)=t
i=i-1
End If
Loop
数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（　　）
A．36 B．53 C．41 D．22
11．（2020·浙江模拟）a(1)=17:a(2)=16:a(3)=12:a(4)=18:a(5)=15:a(6)=13:a(7)=17:a(8)=20
i=2
Do While i <=8
If i mod 2=0 and a(i)>a(i-1) then
t=a(i):a(i)=a(i-1):a(i-1)=t
ElseIf a(i-1) mod 2=1 then
a(i-1)=a(i-1)+1
End If
i=i+1
Loop
执行程序后，a数组各元素是（　　）
A．17，16，18，12，16，14，20，18
B．18，16，18，12，16，14，20，17
C．16，17，18，12，13，16，20，17
D．18，16，18，12，14，15，17，20
12．（2020·浙江模拟）（加试题）若数组元素d(1)到d(8)的值依次为“6,9,12,18,20,28,32,45”，查找Key值的VB程序段如下：
t(1) = 1: t(2) = 1
For i = 3 To 5
t(i) = t(i - 1) + t(i -2)
Next i
Key =13
i=1: j=8: k=6
Do While i <=j
m = i+t(k-1) ‘①
If Key = d ( m ) Then Exit Do ‘Exit Do表示退出循环
If d(m) > Key Then
j= m - 1
k=k-1
Else
i = m + 1
k=k-2
End If
Loop
运行该程序段后，①处的赋值语句共执行（　　）
A．1次 B．2次 C．3次 D．4次
二、操作题
13．（2020·浙江模拟）小林收集了某批发市场的冰激凌价格，并使用Excel软件进行数据处理，如下图所示。
请回答下列问题：
（1）若要使标题栏的格式如下图所示，则可行的操作是　 　。
（2）已知列G的数值是通过公式“零售价一单支”得到，若对列E的数据进行“减少小数位数”操作，列G的数值　 　。（会变/不变）
（3）小林要找出规格为40的冰激凌中利润最大的一项，可进行如下操作：以“规格”为40进行筛选，再以　 　为关键字进行降序排序。
（4）若要在列H利用Rank函数计算出所有冰激凌的利润排名，并且利用自动填充功能填充，则H4单元格的公式为　 　。（RANK函数格式：RANK（number，ref，order），返回某数字在一列数字中相对于其他数值的大小排名，如：RANK（A1，A1：A10）表示单元格A1中的数据在区域Al：A10中的排名）
14．（2020·浙江模拟）小六创作“夏夜旅行”的多媒体作品。回答下列问题：
（1）在作品设计的过程中，下列属于需求分析的是　 　（多选，填字母： A .确定作品属于益智类游戏/ B .确定“片头”界面尺寸、素材组织与来源、交互方式等/ C .确定该作品用于丰富学生的课余生活/D .确定该作品完成后将以网页方式发布到网络服务器上/ E .确定作品由五个界面组成）。
（2）Flash动画部分界面如图所示，“灯闪”图层第10帧到第40帧实现了灯光淡入的动画效果，该动画补间类型为　 　。
（3）图中“蝴蝶”图层创建了蝴蝶实例从位置坐标（c，y）为（110，410）的A点出发，飞到B点（270，180）并稍作停留，最后飞到C点（500，100）的动画。若仅对第20帧执行清除关键帧操作，则测试场景时　 　（多选，填字母：A
.蝴蝶从A点到C点的飞行路线没有变化/B .蝴蝶飞到B点的同时“涟漪”图层的动画开始/ C .蝴蝶从A点到B点的飞行时间变长 / D .蝴蝶从B点到C点的飞行速度变慢）。
（4）如图所示，为使“音乐”图层的音乐与“灯闪”动画同步开始播放。对“音乐”图层的操作是　 　。
（5）测试影片时，单击“跳过片头”按钮，使动画跳转到“主界面”场景第1帧播放，则在该按钮上添加的动作脚本是　 　。
15．（2020·浙江模拟）在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。
（1）由图可知，窗体中的对象共有　 　类；
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private
Sub Command1_Click()
Dim i, k As Integer
Dim x1, y1, x2, y2 As Single
Dim v As Single, maxd As Single
Dim s As String, pos zb As String
List1.Clear
s=Text1.Text
x1=1:y1=1
t="": k=1: j=1
List1.AddItem"坐标点"&"距离"
For i=1 To Len(s)
If Mid(s,i,1)="," Then
v=Val(Mid(s, j, i-j))
j=　 　
If k Mod 2=1 Then
x2=v
Else
y2=v
d=Sqr((x2-x1)^2+(y2-y1)^2)
If　 　 Then
maxd=d
pos="(" &
Str(x2)& "," & Str(y2)& ")"
End If
List1.AddItem"("
& Str(x2)& "," & Str(y2)& ")" & Str(d)
End If
k=k+1
End If
Next i
Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"&
Str(maxd)
End
Sub
（3）若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是　 　。
16．（2020·浙江模拟）用VB编程求两个字符串的最长连续公共子串，程序功能如下：在文本框Text1和Text2中分别输入任意两个字符串s1和s2，单击命令按钮
Command1，在标签 Label3和Label4中分别输出这两个字符串的最长连续公共子串和子串的长度其算法思想：分别从字符串s1和s2的左边第一个字符开始检查，若发现这两个字符串中有一个字符相同，则以这个字符为基准向右边扩大搜索范围，先检查其后面的第一个字符是否相同，若还是相同则继续搜索，直到找到不同的字符为止。然后按照该方法依次继续往后搜索，直到查找结束。程序界面如图所示，请回答下列问题：
（1）根据代码，若输入的s1为“Teacher”，s2为“teacher”，则最长连续公共子串为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim s1 As String, s2 As string, maxstr As string
Dim len1 As Integer, len2 As Integer, maxlen As Integer
Function Min (a As Integer, b As Integer) As Integer
If a >=b Then min = b else
min = a
End Function
Function Search (m As Integer, n As Integer) As Integer
Dim c As Integer
c = 1
Do While c<= Min (len1 -m, len2 - n)
If Mid (s1, m+ c, 1) = Mid(s2,n+c,1)
Then
　 　
Else
Exit Do 'Exit Do的作用是退出Do循环
End if
Loop
Search = c -1
End
function
Private
Sub Command1_Click()
s1 = Text1. Text
s2 = Text2. Text
len1 = Len (s1)
len2 = Len (s2)
maxlen = 0: maxstr = ""
Dim i As Integer, j As Integer, k As
Integer
For i=1
To len1
For j=1 To len2
If Mid(s1, i, 1) = Mid(s2,j,1) Then
k =　 　 'k用于记录连续公共子串的长度
If (k> maxlen) Then
maxlen = k
maxstr =　 　
End if
End If
Next j
Next i
Labe13. Caption= "最长连续公共子串为:"&
maxstr
Labe14. Cantion = "该子串长度是:"& str
(maxlen)
End
sub
答案解析部分
1．【答案】D
【知识点】信息技术的概念与关键技术；信息技术的发展历史
2．【答案】C
【知识点】网络协议
【解析】【解答】SMTP负责把邮件发送到收件人的电子信箱邮件服务器中，选项A错误；HTTP是超文本传输协议，主要用于浏览器和Web服务器之间的信息传输，选项B错误；POP3为电子邮局协议，负责将电子信箱邮件服务器中的电子邮件传送到本地计算机，为接收协议，选项C正确；FTP是文件传输协议，用于Internet上控制文件的双向传输，选项D错误。故答案选C。
【分析】本题考查网络协议及功能。
3．【答案】A
【知识点】人工智能的应用
4．【答案】A
【知识点】数据库的分类与应用；数据表、字段、记录的概念
5．【答案】C
【知识点】信息的编码；进制及数制转换
【解析】【解答】十进制128等于十六进制80 ，选项A错误；途中出现内码均为十六进制，选项B错误；数字10内码值为：30 31转二进制为: 11000100110000 ，选项C正确；图中共有9个字符，所占字节数为13 ，选项D错误。故答案选C。
【分析】本题考查的是ASCII码和汉字编码。用UltraEdit软件观察字符的内码时，每个英文字母占用1个字节，每个汉字占用2个字节。
6．【答案】C
【知识点】声音素材的基本处理；声音、图像、视频编码
7．【答案】B
【知识点】图片加工常用工具的使用；图层及图层的基本操作
8．【答案】A
【知识点】算法的控制结构；流程图识读
【解析】【解答】流程分析：
i的初始值为1，sum的初始值为0；
i=1，i≤5成立，r=2^1=2，r<4，i=1+1=2；
i=2，i≤5成立，r=2^2=4，4≤r≤16成立，sum=0+4=4，i=2+1=3;
i=3，i≤5成立，r=2^3=8，4≤r≤16成立，sum=4+8=12，i=3+1=4；
i=4，i≤5成立，r=2^4=16，4≤r≤16成立，sum=12+16=28，i=4+1=5；
i=5，i≤5成立，r=2^5=32，r>16，i=5+1=6；
i=6，i≤5不成立，退出循环，sum=28，i=6。
故答案选A。
【分析】本题考查的是对流程图的识读。
9．【答案】A
【知识点】查找算法及程序实现
10．【答案】C
【知识点】排序算法及程序实现；循环结构语句及程序实现
11．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
13．【答案】（1）选中A1：G1，单击“合并后居中”
（2）不变
（3）利润（元/支）或 列G
（4）=RANK(G4，$ G $ 3：$ G $ 18)或=RANK(G4，G $ 3：G $ 18)
【知识点】表格数据的处理与计算
14．【答案】（1）ACD
（2）形状
（3）AC
（4）移动第1帧到第10帧
（5）on(press){gotoandplay(“主界面”,1}
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．【答案】（1）4
（2）i+1；d > maxd
（3）(26,51)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；解析算法及程序实现
16．【答案】（1）eacher
（2）c=c+1；search(i,j)+1；mid(s1,i,k)或mid(s2,j,k)或其他等价答案。
【知识点】过程与自定义函数；查找算法及程序实现
1 / 1【xj】浙江省2019-2020学年高中信息技术优化提升测评卷（一）
一、填空题
1．（2020·浙江模拟）下列有关信息技术的说法，正确的是（　　）
A．信息技术是对文字信息进行加工和处理时使用的技术
B．随着信息技术的发展，只需要计算机就能完成信息的处理
C．1946年第一台电子计算机诞生后才有信息技术
D．计算机技术的发展促进了信息技术的发展
【答案】D
【知识点】信息技术的概念与关键技术；信息技术的发展历史
2．（2020高一下·东台月考）将邮件从电子邮箱服务器中传送到本地计算机时采用的协议名称是（　　）
A．SMTP B．НТТР C．РОРЗ D．FTP
【答案】C
【知识点】网络协议
【解析】【解答】SMTP负责把邮件发送到收件人的电子信箱邮件服务器中，选项A错误；HTTP是超文本传输协议，主要用于浏览器和Web服务器之间的信息传输，选项B错误；POP3为电子邮局协议，负责将电子信箱邮件服务器中的电子邮件传送到本地计算机，为接收协议，选项C正确；FTP是文件传输协议，用于Internet上控制文件的双向传输，选项D错误。故答案选C。
【分析】本题考查网络协议及功能。
3．（2020·浙江模拟）下列选项中，体现人工智能技术的有（　　）
①利用语音方式控制机器人
②使用智能手机在微信传输语音
③电饭锅的自动保温功能
④使用面部识别技术解锁手机
⑤停车场自动计费系统的汽车牌照识别功能
A．①④⑤ B．①③④ C．②④⑤ D．③④⑤
【答案】A
【知识点】人工智能的应用
4．（2020·浙江模拟）以下有关数据库的说法，正确的是（　　）
A．数据表中同一字段内的数据类型一定是相同的
B．数据库应用系统可以完全脱离数据库管理系统独立运行
C．一个数据库文件同一时间内只允许一个用户访问
D．Access和oracle都是常见的小型数据库管理系统
【答案】A
【知识点】数据库的分类与应用；数据表、字段、记录的概念
5．使用UltraEdit软件查看“浙江选考2019”的内码，部分界面如图所示。
下列说法正确的是（　　）
A．图中所有字符内码值的十进制表示均小于128
B．图中出现的字母的内码为十六进制数,其余的是十进制数
C．数字“10”的内码值用二进制数表示为0011000100110000
D．图中共有8个字符，所占字节数为13
【答案】C
【知识点】信息的编码；进制及数制转换
【解析】【解答】十进制128等于十六进制80 ，选项A错误；途中出现内码均为十六进制，选项B错误；数字10内码值为：30 31转二进制为: 11000100110000 ，选项C正确；图中共有9个字符，所占字节数为13 ，选项D错误。故答案选C。
【分析】本题考查的是ASCII码和汉字编码。用UltraEdit软件观察字符的内码时，每个英文字母占用1个字节，每个汉字占用2个字节。
6．（2020·浙江模拟）使用GoldWave软件进行作品制作，部分操作界面如图所示。
下列说法不正确的是（　　）
A．在当前状态下插入15秒静音，音频文件存储容量将变大
B．执行“删除”命令后直接保存，音频文件存储容量将变小
C．该音频文件采用无损压缩格式，其采样频率为44.1KHz
D．现对该音频的后5秒设置“淡出”效果并按原格式、原参数保存，存储空间不变
【答案】C
【知识点】声音素材的基本处理；声音、图像、视频编码
7．（2020·浙江模拟）在Photoshop软件中编辑某文档，其部分界面如图所示。
下列说法正确的是（　　）
A．“背景”图层的下方可能有其他图层
B．可以直接在“背景”图层做“镜头光晕”滤镜操作
C．将此文档保存为jpg格式后，“英文”图层的图层样式仍可见
D．可以在“猫和老鼠”图层使用文字工具修改该图层的文字内容
【答案】B
【知识点】图片加工常用工具的使用；图层及图层的基本操作
8．（2020高三上·浙江月考）某算法的部分流程图如图所示。执行这部分流程后，输出sum，i的值分别是（　　）
A．28，6 B．60，6 C．28，5 D．60，5
【答案】A
【知识点】算法的控制结构；流程图识读
【解析】【解答】流程分析：
i的初始值为1，sum的初始值为0；
i=1，i≤5成立，r=2^1=2，r<4，i=1+1=2；
i=2，i≤5成立，r=2^2=4，4≤r≤16成立，sum=0+4=4，i=2+1=3;
i=3，i≤5成立，r=2^3=8，4≤r≤16成立，sum=4+8=12，i=3+1=4；
i=4，i≤5成立，r=2^4=16，4≤r≤16成立，sum=12+16=28，i=4+1=5；
i=5，i≤5成立，r=2^5=32，r>16，i=5+1=6；
i=6，i≤5不成立，退出循环，sum=28，i=6。
故答案选A。
【分析】本题考查的是对流程图的识读。
9．某对分查找算法的VB程序段如下：
i=1: j=6: n=0: f=False
key=Val(Text1.Text)
Do While i<=j and Not f
n=n+1
m=Fix((i+j)/2)
If key=a(m)then f=True
If keyLoop
数组元素a(1)到a(6)的值依次为“12，19，27，31，46，55”，文本框Text 1中输入“31”后运行该程序，则以上程序段运行结束后，下列说法不正确的是（　　）
A．变量i的值为4 B．变量j的值为4
C．变量m的值为4 D．变量n的值为3
【答案】A
【知识点】查找算法及程序实现
10．（2020·浙江模拟）某排序算法，VB代码如下：
i=1
Do While i<=5
If i = 0 or a(i – 1)<= a(i) Then
i=i+1
Else
t=a(i):a(i)=a(i-1):a(i-1)=t
i=i-1
End If
Loop
数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（　　）
A．36 B．53 C．41 D．22
【答案】C
【知识点】排序算法及程序实现；循环结构语句及程序实现
11．（2020·浙江模拟）a(1)=17:a(2)=16:a(3)=12:a(4)=18:a(5)=15:a(6)=13:a(7)=17:a(8)=20
i=2
Do While i <=8
If i mod 2=0 and a(i)>a(i-1) then
t=a(i):a(i)=a(i-1):a(i-1)=t
ElseIf a(i-1) mod 2=1 then
a(i-1)=a(i-1)+1
End If
i=i+1
Loop
执行程序后，a数组各元素是（　　）
A．17，16，18，12，16，14，20，18
B．18，16，18，12，16，14，20，17
C．16，17，18，12，13，16，20，17
D．18，16，18，12，14，15，17，20
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
12．（2020·浙江模拟）（加试题）若数组元素d(1)到d(8)的值依次为“6,9,12,18,20,28,32,45”，查找Key值的VB程序段如下：
t(1) = 1: t(2) = 1
For i = 3 To 5
t(i) = t(i - 1) + t(i -2)
Next i
Key =13
i=1: j=8: k=6
Do While i <=j
m = i+t(k-1) ‘①
If Key = d ( m ) Then Exit Do ‘Exit Do表示退出循环
If d(m) > Key Then
j= m - 1
k=k-1
Else
i = m + 1
k=k-2
End If
Loop
运行该程序段后，①处的赋值语句共执行（　　）
A．1次 B．2次 C．3次 D．4次
【答案】C
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
二、操作题
13．（2020·浙江模拟）小林收集了某批发市场的冰激凌价格，并使用Excel软件进行数据处理，如下图所示。
请回答下列问题：
（1）若要使标题栏的格式如下图所示，则可行的操作是　 　。
（2）已知列G的数值是通过公式“零售价一单支”得到，若对列E的数据进行“减少小数位数”操作，列G的数值　 　。（会变/不变）
（3）小林要找出规格为40的冰激凌中利润最大的一项，可进行如下操作：以“规格”为40进行筛选，再以　 　为关键字进行降序排序。
（4）若要在列H利用Rank函数计算出所有冰激凌的利润排名，并且利用自动填充功能填充，则H4单元格的公式为　 　。（RANK函数格式：RANK（number，ref，order），返回某数字在一列数字中相对于其他数值的大小排名，如：RANK（A1，A1：A10）表示单元格A1中的数据在区域Al：A10中的排名）
【答案】（1）选中A1：G1，单击“合并后居中”
（2）不变
（3）利润（元/支）或 列G
（4）=RANK(G4，$ G $ 3：$ G $ 18)或=RANK(G4，G $ 3：G $ 18)
【知识点】表格数据的处理与计算
14．（2020·浙江模拟）小六创作“夏夜旅行”的多媒体作品。回答下列问题：
（1）在作品设计的过程中，下列属于需求分析的是　 　（多选，填字母： A .确定作品属于益智类游戏/ B .确定“片头”界面尺寸、素材组织与来源、交互方式等/ C .确定该作品用于丰富学生的课余生活/D .确定该作品完成后将以网页方式发布到网络服务器上/ E .确定作品由五个界面组成）。
（2）Flash动画部分界面如图所示，“灯闪”图层第10帧到第40帧实现了灯光淡入的动画效果，该动画补间类型为　 　。
（3）图中“蝴蝶”图层创建了蝴蝶实例从位置坐标（c，y）为（110，410）的A点出发，飞到B点（270，180）并稍作停留，最后飞到C点（500，100）的动画。若仅对第20帧执行清除关键帧操作，则测试场景时　 　（多选，填字母：A
.蝴蝶从A点到C点的飞行路线没有变化/B .蝴蝶飞到B点的同时“涟漪”图层的动画开始/ C .蝴蝶从A点到B点的飞行时间变长 / D .蝴蝶从B点到C点的飞行速度变慢）。
（4）如图所示，为使“音乐”图层的音乐与“灯闪”动画同步开始播放。对“音乐”图层的操作是　 　。
（5）测试影片时，单击“跳过片头”按钮，使动画跳转到“主界面”场景第1帧播放，则在该按钮上添加的动作脚本是　 　。
【答案】（1）ACD
（2）形状
（3）AC
（4）移动第1帧到第10帧
（5）on(press){gotoandplay(“主界面”,1}
【知识点】多媒体作品的规划和设计；动画的类型；时间轴、帧、图层、库的概念及基本操作；动画的实现；常用影片控制函数的应用
15．（2020·浙江模拟）在平面坐标系中，给定任意个点，求出这些点中与点（1，1）距离最远的点。小李编写出了相应功能的程序：在文本框Text1中输入这些点的坐标值（数据都用逗号分隔并以逗号结尾），单击“计算”按钮Cmd后，程序计算这些点到（1，1）的距离后，结果显示在列表框List1中，并且输出最大距离的点。程序运行界面如图所示。
（1）由图可知，窗体中的对象共有　 　类；
（2）实现上述功能的VB程序如下，请在画线处填入合适的代码。
Private
Sub Command1_Click()
Dim i, k As Integer
Dim x1, y1, x2, y2 As Single
Dim v As Single, maxd As Single
Dim s As String, pos zb As String
List1.Clear
s=Text1.Text
x1=1:y1=1
t="": k=1: j=1
List1.AddItem"坐标点"&"距离"
For i=1 To Len(s)
If Mid(s,i,1)="," Then
v=Val(Mid(s, j, i-j))
j=　 　
If k Mod 2=1 Then
x2=v
Else
y2=v
d=Sqr((x2-x1)^2+(y2-y1)^2)
If　 　 Then
maxd=d
pos="(" &
Str(x2)& "," & Str(y2)& ")"
End If
List1.AddItem"("
& Str(x2)& "," & Str(y2)& ")" & Str(d)
End If
k=k+1
End If
Next i
Label1.Caption="距离（1, 1）最远的点为"& pos &"距离为"&
Str(maxd)
End
Sub
（3）若文本框Text1中输入的内容为“31，41，26，51，1，56”，程序运行结束后，距离（1，1）最远的坐标点是　 　。
【答案】（1）4
（2）i+1；d > maxd
（3）(26,51)
【知识点】类、对象、属性、方法、事件和事件处理的概念及应用；解析算法及程序实现
16．（2020·浙江模拟）用VB编程求两个字符串的最长连续公共子串，程序功能如下：在文本框Text1和Text2中分别输入任意两个字符串s1和s2，单击命令按钮
Command1，在标签 Label3和Label4中分别输出这两个字符串的最长连续公共子串和子串的长度其算法思想：分别从字符串s1和s2的左边第一个字符开始检查，若发现这两个字符串中有一个字符相同，则以这个字符为基准向右边扩大搜索范围，先检查其后面的第一个字符是否相同，若还是相同则继续搜索，直到找到不同的字符为止。然后按照该方法依次继续往后搜索，直到查找结束。程序界面如图所示，请回答下列问题：
（1）根据代码，若输入的s1为“Teacher”，s2为“teacher”，则最长连续公共子串为　 　。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Dim s1 As String, s2 As string, maxstr As string
Dim len1 As Integer, len2 As Integer, maxlen As Integer
Function Min (a As Integer, b As Integer) As Integer
If a >=b Then min = b else
min = a
End Function
Function Search (m As Integer, n As Integer) As Integer
Dim c As Integer
c = 1
Do While c<= Min (len1 -m, len2 - n)
If Mid (s1, m+ c, 1) = Mid(s2,n+c,1)
Then
　 　
Else
Exit Do 'Exit Do的作用是退出Do循环
End if
Loop
Search = c -1
End
function
Private
Sub Command1_Click()
s1 = Text1. Text
s2 = Text2. Text
len1 = Len (s1)
len2 = Len (s2)
maxlen = 0: maxstr = ""
Dim i As Integer, j As Integer, k As
Integer
For i=1
To len1
For j=1 To len2
If Mid(s1, i, 1) = Mid(s2,j,1) Then
k =　 　 'k用于记录连续公共子串的长度
If (k> maxlen) Then
maxlen = k
maxstr =　 　
End if
End If
Next j
Next i
Labe13. Caption= "最长连续公共子串为:"&
maxstr
Labe14. Cantion = "该子串长度是:"& str
(maxlen)
End
sub
【答案】（1）eacher
（2）c=c+1；search(i,j)+1；mid(s1,i,k)或mid(s2,j,k)或其他等价答案。
【知识点】过程与自定义函数；查找算法及程序实现
1 / 1

展开更多......

收起↑