高中信息技术-VB查找算法与程序实现-浏览题阅览题-会考复习题.pdf

《高中信息技术-VB查找算法与程序实现-浏览题阅览题-会考复习题.pdf》由会员分享，可在线阅读，更多相关《高中信息技术-VB查找算法与程序实现-浏览题阅览题-会考复习题.pdf（21页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、高中信息技术高中信息技术 VBVB 查找算法与程序实现查找算法与程序实现 浏览题阅览题浏览题阅览题 会考会考复习题复习题评卷人学校:_姓名：_班级：_考号：_得分一、选择题一、选择题1 1用对分查找法从数列用对分查找法从数列 3 3、6 6、7 7、1010、1212、1616、2525、3030、7575 中找到数据中找到数据 1010 的查找次的查找次数是：数是：A A、2 2B B、3 3C C、4 4D D、7 7【答案】C【解析】2 2有一组数据为有一组数据为“2“2、3 3、5 5、5 5、7 7、7 7、8”8”，利用顺序查找和对分查找查找，利用顺序查找和对分查找查找 5 5 时

2、，则分别时，则分别查找几次可以找到目标值（查找几次可以找到目标值（）A A3 3无法使用对分查找无法使用对分查找B B4 4无法使用对分查找无法使用对分查找C C3 31 1D D4 41 1【答案】C【解析】3 3 已知有一组数据已知有一组数据 2,3,6,9,10,17,22,252,3,6,9,10,17,22,25排列，排列，若要对分查找数值若要对分查找数值 2222，需要查找需要查找 3 3 次，次，这这 3 3 次查找中依次找到的数据是（次查找中依次找到的数据是（）。A A 101017172222B B 9 910102222C C 101025252222D D 9 91717

3、2222【答案】D【解析】4 4定义变量定义变量 s s 表示团购价，则在窗口上显示团购价的语句应该是？（表示团购价，则在窗口上显示团购价的语句应该是？（）A A、label4.caption=str(s)label4.caption=str(s)B B、label4.text=val(s)label4.text=val(s)C C、s=str(label4.caption)s=str(label4.caption)D D、s=val(label4.caption)s=val(label4.caption)【答案】A【解析】5 5读程序，写出下列程序的输出结果（共读程序，写出下列程序的输出结果

4、（共 6 6 题，每题只有一个正确答案，每题题，每题只有一个正确答案，每题 2 2 分，分，共共 1212 分）分）s=1s=1For j=10 To-10 Step-2For j=10 To-10 Step-2s=s*js=s*jNext jNext jMsgBox(s)MsgBox(s)上述程序段中上述程序段中 s=s*js=s*j 的执行次数是的执行次数是()A A 2020B B 1010C C 1111D D 2121【答案】D【解析】6 6关于对分查找和顺序查找算法的叙述，正确的是（关于对分查找和顺序查找算法的叙述，正确的是（）。A A顺序查找需要排序，效率低；对分查找不需要排序，

5、效率高。顺序查找需要排序，效率低；对分查找不需要排序，效率高。B B顺序查找不需要排序，效率低；对分查找需要排序，效率高。顺序查找不需要排序，效率低；对分查找需要排序，效率高。C C顺序查找不需要排序，效率高；对分查找需要排序，效率低。顺序查找不需要排序，效率高；对分查找需要排序，效率低。D D顺序查找需要排序，效率高；对分查找不需要排序，效率低。顺序查找需要排序，效率高；对分查找不需要排序，效率低。【答案】B【解析】7 7某数组有某数组有 1010 个元素，依次为个元素，依次为 1111、2222、3333、4545、5555、6666、7777、8888、9292、9898，若采用，若采用

6、对分查找法在该数组中查找数据对分查找法在该数组中查找数据 9292，依次被访问的数据为，依次被访问的数据为()A A 5555、8888、9292B B 5555、7777、8888、9292C C 6666、8888、9292D D 6666、8888、9898、9292【答案】A【解析】8 8萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数超过超过 3 3 次，那么当日网银账号将被锁定，次，那么当日网银账号将被锁定，次日自动解锁。下图是登陆网银的流程图，萧次日自动解锁。下图是登陆网银的流程图，萧

