文档内容
2019 年 4 月浙江省普通高校招生选考科目考试
一、选择题
1.下列有关信息的说法，正确的是 （ ）
A. 计算机中的信息是以十六进制形式存储的 B. 计算机信息处理能力只与CPU有关
C. 离开计算机网络，信息便无法传递 D. 使用加密技术可以提高信息的安全性
2.电子邮局协议（POP3）用于 （ ）
A. 从收件人电子邮件服务器中将邮件读到收件人计算机中
B. 从发件人计算机中将邮件发送到发件人电子邮件服务器中
C. 从发件人电子邮件服务器中将邮件发送到收件人电子邮件服务器中
D. 从发件人计算机中将邮件发送到收件人电子邮件服务器中
3.下列应用中，没有体现人工智能技术的是 （ ）
A. 门禁系统通过指纹识别确认身份
B. 某软件将输入的语音自动转换为文字
C. 机器人导游回答游客的问题，并提供帮助
D. 通过键盘输入商品编码，屏幕上显示出相应价格
4.下列关于Access数据表的说法，正确的是 （ ）
A. 数据表中的字段数可以为0
B. 同一数据表中各记录的字段数是相同的
C. 数据表中有记录时，该表的字段类型无法修改
D. 在数据表中不能通过“导入Excel电子表格”的操作来添加记录
5.将十六进制数56转换成8位二进制数，再将该8位二进制数从左向右按两位一组依次分为4组，每组中
的两位相互交换，得到新的8位二进制数，则新的8位二进制数对应的十六进制数是 （ ）
A. D0 B. 34 C. A9 D. 65
6.某算法的部分流程图如第下图所示。执行这部分流程后，输出c,s的值分别是 （ ）A. 8,10 B. 10,14 C. 12,6 D. 12,24
7.使用GoldWave软件编辑某音频文件，选中其中一段音频后部分界面如下图所示。下列说法正确的是 （
）
A. 执行“淡出”命令后直接保存，音频文件存储容量与原来一样
B. 执行“删除”命令后直接保存，音频文件存储容量与原来一样
C. 执行“插入静音”命令，设置时间为4秒后直接保存，音频文件存储容量与原来一样
D. 执行“更改音量”命令，将音量升高两倍后直接保存，音频文件存储容量是原来的两倍
8.使用Photoshop软件制作“风筝”作品，部分界面如下图所示。下列说法正确的是（ ）A. 不能将“知了”图层移动到“纸鸢”图层的下方
B. 使用“文字工具”可将“文字”图层中的汉字字体改为楷体
C. 执行“自由变换”命令可以改变“诗句”图层中文字大小
D. 将“背景”图层设置为不可见后，保存成的JPEG格式图像背景透明
9.使用Flash软件制作动画，将库中“停止”按钮元件应用于“Load”场景，其中该按钮元件的部分编辑界
面如下图所示。下列说法正确的是 （ ）
A. “停止”按钮元件“指针经过”帧中实例的宽高比被锁定，则该实例的大小不能被修改
B. 将“停止”按钮元件“文字”图层锁定后，不能对该图层“点击”帧执行“删除帧”操作
C. 修改“停止”按钮元件“背景”图层“弹起”帧中的内容，“Load”场景中该按钮实例随之变化
D. 测试影片，鼠标移动到“停止”按钮上时，该按钮外观会发生变化
10.【加试题】一副未经压缩的1100×1024像素的BMP图像文件，其存储容量约为1.07MB，则该图像每个
像素色彩编码的位数为（ ）
A. 4 B. 8 C. 16 D. 24
11.【加试题】有如下VB程序段：flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（ ）
A. 52，95，46，74，77，83 B. 50，55，46，70，21，97
C. 62，78，57，61，69，50 D. 31，54，48，72，50，82
12.【加试题】有1个升序排列的数组a(a(1)～a(n)，n≥3)，从左到右相邻两个元素的差值（后一个元素值减
去前一个元素值）先由小到大、再由大到小，且相邻两个差值不相等，为了查找相邻两个元素的最大差值，
小李编写的VB程序段如下：
i = 1 ：j = n
Do While i + 1 < j
m = (i + j) \ 2
If a(m + 1) - a(m) > a(m) - a(m - 1) Then
Else
End if
Loop
Label1.Caption="相邻两个元素的最大差值是" + Str(a(j) - a(i))
上述程序段两个方框处的语句分别为（ ）
A. ① i = m ② j = m B. ① i = m ② j = m - 1
C. ① i = m + 1 ② j = m – 1 D. ① i = m + 1 ② j = m
二、非选择题
13.小李收集了2018年浙江省各地区消费者信心指数数据，并使用Excel软件进行了数据处理。他将区域B3:H3单元格格式设置为“数值”，并保留小数位数1位。如图a所示，请回答下列问题：
（1）区域H3:H13的数据是通过公式计算得到的：在H3单元格中输入公式_________________,再利用自
动填充功能完成区域H4:H13的计算。
（2）区域A2:H13数据区域已进行了排序。排序时，选择的主要关键字为“第四季度增长率（%）”，次
要关键字选择“第四季度”，排序次序都为“降序”。按上述步骤正确操作后，排在第1位的地区是“衢
州”而不是“台州”，原因是____________________________________________。
(3)根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域是______________
14.小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串s进行插入或删除
时，将每步操作信息依次存储得到的，操作信息由操作符（“+”表示插入，“－”表示删除）、操作位置
和操作字符串（只包含英文字母）构成，例如，“+23abc”表示在字符串s第23个位插入了“abc”，“模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与
撤销过程，如下图所示。
小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是
历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如由下图所示。
（1）实观上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是______ 。（选填，填字码：
A.Label1 /B.Command1 /C.Text1和Text2）
（2）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
___________________
If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Thennum = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + ____________________________
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss = ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）运行该程序，若文本框Text1中的内容是"April"，文本框Text2中的内容是”－3p+3ri－6e”，单击撤
销按钮，For循环语句执行完成后，字符串s的值是_____________。
15.小华使用Flash软件创作主题为“四季花香”的多媒体作品，如下图所示。
请回答下列问题：
（1）根据创作方法和特点划分，Flash软件属于以_________为基础的多媒体创作工具。（选填，填字母，A．页/B．图标和流程图/C．时间序列/D．程序语言）
（2）将动画GIF文件“蝴蝶．gif”导入库中直接得到一个影片剪辑元件，则该元件中动画的动画类型是
________。（选填，填字母，A．逐帧动画/B．形状补间动画/C．动画补间动画）
（3）测试影片时，为了使该场景动画播放完后能自动从本场景第1帧开始播放，可在______图层（填图层
名称）的第50帧添加动作脚本____________________。
（4）测试该场景时，“诗句”图层内容在播放完第40帧后消失，为了使该图层第40帧内容再延续1秒，
下列操作可行的是_________。（多选题，填字母）
A．选中“诗句”图层第41帧执行“清除关键帧”操作
B．将“诗句”图层第50帧执行“插入关键帧”操作
C．删除“诗句”图层第41帧，在第50帧执行“插入帧”操作
D．选中“诗句”图层第40帧执行“复制帧”操作，在第41帧执行“粘贴帧”操作
E．选中“诗句”图层第50帧执行“插入帧”操作，在第41帧执行“清除关键帧”操作）
（5）“暂停”按钮实例的动作脚本为on(press){stop();}，“继续”按钮实例的动作脚本为on(press)
{play();}，测试该场景，单击“暂停”按钮时动画和声音同时停止播放，单击“继续”按钮时动画和声音
同时继续播放，则“声音”图层中声音的同步属性为__________。
（6）测试影片时，弹出如下所示的错误提示窗口，由图中信息可知，该动作脚本设置在______上（选填，
按钮/关键帧）。
16.【加试题】小明基于冒泡排序思想设计了一个改进的排序算法。该算法先用冒泡法将数组a中奇数位置
的元素、偶数位置的元素分别进行排序，然后再进行后续处理。算法的VB程序段如下，但加框处代码有
错，请改正。
’待排序数据存储在数组a中（a（1）~ a（n）），要求升序排列
For i = 1 To (n - 1) \ 2
For j = 1 To n - i * 2
If a(j) > a(j + 1) Then ____________________________
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End IfNext j
Next i
For i = 1 To n \ 2
j = 2 * i - 1
If a(j) > a(j+1) Then t = a(j): a(j) = a(j+1): a(j+1) = t
Next i
For i = 1 To n Step 2 ________________________
t = a(i): j = i - 1
Do While t < a(j)
a(j + 1) = a(j): j = j - 1
Loop
a(j + 1) = t
Next i
17.【加试题】给定m个区间和1个数组（有n个元素），现要求根据各区间限定的取值范围，将数组依次
分隔成m+1个段。具体分割方法如下：
第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1
区间，则第1段元素个数为0；
第1段分割后的剩余元素，用同样的方法来依次分割第2段、第3段、…、第m段；
第m段分割后的剩余元素分割到第m+1段（剩余段）。
若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠
块”，该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间，这里特别规定：第m段的全部元
素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0，一个数组分段示例如下图。图中数组
第1个元素10不属于第1区间[0,5]，因此第1段的元素个数为0。10和20属于第2区间，而33不属于第2
区间，因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间，因此，第
3段“非重叠块”包含33,58,46，第3段“重叠块”包含55,62,69。
（1）给定2个区间依次为[10,50]、[30,80]，数组各元素为“12,44,34,45,66,50,45,70”，则第1段“重叠块”中的元素个数为_________个。
（2）小李根据上述描述，设计了一个统计各段“非重叠块”、“重叠块”和剩余段中元素个数的算法。
算
法的VB程序如下，请在划线处填入合适的代码。
Const n = 18, m = 6
Dim a(1 To n) As Integer
Dim b(1 To 2 * m) As Integer
'b(1)、b(2)为第1区间的下限和上限， b(3)、b(4)为第2区间的下限和上限，…
Dim c(1 To 2 * m + 1) As Integer
'数组c用于保存统计结果：
'c(1)、c(2)分别存储第1段“非重叠块”和“重叠块”的元素个数，
'c(3)、c(4)分别存储第2段“非重叠块”和“重叠块”的元素个数，…
'c(2m-1)存储第m段"非重叠块"元素个数，c(2m)存储第m段"重叠块"元素个数(值为0)
'c(2m+1)存储剩余段元素个数
Private Sub Command1_Click()
Dim i As Integer, p As Integer, L As Integer, LL As Integer
'读取n个数据并保存在数组a中，代码略
'读取m个区间的下限和上限并保存在数组b中，代码略
For i = 1 To 2 * m + 1
c(i) = 0
Next i
i = 1: p = 1
L = 0: LL = 0
Do While _________________
If IsIn(i, p) Then
If IsIn(i, p + 1) Then
LL = LL + 1
Else
______________
LL = 0
End Ifi = i + 1
Else
c(2 * p - 1) = L
c(2 * p) = LL
L = 0: LL = 0
p = p + 1
End If
Loop
If i <= n Then
c(2 * p - 1) = n - i + 1
Else
c(2 * p - 1) = L
c(2 * p) = LL
End If
'输出统计结果，代码略
End Sub
'函数IsIn用来判断a(i)值是否属于第p区间
Function IsIn(i As Integer, p As Integer) As Boolean
If p > m Then
IsIn = False
Else
If ____________________________ Then IsIn = True Else IsIn = False
End If
End Function2019 年 4 月浙江省普通高校招生选考科目考试
一、选择题
1.下列有关信息的说法，正确的是 （ ）
A. 计算机中的信息是以十六进制形式存储的 B. 计算机信息处理能力只与CPU有关
C. 离开计算机网络，信息便无法传递 D. 使用加密技术可以提高信息的安全性
【答案】D
【解析】
【详解】略
2.电子邮局协议（POP3）用于 （ ）
A. 从收件人电子邮件服务器中将邮件读到收件人计算机中
B. 从发件人计算机中将邮件发送到发件人电子邮件服务器中
C. 从发件人电子邮件服务器中将邮件发送到收件人电子邮件服务器中
D. 从发件人计算机中将邮件发送到收件人电子邮件服务器中
【答案】A
【解析】
【详解】略
3.下列应用中，没有体现人工智能技术的是 （ ）
A. 门禁系统通过指纹识别确认身份
B. 某软件将输入的语音自动转换为文字
C. 机器人导游回答游客的问题，并提供帮助
D. 通过键盘输入商品编码，屏幕上显示出相应价格
【答案】D
【解析】
【详解】略
4.下列关于Access数据表的说法，正确的是 （ ）
A. 数据表中的字段数可以为0
B. 同一数据表中各记录的字段数是相同的
C. 数据表中有记录时，该表的字段类型无法修改
D. 在数据表中不能通过“导入Excel电子表格”的操作来添加记录【答案】B
【解析】
【详解】略
5.将十六进制数56转换成8位二进制数，再将该8位二进制数从左向右按两位一组依次分为4组，每组中
的两位相互交换，得到新的8位二进制数，则新的8位二进制数对应的十六进制数是 （ ）
A. D0 B. 34 C. A9 D. 65
【答案】C
【解析】
【详解】略
6.某算法的部分流程图如第下图所示。执行这部分流程后，输出c,s的值分别是 （ ）
A. 8,10 B. 10,14 C. 12,6 D. 12,24
【答案】B
【解析】
【详解】略
7.使用GoldWave软件编辑某音频文件，选中其中一段音频后部分界面如下图所示。下列说法正确的是 （
）A. 执行“淡出”命令后直接保存，音频文件存储容量与原来一样
B. 执行“删除”命令后直接保存，音频文件存储容量与原来一样
C. 执行“插入静音”命令，设置时间为4秒后直接保存，音频文件存储容量与原来一样
D. 执行“更改音量”命令，将音量升高两倍后直接保存，音频文件存储容量是原来的两倍
【答案】A
【解析】
【详解】略
8.使用Photoshop软件制作“风筝”作品，部分界面如下图所示。下列说法正确的是（ ）
A. 不能将“知了”图层移动到“纸鸢”图层的下方
B. 使用“文字工具”可将“文字”图层中的汉字字体改为楷体
C. 执行“自由变换”命令可以改变“诗句”图层中文字大小
D. 将“背景”图层设置为不可见后，保存成的JPEG格式图像背景透明
【答案】C
【解析】【详解】略
9.使用Flash软件制作动画，将库中“停止”按钮元件应用于“Load”场景，其中该按钮元件的部分编辑界
面如下图所示。下列说法正确的是 （ ）
A. “停止”按钮元件“指针经过”帧中实例的宽高比被锁定，则该实例的大小不能被修改
B. 将“停止”按钮元件“文字”图层锁定后，不能对该图层“点击”帧执行“删除帧”操作
C. 修改“停止”按钮元件“背景”图层“弹起”帧中的内容，“Load”场景中该按钮实例随之变化
D. 测试影片，鼠标移动到“停止”按钮上时，该按钮外观会发生变化
【答案】C
【解析】
【详解】略
10.【加试题】一副未经压缩的1100×1024像素的BMP图像文件，其存储容量约为1.07MB，则该图像每个
像素色彩编码的位数为（ ）
A. 4 B. 8 C. 16 D. 24
【答案】B
【解析】
【详解】略
11.【加试题】有如下VB程序段：
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（ ）
A. 52，95，46，74，77，83 B. 50，55，46，70，21，97
C. 62，78，57，61，69，50 D. 31，54，48，72，50，82
【答案】C
【解析】
【详解】略
12.【加试题】有1个升序排列的数组a(a(1)～a(n)，n≥3)，从左到右相邻两个元素的差值（后一个元素值减
去前一个元素值）先由小到大、再由大到小，且相邻两个差值不相等，为了查找相邻两个元素的最大差值，
小李编写的VB程序段如下：
i = 1 ：j = n
Do While i + 1 < j
m = (i + j) \ 2
If a(m + 1) - a(m) > a(m) - a(m - 1) Then
Else
End if
Loop
Label1.Caption="相邻两个元素的最大差值是" + Str(a(j) - a(i))
上述程序段两个方框处的语句分别为（ ）
A. ① i = m ② j = m B. ① i = m ② j = m - 1
C. ① i = m + 1 ② j = m – 1 D. ① i = m + 1 ② j = m
【答案】A
【解析】
【详解】略
二、非选择题
13.小李收集了2018年浙江省各地区消费者信心指数数据，并使用Excel软件进行了数据处理。他将区域
B3:H3单元格格式设置为“数值”，并保留小数位数1位。如图a所示，请回答下列问题：（1）区域H3:H13的数据是通过公式计算得到的：在H3单元格中输入公式_________________,再利用自
动填充功能完成区域H4:H13的计算。
（2）区域A2:H13数据区域已进行了排序。排序时，选择的主要关键字为“第四季度增长率（%）”，次
要关键字选择“第四季度”，排序次序都为“降序”。按上述步骤正确操作后，排在第1位的地区是“衢
州”而不是“台州”，原因是____________________________________________。
(3)根据图a中的数据制作了图表，如图b所示，创建该图表的数据区域是______________
【答案】 (1). =(G3-E3)/E3*100 (2). H3单元格中的真实值大于H4单元格的真实值 (3). A2：A13
，E2 ：E13 ， G2 ：G13
【解析】
【详解】略14.小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串s进行插入或删除
时，将每步操作信息依次存储得到的，操作信息由操作符（“+”表示插入，“－”表示删除）、操作位置
和操作字符串（只包含英文字母）构成，例如，“+23abc”表示在字符串s第23个位插入了“abc”，“模拟
撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。对字符串“Book”的操作与
撤销过程，如下图所示。
小王编写的“模拟撤销”VB程序如下，文本框 Text1中的内容是撤销前字符串，文本概Text2中的内容是
历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如由下图所示。
（1）实观上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是______ 。（选填，填字码：
A.Label1 /B.Command1 /C.Text1和Text2）
（2）请在划线处填入合适代码。
Private Sub Command1_Click()
Dim s As String, t As String, ch As String
Dim c As String, num As String, ss As String
Dim n As Integer, i As Integer
s = Text1.Text: t = Text2.Text
c = "": num = "": ss = s
For i = Len(t) To 1 Step -1
___________________If ch >= "a" And ch <= "z" Or ch >= "A" And ch = "Z" Then
c = ch + c
ElseIf ch >= "0" And ch <= "9" Then
num = ch + num
Else
n = Val(num)
If ch = "－" Then
s = Mid(s, 1, n - 1) + ____________________________
Else
s = Mid(s, 1, n - 1) + Mid(s, n + Len(c), Len(s) - n - Len(c) + 1)
End If
ss = ss + "→" + s
c = "": num = ""
End If
Next i
Label1.Caption = ss
End Sub
（3）运行该程序，若文本框Text1中的内容是"April"，文本框Text2中的内容是”－3p+3ri－6e”，单击撤
销按钮，For循环语句执行完成后，字符串s的值是_____________。
【答案】 (1). C (2). ch = Mid(t,i,1) (3). c + Mid(s, n, Len(s) – n + 1) (4). ”Apple”
【解析】
【详解】略
15.小华使用Flash软件创作主题为“四季花香”的多媒体作品，如下图所示。请回答下列问题：
（1）根据创作方法和特点划分，Flash软件属于以_________为基础的多媒体创作工具。（选填，填字母，
A．页/B．图标和流程图/C．时间序列/D．程序语言）
（2）将动画GIF文件“蝴蝶．gif”导入库中直接得到一个影片剪辑元件，则该元件中动画的动画类型是
________。（选填，填字母，A．逐帧动画/B．形状补间动画/C．动画补间动画）
（3）测试影片时，为了使该场景动画播放完后能自动从本场景第1帧开始播放，可在______图层（填图层
名称）的第50帧添加动作脚本____________________。
（4）测试该场景时，“诗句”图层内容在播放完第40帧后消失，为了使该图层第40帧内容再延续1秒，
下列操作可行的是_________。（多选题，填字母）
A．选中“诗句”图层第41帧执行“清除关键帧”操作
B．将“诗句”图层第50帧执行“插入关键帧”操作
C．删除“诗句”图层第41帧，在第50帧执行“插入帧”操作
D．选中“诗句”图层第40帧执行“复制帧”操作，在第41帧执行“粘贴帧”操作
E．选中“诗句”图层第50帧执行“插入帧”操作，在第41帧执行“清除关键帧”操作）
（5）“暂停”按钮实例的动作脚本为on(press){stop();}，“继续”按钮实例的动作脚本为on(press)
{play();}，测试该场景，单击“暂停”按钮时动画和声音同时停止播放，单击“继续”按钮时动画和声音
同时继续播放，则“声音”图层中声音的同步属性为__________。
（6）测试影片时，弹出如下所示的错误提示窗口，由图中信息可知，该动作脚本设置在______上（选填，按钮/关键帧）。
【答案】 (1). C (2). A (3). 控制 (4). gotoAndPlay(1) (5). CE (6). 数据流 (7). 按钮
【解析】
【详解】略
16.【加试题】小明基于冒泡排序思想设计了一个改进的排序算法。该算法先用冒泡法将数组a中奇数位置
的元素、偶数位置的元素分别进行排序，然后再进行后续处理。算法的VB程序段如下，但加框处代码有
错，请改正。
’待排序数据存储在数组a中（a（1）~ a（n）），要求升序排列
For i = 1 To (n - 1) \ 2
For j = 1 To n - i * 2
If a(j) > a(j + 1) Then ____________________________
t = a(j): a(j) = a(j + 2): a(j + 2) = t
End If
Next j
Next i
For i = 1 To n \ 2
j = 2 * i - 1
If a(j) > a(j+1) Then t = a(j): a(j) = a(j+1): a(j+1) = t
Next i
For i = 1 To n Step 2 ________________________
t = a(i): j = i - 1
Do While t < a(j)
a(j + 1) = a(j): j = j - 1
Loop
a(j + 1) = t
Next i
【答案】 (1). a(j) > a(j + 2) (2). 3 To n【解析】
【详解】略
17.【加试题】给定m个区间和1个数组（有n个元素），现要求根据各区间限定的取值范围，将数组依次
分隔成m+1个段。具体分割方法如下：
第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1
区间，则第1段元素个数为0；
第1段分割后的剩余元素，用同样的方法来依次分割第2段、第3段、…、第m段；
第m段分割后的剩余元素分割到第m+1段（剩余段）。
若第p（1≤p≤m-1）段末尾连续元素的值也同时属于第p+1区间，则这块连续元素称为第p段“重叠
块”，该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间，这里特别规定：第m段的全部元
素都分割到m段“非重叠块”，第m段“重叠块”的元素个数为0，一个数组分段示例如下图。图中数组
第1个元素10不属于第1区间[0,5]，因此第1段的元素个数为0。10和20属于第2区间，而33不属于第2
区间，因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间，因此，第
3段“非重叠块”包含33,58,46，第3段“重叠块”包含55,62,69。
（1）给定2个区间依次为[10,50]、[30,80]，数组各元素为“12,44,34,45,66,50,45,70”，则第1段“重叠块”
中的元素个数为_________个。
（2）小李根据上述描述，设计了一个统计各段“非重叠块”、“重叠块”和剩余段中元素个数的算法。
算
法的VB程序如下，请在划线处填入合适的代码。
Const n = 18, m = 6
Dim a(1 To n) As Integer
Dim b(1 To 2 * m) As Integer
'b(1)、b(2)为第1区间的下限和上限， b(3)、b(4)为第2区间的下限和上限，…
Dim c(1 To 2 * m + 1) As Integer
'数组c用于保存统计结果：'c(1)、c(2)分别存储第1段“非重叠块”和“重叠块”的元素个数，
'c(3)、c(4)分别存储第2段“非重叠块”和“重叠块”的元素个数，…
'c(2m-1)存储第m段"非重叠块"元素个数，c(2m)存储第m段"重叠块"元素个数(值为0)
'c(2m+1)存储剩余段元素个数
Private Sub Command1_Click()
Dim i As Integer, p As Integer, L As Integer, LL As Integer
'读取n个数据并保存在数组a中，代码略
'读取m个区间的下限和上限并保存在数组b中，代码略
For i = 1 To 2 * m + 1
c(i) = 0
Next i
i = 1: p = 1
L = 0: LL = 0
Do While _________________
If IsIn(i, p) Then
If IsIn(i, p + 1) Then
LL = LL + 1
Else
______________
LL = 0
End If
i = i + 1
Else
c(2 * p - 1) = L
c(2 * p) = LL
L = 0: LL = 0
p = p + 1
End If
Loop
If i <= n Then
c(2 * p - 1) = n - i + 1
Elsec(2 * p - 1) = L
c(2 * p) = LL
End If
'输出统计结果，代码略
End Sub
'函数IsIn用来判断a(i)值是否属于第p区间
Function IsIn(i As Integer, p As Integer) As Boolean
If p > m Then
IsIn = False
Else
If ____________________________ Then IsIn = True Else IsIn = False
End If
End Function
【答案】 (1). 3 (2). i<=n And p<=m (3). L=L+LL+1 (4). a(i)>=b(2*p-1) And a(i)<=b(2*p)
【解析】
【详解】略
