浙江高三高中信息技术高考模拟带答案解析

浙江高三高中信息技术高考模拟
班级:___________ 姓名：___________ 分数：___________
一、选择题
1.2015年春节，全国观众在喜迎春节看春晚的同时，通过“微信”及时参与到春晚活动中，与春晚直播现场互动，这说明“微信”主要是一种：（ ） A ．信息的存储方式 B ．信息的表达技术 C ．信息的编码标准 D ．信息的转换技术
2.将图像a.bmp 、b.bmp 加工处理后得到c.bmp ，如图所示：
1024*768*24b a.bmp
800*600*24b b.bmp
1024*768*24b c.bmp
则下列说法正确的是：（ ）
A ．图像c.bmp 的像素个数为a.bmp 与b.bmp 的像素个数之和
B ．文件c.bmp 的存储容量为a.bmp 与b.bmp 的存储容量之和
C ．图像b.bmp 与c.bmp 的像素个数相等
D ．文件a.bmp 与c.bmp 的存储容量一样大
3.下列选项中比十六进制数1AFFH 大1的是：（ ） A ．1AFGH B ．1AGFH C ．1AG0H
D ．1B00H
4.小乐在使用Word2010软件的修订状态下编辑文档，部分界面如下图所示：
对于带框部分的文字，下列说法正确的是：（ ） A ．修订前的原文为：江山如画，望中烟树历历 B ．修订前的原文为：江山如画，望中烟树
C ．接受该处所有修订后，内容为：江山如画，望中烟树历历
D ．接受该处所有修订后，内容为：江山如画，望中烟树沥沥
5.某网站对用户搜索的笔记本型号进行分析，被搜索的次数越多表明这款笔记本被关注越多，被搜索的次数决定了其排行榜中的位置，如图所示，这种排名采用的因特网信息资源评价方式是：（
）
A．专家推荐B．统计评价C．核心刊物评价D．个人推荐
6.“Parkour”一词翻译成中文为“跑酷”，《地铁冲浪》就是一款流行的移动设备跑酷游戏，其软件开发团队在制作前先调查研究了用户对该产品的需求情况，这属于多媒体作品制作过程：（）
A．应用需求分析B．系统结构设计
C．创作需求分析D．功能模块设计
7.某中央处理器参数如下表所示：
A．CPU频率为3.2GHz体现了计算机运算速度快这一基本特征
B．“制作工艺22纳米”说明CPU的制造技术属于微电子技术
C．“四核心”表示这款CPU可以拆分为四个后分别使用
D．“酷睿i5 4570”指的是这款CPU的型号
8.下表中能用软件打开对应文件并进行编辑的是：（）
PhotoShop CS5Word 2010Access 2010会声会影Flash CS3
①②③④⑤
A．②③④ B．①③④ C．②③⑤ D．①④⑤
9.小陈申请了一个网银账号，登录网银账号时，要输入密码，一般情况下，如果密码输入的错误次数超过3次，那么当日网银账号将被锁定，次日自动解锁。