7、明不小心输入密码错误了明不小心输入密码错误了 2 2 次，第次，第 3 3 次才正确，那么他的操作流程应该是（次才正确，那么他的操作流程应该是（）A A B B C C D D【答案】A【解析】9 9下面是一组有序的数组下面是一组有序的数组 d d，现运用对分查找，现运用对分查找，dmdm为每次查找到的中间值，完成查为每次查找到的中间值，完成查找找 J J 的过程中所查找到的的过程中所查找到的 dmdm的值是（的值是（）1 1A AA AG GK KL JL JB BG GC CK KJ JC CG GK KI IJ JD DG GH HK KJ J【答案】C【解析】1010有序数列有序数列

8、3.6,8,11.6,22,24,27,31,36.5,353.6,8,11.6,22,24,27,31,36.5,35，4646，通过对分查找查找数，通过对分查找查找数 3131，需找（，需找（）次次（A A）4 4（B B）3 3（C C）2 2（D D）1 12 2B B3 3C C4 4D D5 5E E6 6F F7 7G G8 8H H9 9I I1010J J1111K K1212L L13131414MMN N【答案】A【解析】本题考核的是考生对对分查找算法执行过程的理解。1111用对分查找法从数列用对分查找法从数列 3 3，6 6，7 7，1010，1212，1616，252

9、5，3030，7575 中找到数据中找到数据 1010 的最少查的最少查找次数是（找次数是（）A A2 2B B4 4C C3 3D D7 7【答案】B【解析】1212数组数组 a a 中存放了一批数据如下表，现采用对分查找方式在这批数据中查找中存放了一批数据如下表，现采用对分查找方式在这批数据中查找“gou”“gou”，以下说法正确的是（以下说法正确的是（）。a(1)a(1)houhoua(2)a(2)ji jia(3)a(3)longlonga(4)a(4)mamaa(5)a(5)niuniua(6)a(6)sheshea(7)a(7)tutuA A依次被比较的数据是依次被比较的数据是“m

10、a”“ma”，“ji”“ji”，“hou”“hou”B B依次被比较的数据是依次被比较的数据是“ma”“ma”，“she”“she”，“tu”“tu”C C无法进行对分查找，因为这批数据还没排好序无法进行对分查找，因为这批数据还没排好序D D无法进行查找操作，因为这批数据中没有无法进行查找操作，因为这批数据中没有“gou”“gou”【答案】A【解析】1313已知单调函数已知单调函数 f(x)f(x)在在00，11区间存在一个区间存在一个 x0 x0，使，使 f(x0)f(x0)0 0。现用对分查找法搜索。现用对分查找法搜索 x0 x0的值，开始搜索区间为的值，开始搜索区间为00，11，若经过，

11、若经过 1010 次对分查找后还需继续搜索，则第次对分查找后还需继续搜索，则第1111 次搜索次搜索区间的长度为区间的长度为()A A1 1/2 2B B1 1/1010C C1 1/102102D D1 1/210210【答案】D【解析】1414解决上问题所用的算法是解决上问题所用的算法是:（）A A、枚举法、枚举法B B、解析法解析法C C、顺序查找顺序查找D D、选择法、选择法【答案】B【解析】1515某一算法的流程图如第某一算法的流程图如第 9 9 题图所示，则该算法的功能是题图所示，则该算法的功能是()A A求三个数中最大的数求三个数中最大的数B B求三个数中最小的数求三个数中最小的

12、数C C将三个数从小到大排列将三个数从小到大排列D D将三个数从大到小排列将三个数从大到小排列【答案】B【解析】1616以下算法中，以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举并在逐一列举的过程中，的过程中，检验每个可能解是否是问题的真正解；检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（式，就此求出解；这两个算法分别是（）A A 穷举法、公式法穷举法、公式法B B 循环法、递归法循环法、递归法C C 查找法、函数法查找法、函数法D D

