资源简介

浙江省杭州市建人高复2021届高三上学期信息技术第一次考试试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2020高三上·杭州月考）下列关于信息与信息技术的说法，正确的是(　　)
A．书本属于信息的载体，书本上的文字属于信息
B．信息必须依附于某种载体，它不可以脱离它所反映的事物被存储和传播
C．由于电子计算机出现于近代，所以信息技术是近代才出现的
D．现代信息技术以微电子和光电子技术为基础，以计算机和通信技术为支撑
2．（2020高三上·杭州月考）浏览某网页的部分界面如图所示，下列说法不正确的是(　　)
A．该网页中包含超链接
B．当前访问的URL为http：//news./world/
C．该网页用HTML语言进行描述和编写
D．当前访问的页面需用超文本传输协议进行传输
3．（2020高三上·杭州月考）下列有关Access数据库和数据表的说法，正确的是(　　)
A．Access软件属于大型数据库管理系统软件
B．用户访问数据库文件无权限限制
C．一个数据库文件中字段名不能相问
D．数据表中的数据既相对独立又有关联
4．（2020高三上·杭州月考）有效位数为10位的十六进制数，转换成二进制数后，该二进制有效位数不可能的是(　　)
A．41位 B．40位 C．39位 D．38位
5．（2020高三上·杭州月考）使用Photoshop软件制作“渔舟唱晚"作品，部分界面如图所示。下列说法正确的是(　　)
A．使用文字工具仅将“古诗”图层中文字“散”设置为红色
B．“白鹭”图层被隐藏了。该图层将不能添加图层样式
C．使用“自由变换”命令更改“小舟”图层中图像的大小
D．“背景”图层不能被移动，也不可以删除
6．（2020高三上·杭州月考）时长为30秒、800*600像素，16你色，25帧/秒的未经压缩的AVI格式无声视频文件，使用视频编辑软件进行压缩后，其部分配置属性如图所示，则其乐缩比约为：（　　）
A．6：1 B．80：1 C．160：1 D．1250：1
7．（2020高三上·杭州月考）有如下程序段
Dim i As Integer， s As String， n As Integer
i =2：s=""； n= 100
Do While i< = n
If Then s =s + Str(i)
i=i+1
Loop
用下列表达式替换方框处表达式后，不能实现原程序功能的是(　　)
A．iMod10<1 B．i/10=int(i/10)
C．i/10=i\10 D．imod2=0orimod5=0
8．（2020高三上·杭州月考）某算法的部分流程图如图所示，执行这部分流程后，输出的c的值是(　　)
A．10 B．4 C．3 D．2
9．（2020高三上·杭州月考）有如下VB程序段：
'生成6个随机正整数，依次存入数组元素a (1)到a (6)中
For i=1 To 2
For j=6 To i+1 Step-1
If a(j) Mod 2>a(j-1) Mod 2 Then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
执行上述程序段后，a (1)到a (6)各元素值依次为3，1，4，3，7，6，下列选项不是排序前a(1)到a(6)各元素值依次元素值的(　　)
A．3，1，4，3，6，7 B．4，3，1，3，6，7
C．3，4，1，3，6，7 D．4，3，1，3，7，6
10．（2020高三上·杭州月考）有如下VB程序段：
s =“312321”：m=0：c=“”：k=1
For i=1 To Len(s)
m=m+k
If k=1 Then c=Mid(s，n，1)+c Else c=c+ Mid(s，m，1)
If i Mod 3=0 Then k=-k：m=Len(s)+1
Next i
执行该程序段后。变量c的值是(　　)
A．”213321” B．”213123" C．”312123" D．”312213 "
11．（2020高三上·杭州月考）有如下VB程序段：
Const n = 50
Din a(1 To n) As Integer， b(1 To 10) As Integer， k As Integer
k=n\ 10
For i=1 To n
a(i) = Int (Rnd * 10) + 1
Next i
For i=1 To k
For j=I To n Step k
b(i) = b(i) + a(j)
Next j
Next i
执行该程序段后，b(1)~b(5)各元素值不可能的是(　　)
A．0，60，32，50，150 B．10，40，70，100，130
C．5，5，55，75，100 D．2，5，8，11，14
12．（2020高三上·杭州月考）某对分查找算法的VB程序段如下：
s=0；i=1：j=7
Do While i<=j
m=(i+j)\2
If Key = a(mi) Then Exit Do
If Key < a(m) Then j=m-1：s=3ks+2Else i=m+1：s=3ks
Loop
数组a(1)到a(10)的值依次为“2，6，7，15，20，24，27”，执行该程序段后，s的值为6，则key的值可能是(　　)
A．6或23 B．7或2 C．6或20 D．7或23
二、非选择题 (本大题共4小题，4+8+7+7，共26分)
13．（2020高三上·杭州月考）小林用Excel软件统计某校食堂就餐情况，如图a所示。请回答下列问题：
（1）区域M4：M129的数据通过公式计算得到(其中0表示未用餐，1表示用餐)，在M4单元格中输入计算学生未就餐次数的公式，再利用自动填充功能完成区域M5：MI 29的计算，则M4单元格中的公式为　 　(多选，填字母：A ．=SUM(C4；L4)；B ．=10-SM(C4；L4)；C ．=10-SM($C$4：$L$4)；D ．=OOUNTIF(C4；L4，"<=1")；E ．=OOUNTIF(C4；L4，"<1")；F ．=COLNTIF(C$4；L$4，"=0")
(提示： OOUNTIF丽数用于统计某个区域满足条件的单元格个数。例如：=OOUNTIF (B4：B20，"<100")表示在数据区域B4：B20中统计数值小于100的单元格个数。)
（2）若将C129单元格数据被误删，则C130单元格中的数据将　 　 (单选，填字母：A .变大\B .变小\C .不变)。
（3）要将图a数据按班级进行排序，则选择的数据区域为　 　。
14．（2020高三上·杭州月考）创作多媒体作品，用Photoshop处理图像，Flash 软件进行合成，请回答下列问题。
（1）多媒体处理软件Photoshop和Flash会将各元素分别放在不同的图层中进行处理，制作完成后，依次将作品导出为BMIP和SWF格式文件。下列关于图层的描述不恰当是　 　(多选，填字母：A .图层都能方便设置图层中图像的大小、颜色和位置/B .导出的文件存储容量都由图层数量决定/C .放置图像的图层被隐藏后，导出都将不可见/D .导出的文件打开后图层的参数信息都会丢失/E .图层都可以存放文字和声音素材。
（2）用Flash合成动画界面如下图所示，在当前状态下，若要使动画捕放的时间变为原来一倍，可将帧频修改为　 　fps。
（3）若要制作从第41帧到第60帧的动画补间，实现“云"实例向右下方移动并由完全显示到完全透明的渐变动画效果，进行$如下操作步骤，请完成划线处的操作过程：
①在“云”图层第60帧执行插入　 　 (选填：关键帧\空白关键帧\帧)：
②在“云”图层第60帧将库中“云”元件应用到舞台，并放置在恰当的位置：　 　。
（4）测试影片时，单击“空气运动”按钮，停止当前场景声音的播放，然后跳转到“空气运动”场景第1帧继续播放动画，并播放“空气运动”场景的音乐，则该“进入”按钮的动作脚本是on
(press){　 　}。
15．（2020高三上·杭州月考）小王基于选择排序算法编写了一个VB程序，功能如下：数组a有n*n个元素，按列进行升序排序，例如6*6的数组，第一列将a(1)，a(7)，a(13)，a(19)，a(25)，a(31)进行排序。运行程序，在列表概List1中显示n*n个数列单击“排序"按钮Command1，在列表概List2中显示排序后的结果，程序运行界面如图a所示。
图a
（1）若要修改按钮上文字“排序”字体的字号，可以修改Command1对象中的　 　属性(单选。填字母：A . Caption /B . BackColor/ C . Font)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n=6
Dina(1 To n*n)As Integer
Private Sub Form_Load() ' 产生n*n个数组元素，每行按n个数显示在list1中
Din i As Integer， s As String
　 　
For i=2 To n* n
a(i)=Int(Rnd*90)+10
s =s+ Str(a(i))
If i Mod n = 0 Then List1.AddItem s： s =“”
Next i
End Sub
Private Sub Comnand1_ Click()
Dim i As Integer， j As Integer， k As Integer
For i = 1 To n*n
k= i
For j=　 　 To i+n step -n
If a(k) > a(j) Then k= j
Next j
If Then t= a(k)： a(k) = a(i)： a(i) =t
Next i
‘将排序后数组a的元素，每行按n个数显示在list2中．
End Sub
（3）若要实现仅对偶数列进行升序排列，加框处的表达式应改为　 　。
16．（2020高三上·杭州月考）给定一个数组(有n个元素)，小李通过边分段、边合并的方式将n个数据处理成一个非降序数据段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一轮数据处理方法如下：
1)查找相邻两个非降序数据段：在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后面没有元素，则本轮处理完毕：否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。
2)合并两个数据段：借助数组tmp．将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。
3)若数组中还有未处理的数据，则重复(1)(2)步骤。每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据已构成非降序数据段，数据处理结束。
（1）根据上述描述，若数组各元素为“3，9，7，6，8，2，1，5，7，4”，则第一轮合并处理完成后，数组中的数据依次是：　 　(用“，”间隔)。
（2）实现上述功能的VB程序如下．请在划线处填入合适代码。
Const n = 10
Dim a(1 To n + 5) As Integer
Din tmp(1 To n + 5) As Integer
'读取n个整数保存到数组a中，并在文本概Text1中显示，代码略。
Private Sub Comnand1_ Click()
Do While True
If Not Merge() Then Exit Do
'在列表概List1中输出这一轮合并后的数据，代码略。
Loop
End Sub
Function Position(low As Integer) As Integer
Din i As Int eger
For i=low To n-1
If 　 　 Then Exit For
Next i
Position = i
End Function
Function Merge() As Bool ean
Dim i As Integer， flag As Boolean， p1 As Integer， p2 As Integer
Dim low1 As Integer， high1 As Integer， high2 As Integer
flag = False： low1= 1
Do While low1 < n
high1 = Position(low1)
If high1 = n Then Exit Do Else flag = True
high2 = Position(high1 + 1)
p1=low1：p2=high1+1
i = low1
Do While 　 　
If p2>high2 Or p1 <= high1 And a(p1) < a(p2) Then
tmp(i)=a(p1)：p1=p1+1
Else
tmp(i)=a(p2)：p2=p2+1
End If
i =i+1
Loop
For i = low1 To high2
a(i) = tmp(i)
Next i
　 　
Loop
Merge = flag
End Function
答案解析部分
1．【答案】D
【知识点】信息及其特征；信息技术的概念与关键技术；信息表达方式与表达技术
2．【答案】B
【知识点】网络协议；网页、网站的概念与联系；网页标记语言及基本组成；计算机语言
3．【答案】D
【知识点】数据库的分类与应用；数据表、字段、记录的概念
4．【答案】A
【知识点】进制及数制转换
5．【答案】A
【知识点】图层及图层的基本操作
6．【答案】C
【知识点】声音、图像、视频编码
7．【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
8．【答案】C
【知识点】流程图识读
9．【答案】A
【知识点】排序算法及程序实现
10．【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．【答案】C
【知识点】循环结构语句及程序实现
12．【答案】D
【知识点】查找算法及程序实现
13．【答案】（1）BE
（2）B
（3）A3:L129 或A3：M129
【知识点】表格数据的处理与计算
14．【答案】（1）BCE
（2）6
（3）空白关键帧；将云实例的alpha值变为0，并选第41帧设置动画补间
（4）stopAllsounds();gotoandplay(“空气运动”,1)
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．【答案】（1）C
（2）s=str(a(1))；（i-1）mod n +31 或（i-1）mod n +1 +n*(n-1)
（3）i mod 2=0 and b(k)<>b(i)
【知识点】排序算法及程序实现
16．【答案】（1）3，7，9，2，6，8，1，4，5，7
（2）a(i) > a(i + 1)；p1 <= high1 Or p2 <= high2或i <= high2；i = high2 + 1
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1浙江省杭州市建人高复2021届高三上学期信息技术第一次考试试卷
一、选择题(本大题共12小题，每小题2分，共24分)
1．（2020高三上·杭州月考）下列关于信息与信息技术的说法，正确的是(　　)
A．书本属于信息的载体，书本上的文字属于信息
B．信息必须依附于某种载体，它不可以脱离它所反映的事物被存储和传播
C．由于电子计算机出现于近代，所以信息技术是近代才出现的
D．现代信息技术以微电子和光电子技术为基础，以计算机和通信技术为支撑
【答案】D
【知识点】信息及其特征；信息技术的概念与关键技术；信息表达方式与表达技术
2．（2020高三上·杭州月考）浏览某网页的部分界面如图所示，下列说法不正确的是(　　)
A．该网页中包含超链接
B．当前访问的URL为http：//news./world/
C．该网页用HTML语言进行描述和编写
D．当前访问的页面需用超文本传输协议进行传输
【答案】B
【知识点】网络协议；网页、网站的概念与联系；网页标记语言及基本组成；计算机语言
3．（2020高三上·杭州月考）下列有关Access数据库和数据表的说法，正确的是(　　)
A．Access软件属于大型数据库管理系统软件
B．用户访问数据库文件无权限限制
C．一个数据库文件中字段名不能相问
D．数据表中的数据既相对独立又有关联
【答案】D
【知识点】数据库的分类与应用；数据表、字段、记录的概念
4．（2020高三上·杭州月考）有效位数为10位的十六进制数，转换成二进制数后，该二进制有效位数不可能的是(　　)
A．41位 B．40位 C．39位 D．38位
【答案】A
【知识点】进制及数制转换
5．（2020高三上·杭州月考）使用Photoshop软件制作“渔舟唱晚"作品，部分界面如图所示。下列说法正确的是(　　)
A．使用文字工具仅将“古诗”图层中文字“散”设置为红色
B．“白鹭”图层被隐藏了。该图层将不能添加图层样式
C．使用“自由变换”命令更改“小舟”图层中图像的大小
D．“背景”图层不能被移动，也不可以删除
【答案】A
【知识点】图层及图层的基本操作
6．（2020高三上·杭州月考）时长为30秒、800*600像素，16你色，25帧/秒的未经压缩的AVI格式无声视频文件，使用视频编辑软件进行压缩后，其部分配置属性如图所示，则其乐缩比约为：（　　）
A．6：1 B．80：1 C．160：1 D．1250：1
【答案】C
【知识点】声音、图像、视频编码
7．（2020高三上·杭州月考）有如下程序段
Dim i As Integer， s As String， n As Integer
i =2：s=""； n= 100
Do While i< = n
If Then s =s + Str(i)
i=i+1
Loop
用下列表达式替换方框处表达式后，不能实现原程序功能的是(　　)
A．iMod10<1 B．i/10=int(i/10)
C．i/10=i\10 D．imod2=0orimod5=0
【答案】D
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
8．（2020高三上·杭州月考）某算法的部分流程图如图所示，执行这部分流程后，输出的c的值是(　　)
A．10 B．4 C．3 D．2
【答案】C
【知识点】流程图识读
9．（2020高三上·杭州月考）有如下VB程序段：
'生成6个随机正整数，依次存入数组元素a (1)到a (6)中
For i=1 To 2
For j=6 To i+1 Step-1
If a(j) Mod 2>a(j-1) Mod 2 Then
t=a(j)：a(j)=a(j-1)：a(j-1)=t
End If
Next j
Next i
执行上述程序段后，a (1)到a (6)各元素值依次为3，1，4，3，7，6，下列选项不是排序前a(1)到a(6)各元素值依次元素值的(　　)
A．3，1，4，3，6，7 B．4，3，1，3，6，7
C．3，4，1，3，6，7 D．4，3，1，3，7，6
【答案】A
【知识点】排序算法及程序实现
10．（2020高三上·杭州月考）有如下VB程序段：
s =“312321”：m=0：c=“”：k=1
For i=1 To Len(s)
m=m+k
If k=1 Then c=Mid(s，n，1)+c Else c=c+ Mid(s，m，1)
If i Mod 3=0 Then k=-k：m=Len(s)+1
Next i
执行该程序段后。变量c的值是(　　)
A．”213321” B．”213123" C．”312123" D．”312213 "
【答案】B
【知识点】分支结构语句及程序实现；循环结构语句及程序实现
11．（2020高三上·杭州月考）有如下VB程序段：
Const n = 50
Din a(1 To n) As Integer， b(1 To 10) As Integer， k As Integer
k=n\ 10
For i=1 To n
a(i) = Int (Rnd * 10) + 1
Next i
For i=1 To k
For j=I To n Step k
b(i) = b(i) + a(j)
Next j
Next i
执行该程序段后，b(1)~b(5)各元素值不可能的是(　　)
A．0，60，32，50，150 B．10，40，70，100，130
C．5，5，55，75，100 D．2，5，8，11，14
【答案】C
【知识点】循环结构语句及程序实现
12．（2020高三上·杭州月考）某对分查找算法的VB程序段如下：
s=0；i=1：j=7
Do While i<=j
m=(i+j)\2
If Key = a(mi) Then Exit Do
If Key < a(m) Then j=m-1：s=3ks+2Else i=m+1：s=3ks
Loop
数组a(1)到a(10)的值依次为“2，6，7，15，20，24，27”，执行该程序段后，s的值为6，则key的值可能是(　　)
A．6或23 B．7或2 C．6或20 D．7或23
【答案】D
【知识点】查找算法及程序实现
二、非选择题 (本大题共4小题，4+8+7+7，共26分)
13．（2020高三上·杭州月考）小林用Excel软件统计某校食堂就餐情况，如图a所示。请回答下列问题：
（1）区域M4：M129的数据通过公式计算得到(其中0表示未用餐，1表示用餐)，在M4单元格中输入计算学生未就餐次数的公式，再利用自动填充功能完成区域M5：MI 29的计算，则M4单元格中的公式为　 　(多选，填字母：A ．=SUM(C4；L4)；B ．=10-SM(C4；L4)；C ．=10-SM($C$4：$L$4)；D ．=OOUNTIF(C4；L4，"<=1")；E ．=OOUNTIF(C4；L4，"<1")；F ．=COLNTIF(C$4；L$4，"=0")
(提示： OOUNTIF丽数用于统计某个区域满足条件的单元格个数。例如：=OOUNTIF (B4：B20，"<100")表示在数据区域B4：B20中统计数值小于100的单元格个数。)
（2）若将C129单元格数据被误删，则C130单元格中的数据将　 　 (单选，填字母：A .变大\B .变小\C .不变)。
（3）要将图a数据按班级进行排序，则选择的数据区域为　 　。
【答案】（1）BE
（2）B
（3）A3:L129 或A3：M129
【知识点】表格数据的处理与计算
14．（2020高三上·杭州月考）创作多媒体作品，用Photoshop处理图像，Flash 软件进行合成，请回答下列问题。
（1）多媒体处理软件Photoshop和Flash会将各元素分别放在不同的图层中进行处理，制作完成后，依次将作品导出为BMIP和SWF格式文件。下列关于图层的描述不恰当是　 　(多选，填字母：A .图层都能方便设置图层中图像的大小、颜色和位置/B .导出的文件存储容量都由图层数量决定/C .放置图像的图层被隐藏后，导出都将不可见/D .导出的文件打开后图层的参数信息都会丢失/E .图层都可以存放文字和声音素材。
（2）用Flash合成动画界面如下图所示，在当前状态下，若要使动画捕放的时间变为原来一倍，可将帧频修改为　 　fps。
（3）若要制作从第41帧到第60帧的动画补间，实现“云"实例向右下方移动并由完全显示到完全透明的渐变动画效果，进行$如下操作步骤，请完成划线处的操作过程：
①在“云”图层第60帧执行插入　 　 (选填：关键帧\空白关键帧\帧)：
②在“云”图层第60帧将库中“云”元件应用到舞台，并放置在恰当的位置：　 　。
（4）测试影片时，单击“空气运动”按钮，停止当前场景声音的播放，然后跳转到“空气运动”场景第1帧继续播放动画，并播放“空气运动”场景的音乐，则该“进入”按钮的动作脚本是on
(press){　 　}。
【答案】（1）BCE
（2）6
（3）空白关键帧；将云实例的alpha值变为0，并选第41帧设置动画补间
（4）stopAllsounds();gotoandplay(“空气运动”,1)
【知识点】图层及图层的基本操作；时间轴、帧、图层、库的概念及基本操作；常用影片控制函数的应用
15．（2020高三上·杭州月考）小王基于选择排序算法编写了一个VB程序，功能如下：数组a有n*n个元素，按列进行升序排序，例如6*6的数组，第一列将a(1)，a(7)，a(13)，a(19)，a(25)，a(31)进行排序。运行程序，在列表概List1中显示n*n个数列单击“排序"按钮Command1，在列表概List2中显示排序后的结果，程序运行界面如图a所示。
图a
（1）若要修改按钮上文字“排序”字体的字号，可以修改Command1对象中的　 　属性(单选。填字母：A . Caption /B . BackColor/ C . Font)
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n=6
Dina(1 To n*n)As Integer
Private Sub Form_Load() ' 产生n*n个数组元素，每行按n个数显示在list1中
Din i As Integer， s As String
　 　
For i=2 To n* n
a(i)=Int(Rnd*90)+10
s =s+ Str(a(i))
If i Mod n = 0 Then List1.AddItem s： s =“”
Next i
End Sub
Private Sub Comnand1_ Click()
Dim i As Integer， j As Integer， k As Integer
For i = 1 To n*n
k= i
For j=　 　 To i+n step -n
If a(k) > a(j) Then k= j
Next j
If Then t= a(k)： a(k) = a(i)： a(i) =t
Next i
‘将排序后数组a的元素，每行按n个数显示在list2中．
End Sub
（3）若要实现仅对偶数列进行升序排列，加框处的表达式应改为　 　。
【答案】（1）C
（2）s=str(a(1))；（i-1）mod n +31 或（i-1）mod n +1 +n*(n-1)
（3）i mod 2=0 and b(k)<>b(i)
【知识点】排序算法及程序实现
16．（2020高三上·杭州月考）给定一个数组(有n个元素)，小李通过边分段、边合并的方式将n个数据处理成一个非降序数据段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一轮数据处理方法如下：
1)查找相邻两个非降序数据段：在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后面没有元素，则本轮处理完毕：否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。
2)合并两个数据段：借助数组tmp．将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。
3)若数组中还有未处理的数据，则重复(1)(2)步骤。每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据已构成非降序数据段，数据处理结束。
（1）根据上述描述，若数组各元素为“3，9，7，6，8，2，1，5，7，4”，则第一轮合并处理完成后，数组中的数据依次是：　 　(用“，”间隔)。
（2）实现上述功能的VB程序如下．请在划线处填入合适代码。
Const n = 10
Dim a(1 To n + 5) As Integer
Din tmp(1 To n + 5) As Integer
'读取n个整数保存到数组a中，并在文本概Text1中显示，代码略。
Private Sub Comnand1_ Click()
Do While True
If Not Merge() Then Exit Do
'在列表概List1中输出这一轮合并后的数据，代码略。
Loop
End Sub
Function Position(low As Integer) As Integer
Din i As Int eger
For i=low To n-1
If 　 　 Then Exit For
Next i
Position = i
End Function
Function Merge() As Bool ean
Dim i As Integer， flag As Boolean， p1 As Integer， p2 As Integer
Dim low1 As Integer， high1 As Integer， high2 As Integer
flag = False： low1= 1
Do While low1 < n
high1 = Position(low1)
If high1 = n Then Exit Do Else flag = True
high2 = Position(high1 + 1)
p1=low1：p2=high1+1
i = low1
Do While 　 　
If p2>high2 Or p1 <= high1 And a(p1) < a(p2) Then
tmp(i)=a(p1)：p1=p1+1
Else
tmp(i)=a(p2)：p2=p2+1
End If
i =i+1
Loop
For i = low1 To high2
a(i) = tmp(i)
Next i
　 　
Loop
Merge = flag
End Function
【答案】（1）3，7，9，2，6，8，1，4，5，7
（2）a(i) > a(i + 1)；p1 <= high1 Or p2 <= high2或i <= high2；i = high2 + 1
【知识点】过程与自定义函数；分支结构语句及程序实现；循环结构语句及程序实现
1 / 1

展开更多......

收起↑