下图是登陆网银的流程图，小陈不小心输入密码错误了2次，第3次才
正确，那么她的操作流程应该是：（）
A．①②③①②③①②③④⑤
B．①②③①②③④⑤
C．①②③④⑤
D．①②③④⑤⑥
10.周敏同学利用音频处理软件对一段20秒的音频文件“伴奏.wav”进行如下操作：
①增加前10秒音频音量2dB
②将右声道设置为静音
③删除声音后5秒的音频
④保存处理后的音频文件
则处理后的音频文件与原文件的存储容量之比约为：（）
A．1:1B．1:2C．2:3D．3:4
11.若x表示能被5整除的正整数，则下面逻辑表达式的值一定为真的是：（）
A．Int(x / 5) = 0B．5 Mod x = 0
C．x Mod 5 = 0D．x\5 = 0
12.如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：（）
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 4
a(i) =" 2" * a(i - 1) + 1
Next i
List1.AddItem Str(a(i))
End Sub
A．
B．
C．
D．
13.有100个大小形状一样的透明玻璃球，其中有1个玻璃球的重量轻于其他99个玻璃球，小明想利用一台无砝码的天平，运用合理的算法保证一定能找出这颗轻玻璃球的最少的次数为：（）
A．100B．10C．8D．6
14.下列VB程序中，f是一个递归函数：
Private Sub Command1_Click()
Dim y As Integer
y = Val(Text1.Text)
Label1.Caption = Str(f(y))
End Sub
Function f(n As Integer) As Integer
If (n =" 1)" Or (n =" 2)" Then
f = 1
Else
f =" f(n" - 1) + f(n - 2)
End If
End Function
程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：（）
A．5B．8C．13D．21
二、操作题
1.小西利用Access 2010软件打开畅销书列表，界面如图1所示。

请回答下列问题：
（1）如图1所示，小西在创建这个数据表时把“最新出版”字段的数据类型设置为_______（填：日期时间/自动编号/数字），这张数据表里共有___________条记录。

（4分）
（2）小西将所有数据复制到Excel 2010工作表中并进行相关处理结果如图2所示，他想只显示所有“金额”低于30元的书籍记录，可使用_________（填：排序/筛选/查找）来实现。

（2分）
（3）如图2所示，小西为了计算表中书籍的平均价格，在D12单元格中输入“AVERAGE(D2:D11)”并确认后，D12单元格中显示的结果为____________。

（2分）
（4）小西想更加直观的分析下各款图书的价格对比情况，建立了如图3所示的柱形图。

从图中可以看出该图表的源数据区域是____________________。

（2分）
2.现要求编写VB程序（界面如图1所示），实现下列功能：计算一个大写字母在26个字母中的位次。

程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在26个字
母中的位次。

（1）在进行应用程序界面设计时，需要添加“计算”按钮，可使用如图2所示的“控件工具箱”中的
_______________（填写相应编号），并在如图3所示的“属性窗口”中，将__________属性值设置为“计算”。

（4分）
（2）该程序的源代码如下，请根据题意将代码中①处补充完整，使程序能正常运行。

（2分）
Private Sub Command1_Click()
Dim ch As String, pos As Integer
①= Text1.Text
pos =" Asc(ch)" – 64
Label2.Caption = "第" + Str(pos) + "个字母"
End Sub
3.羊年已经来到，小周同学利用Photoshop CS5制作了羊年新春贺卡赠送亲友，效果图如图1所示，图层窗口如图2所示，请回答下列问题
（1）“谨贺”图层所在的文字在效果图中显示偏小，可通过_______________（填：图像大小/自由变换/画布大小）命令的操作对该图层的图像进行适当的放大。

（2分）
（2）已知文字“2015年”采用的字体为“黑体”，能否使用文字工具将文字“羊年吉祥”设置为相同字体？
_____________（填：能/不能）。

（2分）
（3）效果图中右上角的红灯笼放置在“右灯笼”图层中，而左上角的红灯笼可通过以下几步操作得到：
①执行菜单命令【编辑】→【变换】→【水平翻转】
②复制“右灯笼”图层，得到一个新的图层，重命名为“左灯笼”
③将翻转后的新图像移动左上角适当位置
④选择“左灯笼”为当前层
请写出正确的操作步骤次序___________________________________。

（2分）
4.为了迎接一年一度的元宵佳节，小周同学使用Flash CS3软件制作了主题为“闹元宵”的多场景动画，某个场景制作界面如图所示，请回答下列问题。

（1）放置在“背景人物”图层的对象在动画播放到最后一帧时消失不见了，要解决这一问题，可在“背景人物”图层的第60帧上右击，然后在快捷菜单中选择_______________（填字母：A．删除帧 / B．清除关键帧
/ C．清除帧）。

（2分）
（2）“控制”图层的最后1帧放置了“重播”按钮，若要实现鼠标按下该按钮，动画重头播放该场景，需给“重播”按钮添加动作命令_______________。

（4分）
（3）“文字”图层第20到40帧上做形状补间没有成功，第20帧上舞台中的对象“愿你天天充满欢乐”如所示，可知导致该形状补间没有成功的原因_________。

（2分）
三、填空题
1.下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是____________________。

（2分）Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To 10 Step 2
If n Mod i =" 0" Then
c =" c" * i
Else
c =" c" + i
End If
Next i
Text1.Text = Str(c)
End Sub
2.辗转相除法，又名欧几里德算法（Euclidean algorithm），是求两个正整数最大公约数的算法。

它是已知最古
老的算法之一，其可追溯至3000年前。

用辗转相除法来得一个分数的约分后的最简形式的算法如下：
第一步：设两数为a、b，且令a>b；
第二步：a÷b，令r为所得余数，若r=0，算法结束，b 即为最大公约数；若r>0则a←b，b←r，并返回第二步；第三步：即为约分后的最简形式。

编写VB程序，程序运行界面如第6题图1所示，请根据算法将下列程序补充完整。

Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母，r为最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
If b =" 0" Then c = MsgBox("分母不能为0"): Exit Sub
'如果分母为0，则提示“分母不能为0”并退出该过程
r = ①（3分）
Text3.Text =" Str(a" / r)
Text4.Text =" Str(b" / r)
End Sub
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
'gys函数用于求最大公约数
Dim s As Integer
If m < n Then
t =" m:" m =" n:" n = t
End If
Do While n <> 0
s =" m" Mod n
m = n
n = s
Loop
②（3分）
End Function
3.小明利用所学的知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。