13、 枚举法、解析法枚举法、解析法【答案】D【解析】1717下列下列Visual BasicVisual Basic 程序的功能是输入身高（程序的功能是输入身高（l/cml/cm）和体重）和体重(k/kg)(k/kg)来测试你的身材是否来测试你的身材是否符合标准。符合标准。Private Sub Command1_Click()Private Sub Command1_Click()Dim l,k,BMI As SingleDim l,k,BMI As Singlel=Val(Text2.Text)/100l=Val(Text2.Text)/100k=Val(Text3.Text)k=Val(Te

14、xt3.Text)BMI=k/(l*l)BMI=k/(l*l)If BMI 18.5 ThenIf BMI=25 ThenElseIf BMI=25 ThenText1.Text=Text1.Text=偏胖偏胖 ElseElseText1.Text=Text1.Text=非常标准非常标准 End IfEnd IfEnd SubEnd Sub运行程序后在运行程序后在 Text2Text2中输入中输入 180180，Text3Text3中输入中输入 9090，那么在，那么在 Text1Text1中输出的是（中输出的是（）A A、太瘦了、太瘦了B B、偏胖、偏胖C C、非常标准、非常标准D D、超出

15、范围、超出范围【答案】B【解析】1818 想从学生中选出一些理科比较好的同学参加理科知识竞赛，想从学生中选出一些理科比较好的同学参加理科知识竞赛，主要考察数学和物理两主要考察数学和物理两个科目的成绩，个科目的成绩，在数学成绩大于在数学成绩大于9090的同学中挑选出物理成绩不小于的同学中挑选出物理成绩不小于8989的同学参加竞赛，的同学参加竞赛，VBVB 条件表达式应该是（条件表达式应该是（）（S:S:数学成绩，数学成绩，W:W:物理成绩）物理成绩）A A S90S=89W=89B B S90 OrS=89W=89C C S90S=89W=89D D S90 And W=89S90 And W=

16、89【答案】D【解析】评卷人得分二、填空题二、填空题1919生活中，生活中，许多女士喜欢穿高跟鞋，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。个问题。人体躯干与身高比例的黄金分割点是肚脐。人体躯干与身高比例的黄金分割点是肚脐。换句话说，换句话说，这一比值越接近这一比值越接近 0.6180.618，愈给人美之感。愈给人美之感。现按要求编写现按要求编写“高跟鞋的最佳之选高跟鞋的最佳之选”的的 VBVB 程序程序（界面如下图所示）（界面如下图所示），实现实现如下功能：如下功能：首先，设某女躯干首先，设某女躯干 a a 米和身高米和

17、身高 b b 米，分别从文本框米，分别从文本框 Text1Text1和和 Text2Text2中输入，中输入，比值为比值为 g g。鞋跟高度为鞋跟高度为 s s（单位与单位与 a a、b b 一致）一致），那么比值那么比值 g=g=（a+sa+s）/（b+sb+s），如果如果 g=0.618g=0.618，那么鞋跟高度那么鞋跟高度 S S 的值就是最佳高度的值就是最佳高度,所以最佳的鞋跟高度所以最佳的鞋跟高度 s=(0.618b-a)/s=(0.618b-a)/0.382,0.382,设计程序计设计程序计算最佳鞋跟高度的程序。算最佳鞋跟高度的程序。（1 1）应用程序界面设计时，为了显示）应用程

18、序界面设计时，为了显示 s s 的值，在窗体中添加了的值，在窗体中添加了控件，一般控件，一般需将它的需将它的属性值设置为空。属性值设置为空。（2 2）图中的人物是通过设置）图中的人物是通过设置 Image1Image1 对象的对象的属性属性,将外部图像文件添加进将外部图像文件添加进去的。去的。（3 3）请根据题意将下列程序补充完整。）请根据题意将下列程序补充完整。Private Sub Command1_ClickPrivate Sub Command1_Click（）Dim a As Single,b As SingleDim a As Single,b As Single，s As Sin

19、gles As Singlea=Vala=Val（Text1.TextText1.Text）b=b=Label4.caption=str(s)Label4.caption=str(s)End SubEnd Sub【答案】（1）Label 或标签、caption（2）picture（3）val(text2.text)、s=(0.618*b-a)/0.382【解析】2020在数组元素在数组元素 a(1)a(1)到到 a(5)a(5)中查找键值为中查找键值为 keykey 的数，其查找算法的的数，其查找算法的 VBVB 程序段如下：程序段如下：Dim a(1 To 5)As IntegerDim a

20、(1 To 5)As IntegerDim Key As IntegerDim Key As IntegerPrivate Sub Command1_Click()Private Sub Command1_Click()t t0 0For iFor i1 To 51 To 5If If _ Then Thent ti iExit ForExit For End IfEnd IfNext iNext iPrint tPrint tEnd SubEnd SubPrivate Sub Form_Load()Private Sub Form_Load()此过程用于对数组此过程用于对数组 a a 和查找

21、键和查找键 KeyKey 进行赋初值，代码略进行赋初值，代码略End SubEnd Sub(1)(1)该程序段中所用的查找算法是该程序段中所用的查找算法是_。(2)(2)在程序在程序划线处，填入适当的语句或表达式，把程序补充完整：程序中划线处，填入适当的语句或表达式，把程序补充完整：程序中 划线处应划线处应填入填入_。当数组元素当数组元素 a(1)a(1)到到 a(5)a(5)中存储的数据为中存储的数据为(2(2，5 5，1 1，9 9，5)5)，查找键，查找键 KeyKey 为为 5 5 时：时：(3)(3)该程序运行结束，该程序运行结束，t t 的值是的值是_。(4)(4)如果将如果将所标

22、记的所标记的 Exit ForExit For 语句删除，该程序运行结束时，语句删除，该程序运行结束时，t t 的值是的值是_。【答案】(1)顺序查找(2)a(i)Key(3)2(4)5【解析】2121现要求编写现要求编写 VBVB 程序，界面如第程序，界面如第 2 2 题题-1-1 图所示。程序功能如下：在文本框图所示。程序功能如下：在文本框 Text1Text1中中输入身份证号码，单击输入身份证号码，单击“识别识别”按钮按钮 Command1Command1，在标签，在标签 Label3Label3 中输出对应的性别。中输出对应的性别。具体方法为：具体方法为：（1 1）若身份证号为若身份证

23、号为1515位，位，则根据第则根据第1515位数字来判断，位数字来判断，若为偶数则性别若为偶数则性别“女女”，否则为否则为“男男”；（2 2）若身份证号为）若身份证号为 1818 位，则根据第位，则根据第 1717 位数字来判断，若为偶数时则性别为位数字来判断，若为偶数时则性别为“女女”，否，否则为则为“男男”。应用程序界面设计时，为添加。应用程序界面设计时，为添加“识别识别”按钮，应使用按钮，应使用 2 2 图中图中“控件工具箱控件工具箱”中的中的（填写相应编号）（填写相应编号），并修改，并修改 3 3 图图“属性窗口属性窗口”中，将中，将属性值设置为属性值设置为“识别识别”请根据题意将下列

24、程序补充完整请根据题意将下列程序补充完整Dim x As String,n As Integer,s As StringDim x As String,n As Integer,s As Stringx=Text1.Textx=Text1.Textn=Len(x)n=Len(x)If n=15 ThenIf n=15 Thens=Mid(s=Mid(,Len(x),1),Len(x),1)If Val(s)Mod 2=0 ThenIf Val(s)Mod 2=0 ThenText2.Text=Text2.Text=女女 ElseElseText2.Text=Text2.Text=男男 End

25、IfEnd IfElseElses=Mid(x,17,1)s=Mid(x,17,1)IfIfThenThenText2.Text=Text2.Text=男男 ElseElseText2.Text=Text2.Text=女女 End IfEnd IfEnd IfEnd If【答案】（1）3（1 分）Caption（1 分）（2）x（1 分）val(s)mod 2=1（1 分）【解析】2222 有一有一 AccessAccess 数据库数据库“school.accdb”“school.accdb”存放在存放在 f:2015mtvbf:2015mtvb 文件夹中，文件夹中，其中的其中的“studen

26、t”“student”数据表用来存储学生的基本情况信息，包括学号数据表用来存储学生的基本情况信息，包括学号(num)(num)、姓名、姓名(name)(name)、性别、性别(sex)(sex)、分数、分数(score)(score)，括号内的为对应字段名。括号内的为对应字段名。下列下列 VBVB 程序用来实现根据学号查询并显示学生信息，程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。运行界面如下图所示。在文本框在文本框 Text1Text1中输入学生的学号，中输入学生的学号，单击单击“查询查询”，在文本框在文本框 Text2Text2、Text3Text3、Text4Text4中