语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表
“Chinese”的结构如图1所示。

VB程序运行界面如图2所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0,则在列表框中显示“没有该等级的学生”。

按此要求编写程序如下，但加框处代码有错误，请改正。

Private Sub Command1_Click()
Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna
Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum
Dim i As Integer, j As Integer, n As Integer
Dim t As String
'连接数据库
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
cn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path +
"\stugrade.accdb"
cn.Open
strSQL = "select * from Chinese where 语文等级='" + Text1.Text + "'"
Set rs.ActiveConnection = cn
rs.Open strSQL
n = 0
Do While Not rs.EOF
n =" n" + 1
stuna(n) = rs.Fields("姓名").Value
stunum(n) = rs.Fields("学号").Value
rs.NextMove '①
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
List1.Clear '清除列表框
If n =" 0" Then
List1.AddItem "没有该等级的学生"
Else
For i =" 1" To n - 1 '按姓名排序
For j =" n" To i + 1 Step -1
If stuna(j) < stuna(j - 1) Then '②
t =" stunum(j):" stunum(j) =" stunum(j" - 1): stunum(j - 1) = t
t =" stuna(j):" stuna(j) =" stuna(j" - 1): stuna(j - 1) = t
End If
Next j
Next i
For i =" 1" To n
List1.AddItem stunum(i) + " " + stuna(i)
Next i
Label2.Caption = "该等级的学生共有" + Str(n) + "名"
End If
End Sub
（1）加框处①有错，应改为____________________________。

（3分）
（2）加框处②有错，应改为____________________________。

（3分）
浙江高三高中信息技术高考模拟答案及解析
一、选择题
1.2015年春节，全国观众在喜迎春节看春晚的同时，通过“微信”及时参与到春晚活动中，与春晚直播现场互动，这说明“微信”主要是一种：（）
A．信息的存储方式B．信息的表达技术
C．信息的编码标准D．信息的转换技术
【答案】B
【解析】本题考查信息的表达方式和表达技术，并结合目前流行的“微信”和一年一度的“春晚”，更让知识融入生活。

2.将图像a.bmp、b.bmp加工处理后得到c.bmp，如图所示：
1024*768*24b a.bmp 800*600*24b
b.bmp
1024*768*24b
c.bmp
则下列说法正确的是：（）
A．图像c.bmp的像素个数为a.bmp与b.bmp的像素个数之和
B．文件c.bmp的存储容量为a.bmp与b.bmp的存储容量之和
C．图像b.bmp与c.bmp的像素个数相等
D．文件a.bmp与c.bmp的存储容量一样大
【答案】D
【解析】本题考查图像的数字化概念和存储量大小的判断。

这个知识点属于常考题，只要掌握图像存储空间的计算公式，就能很快解答题目。

3.下列选项中比十六进制数1AFFH大1的是：（）
A．1AFGH B．1AGFH C．1AG0H D．1B00H
【答案】D
【解析】本题考查学生对进制转换和运算，涉及到十六进制的运算，对考生提出稍高的要求。

4.小乐在使用Word2010软件的修订状态下编辑文档，部分界面如下图所示：
对于带框部分的文字，下列说法正确的是：（）
A．修订前的原文为：江山如画，望中烟树历历
B．修订前的原文为：江山如画，望中烟树
C．接受该处所有修订后，内容为：江山如画，望中烟树历历
D．接受该处所有修订后，内容为：江山如画，望中烟树沥沥
【答案】C
【解析】本题考查Word中的修订功能，要求考生理解在修订状态下，插入和删除内容的区别。

采用Word2010版本截图，因此界面有所变化。

5.某网站对用户搜索的笔记本型号进行分析，被搜索的次数越多表明这款笔记本被关注越多，被搜索的次数决定了其排行榜中的位置，如图所示，这种排名采用的因特网信息资源评价方式是：（）
A．专家推荐B．统计评价C．核心刊物评价D．个人推荐
【答案】B
【解析】本题涉及因特网信息资源的评价，并结合相关案例来判断属于哪种方式，对考生要求相对较低，属于容易题。

6.“Parkour”一词翻译成中文为“跑酷”，《地铁冲浪》就是一款流行的移动设备跑酷游戏，其软件开发团队在
制作前先调查研究了用户对该产品的需求情况，这属于多媒体作品制作过程：（）
A．应用需求分析B．系统结构设计
C．创作需求分析D．功能模块设计
【答案】A
【解析】本题采用现在流行的“跑酷”一词，考查多媒体作品设计的步骤。

7.某中央处理器参数如下表所示：
A．CPU频率为3.2GHz体现了计算机运算速度快这一基本特征
B．“制作工艺22纳米”说明CPU的制造技术属于微电子技术
C．“四核心”表示这款CPU可以拆分为四个后分别使用
D．“酷睿i5 4570”指的是这款CPU的型号
【答案】C
【解析】本题涉及计算机的基本功能和特征，查考考生阅读产品说明书能力，以及对当下流行的硬件设备是否了解。

8.下表中能用软件打开对应文件并进行编辑的是：（）
PhotoShop CS5Word 2010Access 2010会声会影Flash CS3
【答案】D
【解析】本题考查多媒体数据文件以及相应的编辑软件，结合软件的图标和对应文件的图标，就该知识点对考生提出较为综合的要求。

9.小陈申请了一个网银账号，登录网银账号时，要输入密码，一般情况下，如果密码输入的错误次数超过3次，那么当日网银账号将被锁定，次日自动解锁。

下图是登陆网银的流程图，小陈不小心输入密码错误了2次，第3次才
正确，那么她的操作流程应该是：（）
A．①②③①②③①②③④⑤
B．①②③①②③④⑤
C．①②③④⑤
D．①②③④⑤⑥
【答案】A
【解析】本题结合日常生活中的例子，涉及算法的常用表示方法之一流程图的知识点，考查考生是否能根据题意读懂流程图。

10.周敏同学利用音频处理软件对一段20秒的音频文件“伴奏.wav”进行如下操作：
①增加前10秒音频音量2dB
②将右声道设置为静音
③删除声音后5秒的音频
④保存处理后的音频文件
则处理后的音频文件与原文件的存储容量之比约为：（）
A．1:1B．1:2C．2:3D．3:4
【答案】D
【解析】本题考查声音处理中，影响声音文件容量大小的因素。

同时，也是考查考生对声音文件容量大小计算公式的掌握程度。

11.若x表示能被5整除的正整数，则下面逻辑表达式的值一定为真的是：（）
A．Int(x / 5) = 0B．5 Mod x = 0
C．x Mod 5 = 0D．x\5 = 0
【答案】C
【解析】本题考查VB各类基本运算符、表达式和常用的标准函数，属于基本知识点的检测。

12.如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：（）
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 4
a(i) =" 2" * a(i - 1) + 1
Next i
List1.AddItem Str(a(i))
End Sub
A．
B．
C．
D．
【答案】B
【解析】本题考查VB应用程序的调试及运行，对常见编译错误的判断。

同时也涉及了For循环结束后循环变量的终值，数组运用等知识点，本题稍难，涉及知识面也很广，是对考生综合能力的考量。

13.有100个大小形状一样的透明玻璃球，其中有1个玻璃球的重量轻于其他99个玻璃球，小明想利用一台无砝码的天平，运用合理的算法保证一定能找出这颗轻玻璃球的最少的次数为：（）
A．100B．10C．8D．6
【答案】D
【解析】本题通过现实生活的例子来考查考生对常用算法思维的运用，根据题意涉及到的是对分查找的知识点。