27、分别显示学生姓名、性别、分数。中分别显示学生姓名、性别、分数。Private Sub Command1_Click()Private Sub Command1_Click()Dim adocn As New adodb.ConnectionDim adocn As New adodb.ConnectionDim adors As New adodb.RecordsetDim adors As New adodb.RecordsetDim str2 As String,str1 As StringDim str2 As String,str1 As Stringstr1=Provider=Mic

28、rosoft.ACE.OLEDBstr1=Provider=Microsoft.ACE.OLEDB12.0;data source=f:2015mtvb_12.0;data source=f:2015mtvb_adocn.Open str1adocn.Open str1str2=select*from students where num=+Text1.Textstr2=select*from students where num=+Text1.Textadors.Open str2,adocn,adOpenDynamic,adLockOptimisticadors.Open str2,ado

29、cn,adOpenDynamic,adLockOptimisticIf adors.EOF=True ThenIf adors.EOF=True ThenMsgBox MsgBox 你输入的学号不存在你输入的学号不存在 ElseElseText2.Text=adors.Fields(name).ValueText2.Text=adors.Fields(name).ValueText3.Text=adors.Fields(sex).ValueText3.Text=adors.Fields(sex).Value_End IfEnd Ifadors.Closeadors.Closeadocn.Clo

30、seadocn.CloseEnd SubEnd Sub【答案】（1）school.accdb（1 分）（2）Text4.Text=adors.Fields(score).Value（1 分）【解析】2323一个程序功能如下：单击开始按钮，每隔一个程序功能如下：单击开始按钮，每隔1 1 秒产生一个秒产生一个1,1001,100的随机数，赋给变量的随机数，赋给变量n n，对产生的随机数进行判断，如果是偶数就显示在列表框，对产生的随机数进行判断，如果是偶数就显示在列表框 1 1 中，如果是奇数显示在列中，如果是奇数显示在列表框表框 2 2 中。当随机数达到中。当随机数达到 2020 个时，停止。个时

31、，停止。TimerTimer 控件的控件的 EnabledEnabled 属性设置为属性设置为 FalseFalse，即，即程序刚运行时不起作用。程序刚运行时不起作用。程序代码如下：程序代码如下：Dim m As IntegerDim m As Integermm 为模块级变量，用于记录随机数个数为模块级变量，用于记录随机数个数Private Sub Command1_Click()Private Sub Command1_Click()RandomizeRandomizeTimer1.Enabled=TrueTimer1.Enabled=TrueEnd SubEnd SubPrivate S

32、ub Timer1_Timer()Private Sub Timer1_Timer()Dim n As IntegerDim n As IntegerIf IfThenThenList1.AddItem nList1.AddItem nElseElseList2.AddItem nList2.AddItem nEnd IfEnd Ifm=m+1m=m+1If m=20 ThenIf m=20 ThenEnd SubEnd Sub在程序在程序、划线处，填入适当的语句或表达式，把程序补充完整划线处，填入适当的语句或表达式，把程序补充完整:程序中程序中划线处应填入划线处应填入_。程序中程序中划线处应

33、填入划线处应填入_。程序中程序中划线处应填入划线处应填入_。【答案】（1）n=Int(Rnd*100)+1（2）n Mod 2=0（多）（3）Timer1.Enabled=False【解析】2424 杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（服务的集成电路卡（IC IC 卡）卡），具有信息储存、身份识别、电子支付等功能。每位市民卡，具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。的卡号是唯一的，卡内会记录每位市民的

34、姓名、住址、金额等信息。假设共有假设共有 10001000 个市民，市民的相关信息都存储在个市民，市民的相关信息都存储在“information.accdb”“information.accdb”的的 datadata 表中，查表中，查询程序界面如图所示。工作人员在文本框询程序界面如图所示。工作人员在文本框 Text1Text1中输入卡号，单击中输入卡号，单击“开始查询开始查询”按钮，如按钮，如果找到，就在果找到，就在 Label1Label1 中显示卡内市民姓名和卡内余额；否则显示中显示卡内市民姓名和卡内余额；否则显示“查无此人查无此人”。请按要。请按要求将下列程序补充完整。求将下列程序补充

35、完整。Private Sub command1_click()Private Sub command1_click()Dim conn As New ADODBDim conn As New ADODBConnection,rs As New ADODBConnection,rs As New ADODBRecordsetRecordsetDim strSQL As StringDim strSQL As StringDim a,b as stringDim a,b as string 分别定义姓名、余额分别定义姓名、余额Dim n as integerDim n as integerconn