14.下列VB程序中，f是一个递归函数：
Private Sub Command1_Click()
Dim y As Integer
y = Val(Text1.Text)
Label1.Caption = Str(f(y))
End Sub
Function f(n As Integer) As Integer
If (n =" 1)" Or (n =" 2)" Then
f = 1
Else
f =" f(n" - 1) + f(n - 2)
End If
End Function
程序运行时，在文本框中输入8，单击命令按钮Command1后，Label1中显示的内容是：（）
A．5B．8C．13D．21
【答案】D
【解析】本题涉及递归算法，递归算法是考生掌握起来相对困难的知识点，通过简单的实例，用来考查考生对该算法思想的理解程度。

二、操作题
1.小西利用Access 2010软件打开畅销书列表，界面如图1所示。

请回答下列问题：
（1）如图1所示，小西在创建这个数据表时把“最新出版”字段的数据类型设置为_______（填：日期时间/自动编号/数字），这张数据表里共有___________条记录。

（4分）
（2）小西将所有数据复制到Excel 2010工作表中并进行相关处理结果如图2所示，他想只显示所有“金额”低于30元的书籍记录，可使用_________（填：排序/筛选/查找）来实现。

（2分）
（3）如图2所示，小西为了计算表中书籍的平均价格，在D12单元格中输入“AVERAGE(D2:D11)”并确认后，D12单元格中显示的结果为____________。

（2分）
（4）小西想更加直观的分析下各款图书的价格对比情况，建立了如图3所示的柱形图。

从图中可以看出该图表的源数据区域是____________________。

（2分）
【答案】（1）日期时间 9 （2）筛选（3）AVERAGE（D2:D11）（4）A1：A10，D1：D10
【解析】本题涉及Access数据库和Excel电子表格相关知识，是对两个软件的综合应用，考查考生对图中提供的消息能否发现和相互关联。

2.现要求编写VB程序（界面如图1所示），实现下列功能：计算一个大写字母在26个字母中的位次。

程序运行时，在文本框Text1中输入一个大写英文字母，单击“计算”按钮Command1，在标签Label1上输出其在26个字
母中的位次。

（1）在进行应用程序界面设计时，需要添加“计算”按钮，可使用如图2所示的“控件工具箱”中的
_______________（填写相应编号），并在如图3所示的“属性窗口”中，将__________属性值设置为“计算”。

（4分）
（2）该程序的源代码如下，请根据题意将代码中①处补充完整，使程序能正常运行。

（2分）
Private Sub Command1_Click()
Dim ch As String, pos As Integer
①= Text1.Text
pos =" Asc(ch)" – 64
Label2.Caption = "第" + Str(pos) + "个字母"
End Sub
【答案】（1）3 Caption （2）ch
【解析】本题考查Visual Basic的界面设计，属性修改，和代码的阅读与填空，是对该软件的一个综合运用，考
虑到是学业水平考试，而且加试部分有该知识点难度的提升，所以此处命题难度相对降低。

3.羊年已经来到，小周同学利用Photoshop CS5制作了羊年新春贺卡赠送亲友，效果图如图1所示，图层窗口如
图2所示，请回答下列问题
（1）“谨贺”图层所在的文字在效果图中显示偏小，可通过_______________（填：图像大小/自由变换/画布大小）命令的操作对该图层的图像进行适当的放大。

（2分）
（2）已知文字“2015年”采用的字体为“黑体”，能否使用文字工具将文字“羊年吉祥”设置为相同字体？
_____________（填：能/不能）。

（2分）
（3）效果图中右上角的红灯笼放置在“右灯笼”图层中，而左上角的红灯笼可通过以下几步操作得到：
①执行菜单命令【编辑】→【变换】→【水平翻转】
②复制“右灯笼”图层，得到一个新的图层，重命名为“左灯笼”
③将翻转后的新图像移动左上角适当位置
④选择“左灯笼”为当前层
请写出正确的操作步骤次序___________________________________。

（2分）
【答案】（1）自由变换（2）不能（3）②④①③
【解析】本题主要涉及PhotoShop软件的图层操作，图像变换，文字工具等知识点，图层是PS中的一个核心内容，关于图层的操作也是每次考试必考内容，本题着重于图层的考查，也融入了其他相关内容。

4.为了迎接一年一度的元宵佳节，小周同学使用Flash CS3软件制作了主题为“闹元宵”的多场景动画，某个场
景制作界面如图所示，请回答下列问题。

（1）放置在“背景人物”图层的对象在动画播放到最后一帧时消失不见了，要解决这一问题，可在“背景人物”
图层的第60帧上右击，然后在快捷菜单中选择_______________（填字母：A．删除帧 / B．清除关键帧
/ C．清除帧）。

（2分）
（2）“控制”图层的最后1帧放置了“重播”按钮，若要实现鼠标按下该按钮，动画重头播放该场景，需给“重播”按钮添加动作命令_______________。

（4分）
（3）“文字”图层第20到40帧上做形状补间没有成功，第20帧上舞台中的对象“愿你天天充满欢乐”如所示，可知导致该形状补间没有成功的原因_________。

（2分）
【答案】（1）B （2）on(press){gotoAndPlay(1);} （3）形状补间动画需要对象是散点图（或者使对象分离）
【解析】本题涉及Flash CS3的时间轴，帧，动作代码和补间动画等知识点，考查考生对该软件的综合运用能力，在命题中，适当增加了难度，加入了动作代码的编写，同时也对动画制作过程中，如何修改操作上的错误提出了要求。

三、填空题
1.下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是____________________。

（2分）Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To 10 Step 2
If n Mod i =" 0" Then
c =" c" * i
Else
c =" c" + i
End If
Next i
Text1.Text = Str(c)
End Sub
【答案】31
【解析】本题涉及For循环语句和IF选择语句的嵌套应用，是对考生基本知识的考查，作为主观题的第一小题，
难度相对较低，较容易得分。

2.辗转相除法，又名欧几里德算法（Euclidean algorithm），是求两个正整数最大公约数的算法。

它是已知最古
老的算法之一，其可追溯至3000年前。

用辗转相除法来得一个分数的约分后的最简形式的算法如下：
第一步：设两数为a、b，且令a>b；
第二步：a÷b，令r为所得余数，若r=0，算法结束，b 即为最大公约数；若r>0则a←b，b←r，并返回第二步；第三步：即为约分后的最简形式。

编写VB程序，程序运行界面如第6题图1所示，请根据算法将下列程序补充完整。

Private Sub Command1_Click()
Dim a As Integer, b As Integer, r As Integer 'a、b为分子和分母，r为最大公约数
a = Val(Text1.Text)
b = Val(Text2.Text)
If b =" 0" Then c = MsgBox("分母不能为0"): Exit Sub
'如果分母为0，则提示“分母不能为0”并退出该过程
r = ①（3分）
Text3.Text =" Str(a" / r)
Text4.Text =" Str(b" / r)
End Sub
Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
'gys函数用于求最大公约数
Dim s As Integer
If m < n Then
t =" m:" m =" n:" n = t
End If
Do While n <> 0
s =" m" Mod n
m = n
n = s
Loop
②（3分）
End Function
【答案】①gys(a, b)②gys = m
【解析】本题以欧几里德算法为背景，来解决一个在生活中非常普遍的问题——约分。