36、.ConnectionString=Provider=Microsoft.ACE.OLEDBconn.ConnectionString=Provider=Microsoft.ACE.OLEDB12.0;Data Source=+App.Path12.0;Data Source=+App.Path+information.accdb+information.accdb 打开到数据库的链接打开到数据库的链接conn.Openconn.OpenstrSQL=select xh,xm from data where strSQL=select xh,xm from data where 卡号卡号=&(

37、Text1.Text)&=&(Text1.Text)&设置查询的设置查询的 SQLSQL 语句语句Set rs.ActiveConnection=connSet rs.ActiveConnection=conn 设置设置 rs rs 的的 ActiveConnectionActiveConnection属性，指定与其关联的属性，指定与其关联的数据库链接数据库链接rs.Open strSQLrs.Open strSQL 打开记录集，将从表打开记录集，将从表 informationinformation中读取的结果保存到记录集中读取的结果保存到记录集 rs rs 中中Label1.Caption=

38、Label1.Caption=n=0n=0Do while not rs.EOFDo while not rs.EOFa=rs.Fields(a=rs.Fields(姓名姓名)b=rs.Fields(b=rs.Fields(余额余额)rs.movenextrs.movenextlooplooprs.Closers.Closeconn.closeconn.closeset rs=nothingset rs=nothingset conn=nothingset conn=nothingif n=0 then Label1.caption=if n=0 then Label1.caption=查无此

39、人查无此人 End SubEnd Sub（1 1）程序中）程序中划线处应填入划线处应填入_。（2 2）程序中）程序中划线处应填入划线处应填入_。【答案】（1）n=n+1（2）Label1.caption=a+卡内余额为+b+元【解析】本题意图考核考生应用 Visual Basic 访问数据库的相关知识，考核学生是否理解通过 ADO 对象连接数据库，通过Recordset 对象获取表中的数据等相关知识。2525小明利用所学的知识帮助语文老师设计一个语文学考等级查询系统，小明利用所学的知识帮助语文老师设计一个语文学考等级查询系统，要求如下：要求如下：输输入某个等级，入某个等级，就能查出该等级的所有

40、学生学号和姓名，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，并统计出该等级学生的人数，以以便语文老师方便了解学生的学考情况。语文学考成绩分便语文老师方便了解学生的学考情况。语文学考成绩分 A A、B B、C C、D D、E E 五个等级，学五个等级，学生信息存储在数据库文件生信息存储在数据库文件“stugrade.accdb”“stugrade.accdb”的数据表的数据表“Chinese”“Chinese”中，数据表中，数据表“Chinese”“Chinese”的结的结构如图构如图 1 1 所示。所示。VBVB 程序运行界面如图程序运行界面如图 2 2 所示，在文本框所示，

41、在文本框 Text1Text1 中输入查询的等级，单击中输入查询的等级，单击“查询查询”按钮按钮Command1Command1，在列表框，在列表框 List1List1 中显示所有该等级的学生学号和姓名，并按照学号从小到中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签大排序，并在标签Label2Label2 处显示学生的人数，如果人数为处显示学生的人数，如果人数为0,0,则在列表框中显示则在列表框中显示“没有该没有该等级的学生等级的学生”。按此要求编写程序如下，但加框处代码有错误，请改正。按此要求编写程序如下，但加框处代码有错误，请改正。Private Sub Comman

42、d1_Click()Private Sub Command1_Click()Dim stuna(1 To 100)As String Dim stuna(1 To 100)As String 存放学生姓名的数组定义为存放学生姓名的数组定义为 stunastunaDim stunum(1 To 100)As String Dim stunum(1 To 100)As String 存放学生学号的数组定义为存放学生学号的数组定义为 stunumstunumDim i As Integer,j As Integer,n As IntegerDim i As Integer,j As Integer,

43、n As IntegerDim t As StringDim t As String 连接数据库连接数据库Dim cn As New ADODBDim cn As New ADODBConnectionConnectionDim rs As New ADODBDim rs As New ADODBRecordsetRecordsetDim strSQL As StringDim strSQL As Stringcn.ConnectionString=Provider=Microsoft.ACE.OLEDBcn.ConnectionString=Provider=Microsoft.ACE.OL

44、EDB12.0;Data Source=+App.Path+12.0;Data Source=+App.Path+stugrade.accdbstugrade.accdbcn.Opencn.OpenstrSQL=select*from Chinese wherestrSQL=select*from Chinese where 语文等级语文等级=+Text1.Text+=+Text1.Text+Set rs.ActiveConnection=cnSet rs.ActiveConnection=cnrs.Open strSQLrs.Open strSQLn=0n=0Do While Not rs.

45、EOFDo While Not rs.EOFn=n+1n=n+1stuna(n)=rs.Fields(stuna(n)=rs.Fields(姓名姓名).Value).Valuestunum(n)=rs.Fields(stunum(n)=rs.Fields(学号学号).Value).Valuers.NextMovers.NextMoveLoopLooprs.Closers.Closecn.Closecn.CloseSet rs=NothingSet rs=NothingSet cn=NothingSet cn=NothingList1.Clear List1.Clear 清除列表框清除列表框If

46、 n=0 ThenIf n=0 ThenList1.AddItem List1.AddItem 没有该等级的学生没有该等级的学生 ElseElseFor i=1 To n-1For i=1 To n-1 按姓名排序按姓名排序For j=n To i+1 Step-1For j=n To i+1 Step-1If stuna(j)stuna(j-1)If stuna(j)stuna(j-1)ThenThent=stunum(j):stunum(j)=stunum(j-1):stunum(j-1)=tt=stunum(j):stunum(j)=stunum(j-1):stunum(j-1)=tt=

47、stuna(j):stuna(j)=stuna(j-1):stuna(j-1)=tt=stuna(j):stuna(j)=stuna(j-1):stuna(j-1)=tEnd IfEnd IfNext jNext jNext iNext iFor i=1 To nFor i=1 To nList1.AddItem stunum(i)+List1.AddItem stunum(i)+stuna(i)+stuna(i)Next iNext iLabel2.Caption=Label2.Caption=该等级的学生共有该等级的学生共有+Str(n)+Str(n)+名名 End IfEnd IfEnd

48、 SubEnd Sub（1 1）加框处）加框处有错，应改为有错，应改为_。（3 3 分）分）（2 2）加框处）加框处有错，应改为有错，应改为_。（3 3 分）分）【答案】rs.MoveNextstunum(j)stunum(j-1)【解析】通过一个学考等级查询系统，把 Access 数据库，通过 ADO 对象连接数据库以及冒泡排序等知识点串联在一起，是对考生 VB 访问数据库的综合考查。作为本次考试命题的最后一题，本题涉及到知识面较广，难度也较大，对考生也提出更高的要求。2626用用 VBVB 设计查询并统计某公司的销售数据。实现如下功能：设计查询并统计某公司的销售数据。实现如下功能：将所有员

49、工的姓名和销售量存储到数组将所有员工的姓名和销售量存储到数组 xmxm 和和 xsexse 中；中；对销售量数组进行求和，并输出该地区平均销售量（保留整数）对销售量数组进行求和，并输出该地区平均销售量（保留整数）；根据输入根据输入“销售排名前几位销售排名前几位”筛选出排名前几位销售人员的数据。筛选出排名前几位销售人员的数据。程序运行界面如图所示。程序运行界面如图所示。（1 1）下列程序对员工的销售额进行排序的主要算法属于下列程序对员工的销售额进行排序的主要算法属于（选填：（选填：解析算法解析算法/枚举算法枚举算法/冒泡排序算法冒泡排序算法/选择排序算法）选择排序算法）（2 2）实现上述功能的）

50、实现上述功能的 VBVB 程序如下。请在划线处填入合适的代码。程序如下。请在划线处填入合适的代码。Dim xse(1 To 3000)As Long Dim xse(1 To 3000)As Long 存储销售员工的销售量存储销售员工的销售量,最大处理个数为最大处理个数为 30003000Dim xm(1 To 3000)As String Dim xm(1 To 3000)As String 存储销售员工的姓名存储销售员工的姓名Dim mc(1 To 3000)As IntegerDim mc(1 To 3000)As Integer 存储销售员工的名次存储销售员工的名次Dim num As