在题意中，通过自然语言描述算法，考生可以根据题意了解该算法的基本原理，并对解题提供一定的帮助信息。

涉及到自定义函数，Do循环
语句等知识点，同时也考查考生对自然语言转换为VB程序代码的能力。

3.小明利用所学的知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等
级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。

语文学考成绩
分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表
“Chinese”的结构如图1所示。

VB程序运行界面如图2所示，在文本框Text1中输入查询的等级，单击“查询”按钮Command1，在列表框List1中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生的人数，如果人数为0,则在列表框中显示“没有该等级的学生”。

按此要求编写程序如下，但加框处代码有错误，请改正。

Private Sub Command1_Click()
Dim stuna(1 To 100) As String '存放学生姓名的数组定义为stuna
Dim stunum(1 To 100) As String '存放学生学号的数组定义为stunum
Dim i As Integer, j As Integer, n As Integer
Dim t As String
'连接数据库
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
cn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path +
"\stugrade.accdb"
cn.Open
strSQL = "select * from Chinese where 语文等级='" + Text1.Text + "'"
Set rs.ActiveConnection = cn
rs.Open strSQL
n = 0
Do While Not rs.EOF
n =" n" + 1
stuna(n) = rs.Fields("姓名").Value
stunum(n) = rs.Fields("学号").Value
rs.NextMove '①
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
List1.Clear '清除列表框
If n =" 0" Then
List1.AddItem "没有该等级的学生"
Else
For i =" 1" To n - 1 '按姓名排序
For j =" n" To i + 1 Step -1
If stuna(j) < stuna(j - 1) Then '②
t =" stunum(j):" stunum(j) =" stunum(j" - 1): stunum(j - 1) = t
t =" stuna(j):" stuna(j) =" stuna(j" - 1): stuna(j - 1) = t
End If
Next j
Next i
For i =" 1" To n
List1.AddItem stunum(i) + " " + stuna(i)
Next i
Label2.Caption = "该等级的学生共有" + Str(n) + "名"
End If
End Sub
（1）加框处①有错，应改为____________________________。

（3分）
（2）加框处②有错，应改为____________________________。

（3分）
【答案】①rs.MoveNext②stunum(j)<stunum(j-1)
【解析】通过一个学考等级查询系统，把Access数据库，通过ADO对象连接数据库以及冒泡排序等知识点串联在
一起，是对考生VB访问数据库的综合考查。

作为本次考试命题的最后一题，本题涉及到知识面较广，难度也较大，对考生也提出更高的要求。