高中信息技术VB查找算法与程序实现浏览题阅览题会考复习题论文自然科学文章_论文-会议文章.pdf

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

1、学习必备 欢迎下载 高中信息技术 VB查找算法与程序实现 浏览题阅览题 会考复习题 学校:_姓名：_班级：_考号：_ 评卷人 得分 一、选择题 1用对分查找法从数列 3、6、7、10、12、16、25、30、75 中找到数据 10 的查找次数是：A、2 B、3 C、4 D、7【答案】C【解析】2有一组数据为“2、3、5、5、7、7、8”，利用顺序查找和对分查找查找 5时，则分别查找几次可以找到目标值（）A3 无法使用对分查找 B4 无法使用对分查找 C3 1 D4 1【答案】C【解析】3 已知有一组数据 2,3,6,9,10,17,22,25排列，若要对分查找数值 22，需要查找 3次，这 3

2、次查找中依次找到的数据是（）。A 10 17 22 B 9 10 22 C 10 25 22 D 9 17 22【答案】D【解析】4定义变量 s表示团购价，则在窗口上显示团购价的语句应该是？（）A、label4.caption=str(s)B、label4.text=val(s)C、s=str(label4.caption)D、s=val(label4.caption)【答案】A【解析】学习必备 欢迎下载 5读程序，写出下列程序的输出结果（共 6题，每题只有一个正确答案，每题 2分，共 12分）s=1 For j=10 To-10 Step-2 s=s*j Next j MsgBox(s)上述

3、程序段中 s=s*j 的执行次数是()A 20 B 10 C 11 D 21【答案】D【解析】6关于对分查找和顺序查找算法的叙述，正确的是（）。A顺序查找需要排序，效率低；对分查找不需要排序，效率高。B顺序查找不需要排序，效率低；对分查找需要排序，效率高。C顺序查找不需要排序，效率高；对分查找需要排序，效率低。D顺序查找需要排序，效率高；对分查找不需要排序，效率低。【答案】B【解析】7某数组有 10 个元素，依次为 11、22、33、45、55、66、77、88、92、98，若采用对分查找法在该数组中查找数据 92，依次被访问的数据为()A 55、88、92 B 55、77、88、92 C 6

4、6、88、92 D 66、88、98、92【答案】A【解析】8萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数超过 3次，那么当日网银账号将被锁定，次日自动解锁。下图是登陆网银的流程图，萧明不小心输入密码错误了 2次，第 3次才正确，那么他的操作流程应该是（）择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分

5、查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 A B C D 【答案】A【解析】9下面是一组有序的数组 d，现运用对分查找，dm为每次查找到的中间值，完成查找 J的过程中所查找到的 dm的值是（）1 2 3 4 5 6 7 8 9 10 11 12 13 14 A B C D E F G H I J K L M N AG K L J

6、BG C K J CG K I J DG H K J【答案】C【解析】10有序数列 3.6,8,11.6,22,24,27,31,36.5,35，46，通过对分查找查找数 31，需找（）次（A）4 （B）3 （C）2 （D）1 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对

7、分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载【答案】A【解析】本题考核的是考生对对分查找算法执行过程的理解。11用对分查找法从数列 3，6，7，10，12，16，25，30，75中找到数据 10的最少查找次数是（）A2 B4 C3 D7【答案】B【解析】12数组 a 中存放了一批数据如下表，现采用对分查找方式在这批数据中查找“gou”，以下说法正确的是（）。a(1)a(2)a(3)a(4)

8、a(5)a(6)a(7)hou ji long ma niu she tu A依次被比较的数据是“ma”，“ji”，“hou”B依次被比较的数据是“ma”，“she”，“tu”C无法进行对分查找，因为这批数据还没排好序 D无法进行查找操作，因为这批数据中没有“gou”【答案】A【解析】13已知单调函数 f(x)在0，1区间存在一个 x0，使 f(x0)0。现用对分查找法搜索 x0的值，开始搜索区间为0，1，若经过 10次对分查找后还需继续搜索，则第 11次搜索区间的长度为()A1/2 B1/10 C1/102 D1/210【答案】D【解析】14解决上问题所用的算法是:（）A、枚举法 B、解析法

9、 C、顺序查找 D、选择法【答案】B【解析】15某一算法的流程图如第 9题图所示，则该算法的功能是()择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依

10、次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 A求三个数中最大的数 B求三个数中最小的数 C将三个数从小到大排列 D将三个数从大到小排列【答案】B【解析】16以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（）A 穷举法、公式法 B 循环法、递归法 C 查找法、函数法 D 枚举法、解析法【答案】D【解析】17下列 Visual Basic 程序的功能是输入身高（l/cm）和体重(k/

11、kg)来测试你的身材是否符合标准。Private Sub Command1_Click()Dim l,k,BMI As Single l=Val(Text2.Text)/100 k=Val(Text3.Text)BMI=k/(l*l)If BMI=25 Then Text1.Text=偏胖 Else 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数

12、是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 Text1.Text=非常标准 End If End Sub 运行程序后在 Text2中输入 180，Text3中输入 90，那么在 Text1中输出的是（）A、太瘦了 B、偏胖 C、非常标准 D、超出范围【答案】B【解析】18 想从学生中选出一些理科比较好的同学参加理科

13、知识竞赛，主要考察数学和物理两个科目的成绩，在数学成绩大于90的同学中挑选出物理成绩不小于89的同学参加竞赛，VB条件表达式应该是（）（S:数学成绩，W:物理成绩）A S=89 B S=89 C S=89 D S90 And W=89【答案】D【解析】评卷人 得分 二、填空题 19生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近 0.618，愈给人美之感。现按要求编写“高跟鞋的最佳之选”的 VB程序（界面如下图所示），实现如下功能：首先，设某女躯干 a米和身高 b 米，分别从文本框 Text1和 Te

14、xt2中输入，比值为 g。鞋跟高度为 s（单位与 a、b 一致），那么比值 g=（a+s）/（b+s），如果 g=0.618，那么鞋跟高度 S的值就是最佳高度,所以最佳的鞋跟高度 s=(0.618b-a)/0.382,设计程序计算最佳鞋跟高度的程序。择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺

15、序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 （1）应用程序界面设计时，为了显示 s 的值，在窗体中添加了 控件，一般需将它的 属性值设置为空。（2）图中的人物是通过设置 Image1对象的 属性,将外部图像文件添加进去的。（3）请根据题意将下列程序补充完整。Private Sub Command1_Click（）Dim a As Single,b As Single

16、，s As Single a=Val（Text1.Text）b=Label4.caption=str(s)End Sub 【答案】（1）Label 或标签、caption （2）picture （3）val(text2.text)、s=(0.618*b-a)/0.382【解析】20在数组元素 a(1)到 a(5)中查找键值为 key的数，其查找算法的 VB程序段如下：Dim a(1 To 5)As Integer Dim Key As Integer Private Sub Command1_Click()t0 For i1 To 5 If _ Then 择题用对分查找法从数列中找到数据的查找

17、次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 ti Exi

18、t For End If Next i Print t End Sub Private Sub Form_Load()此过程用于对数组 a和查找键 Key进行赋初值，代码略 End Sub (1)该程序段中所用的查找算法是_。(2)在程序 划线处，填入适当的语句或表达式，把程序补充完整：程序中 划线处应填入_。当数组元素 a(1)到 a(5)中存储的数据为(2，5，1，9，5)，查找键 Key为 5时：(3)该程序运行结束，t 的值是_。(4)如果将 所标记的 Exit For语句删除，该程序运行结束时，t 的值是_。【答案】(1)顺序查找(2)a(i)Key(3)2(4)5【解析】21现要求

19、编写 VB程序，界面如第 2 题-1图所示。程序功能如下：在文本框 Text1中输入身份证号码，单击“识别”按钮 Command1，在标签 Label3中输出对应的性别。具体方法为：（1）若身份证号为15位，则根据第 15位数字来判断，若为偶数则性别“女”，否则为“男”；（2）若身份证号为 18位，则根据第 17位数字来判断，若为偶数时则性别为“女”，否则为“男”。应用程序界面设计时，为添加“识别”按钮，应使用 2图中“控件工具箱”中的 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解

20、析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载（填写相应编号），并修改 3图“属性窗口”中，将 属性值设置为“识别”请根据题意将下列程序补充完整 Dim x As String,n

21、 As Integer,s As String x=Text1.Text n=Len(x)If n=15 Then s=Mid(,Len(x),1)If Val(s)Mod 2=0 Then Text2.Text=女 Else Text2.Text=男 End If Else s=Mid(x,17,1)If Then Text2.Text=男 Else Text2.Text=女 End If End If 【答案】（1）3（1 分）Caption（1 分）（2）x（1 分）val(s)mod 2=1（1 分）【解析】择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和

22、对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 22 有一 Access 数据库“school.ac

23、cdb”存放在 f:2015mtvb 文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列 VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框 Text1中输入学生的学号，单击“查询”，在文本框 Text2、Text3、Text4中分别显示学生姓名、性别、分数。Private Sub Command1_Click()Dim adocn As New adodb.Connection Dim adors As New adodb.Recordset Dim s

24、tr2 As String,str1 As String str1=Provider=Microsoft.ACE.OLEDB12.0;data source=f:2015mtvb_ adocn.Open str1 str2=select*from students where num=+Text1.Text adors.Open str2,adocn,adOpenDynamic,adLockOptimistic If adors.EOF=True Then MsgBox 你输入的学号不存在 Else Text2.Text=adors.Fields(name).Value Text3.Text=

25、adors.Fields(sex).Value _ End If adors.Close adocn.Close End Sub 【答案】（1）school.accdb（1 分）（2）Text4.Text=adors.Fields(score).Value（1 分）择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法

26、的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载【解析】23一个程序功能如下：单击开始按钮，每隔 1秒产生一个1,100的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框 1中，如果是奇数显示在列表框 2 中。当随机数达到 20个时，停止。Timer控件的 Enabled属性设置为 False，即程序刚运行时不起作用。程序代码如下：Di

27、m m As Integer m 为模块级变量，用于记录随机数个数 Private Sub Command1_Click()Randomize Timer1.Enabled=True End Sub Private Sub Timer1_Timer()Dim n As Integer If Then List1.AddItem n Else List2.AddItem n End If m=m+1 If m=20 Then End Sub 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案

28、解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 在程序、划线处，填入适当的语句或表达式，把程序补充完整:程序中 划线处应填入_。程序中 划线处应填入_。程序中 划线处应填入_。【

29、答案】（1）n=Int(Rnd*100)+1（2）n Mod 2=0（多）（3）Timer1.Enabled=False【解析】24 杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（IC卡），具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。假设共有 1000个市民，市民的相关信息都存储在“information.accdb”的 data 表中，查询程序界面如图所示。工作人员在文本框 Text1中输入卡号，单击“开始查询”按钮，如果找到，就在 Label1中显示卡内市民姓名和卡内余额；否则显示

30、“查无此人”。请按要求将下列程序补充完整。Private Sub command1_click()Dim conn As New ADODBConnection,rs As New ADODBRecordset Dim strSQL As String Dim a,b as string 分别定义姓名、余额 Dim n as integer conn.ConnectionString=Provider=Microsoft.ACE.OLEDB12.0;Data Source=+App.Path+information.accdb 打开到数据库的链接 conn.Open strSQL=select

31、 xh,xm from data where 卡号=&(Text1.Text)&设置查询的 SQL语句 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据

32、依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 Set rs.ActiveConnection=conn 设置 rs的 ActiveConnection属性，指定与其关联的数据库链接 rs.Open strSQL 打开记录集，将从表 information 中读取的结果保存到记录集 rs中 Label1.Caption=n=0 Do while not rs.EOF a=rs.Fields(姓名)b=rs.Fields(余额)rs.movenext loop rs.Close conn.close set rs=

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

34、以便语文老师方便了解学生的学考情况。语文学考成绩分 A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb”的数据表“Chinese”中，数据表“Chinese”的结构如图 1所示。择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效

35、率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 VB 程序运行界面如图 2 所示，在文本框 Text1 中输入查询的等级，单击“查询”按钮Command1，在列表框 List1 中显示所有该等级的学生学号和姓名，并按照学号从小到大排序，并在标签 Label2处显示学生的人数，如果人数为 0,则在列表框中显示“没有该等级的学生”。按此要求编写程序如下，但加框处代码有错误，请改正。Private Sub Comm

36、and1_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 ADODBConnection Dim rs As New ADODBRecordset Dim strSQL As String cn.ConnectionString=Provider=Microsoft.ACE.OL

37、EDB12.0;Data Source=+App.Path+stugrade.accdb 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数

38、据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 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

39、 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)Nex

40、t i Label2.Caption=该等级的学生共有+Str(n)+名 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明

41、申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 End If End Sub （1）加框处 有错，应改为_。（3分）（2）加框处 有错，应改为_。（3分）【答案】rs.MoveNext stunum(j)stunum(j-1)【解析】通过一个学考等级查询系统，把 Access 数据库，通过 ADO对象连接数据库以及冒泡排序等知识点串联在一起，是对考生 VB访问数据库的综合考查。作为本次考试命题的最后一题，本题涉及到知识面较广，难度也较大，对考生也提出更高的要求。26用 VB设计查询并统计某公司的销售数据。实现如下功能：将所有员工的姓名和销售量

42、存储到数组 xm和 xse中；对销售量数组进行求和，并输出该地区平均销售量（保留整数）；根据输入“销售排名前几位”筛选出排名前几位销售人员的数据。程序运行界面如图所示。（1）下列程序对员工的销售额进行排序的主要算法属于 （选填：解析算法/枚举算法/冒泡排序算法/选择排序算法）（2）实现上述功能的 VB程序如下。请在划线处填入合适的代码。Dim xse(1 To 3000)As Long 存储销售员工的销售量,最大处理个数为 3000 Dim xm(1 To 3000)As String 存储销售员工的姓名 Dim mc(1 To 3000)As Integer 存储销售员工的名次 Dim nu

43、m As Integer 当前员工总数 Private Sub Form_Load()将销售量、姓名数据存入 xse和 xm数组 计算员工总数 num 择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组

44、有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 代码略 End Sub Private Sub Command1_Click()Dim sum As Long Dim i As Integer,flag As Integer pm=Val(Text2.Text)dq=Text1.Text sum=0 For i=1 To num sum=sum+xse(i)Next i For i=1 To pm 对员工销售量进行排序 For j=To i+1 Step-1 If

45、xse(j-1)xse(j)Then t=xse(j-1):xse(j-1)=xse(j):xse(j)=t st=xm(j-1):xm(j-1)=xm(j):xm(j)=st End If Next j Next i mc(1)=1 For i=2 To pm If Then mc(i)=mc(i-1)Else mc(i)=i End If Next i List1.Clear List1.AddItem 排名+姓名+销售量 For i=1 To pm List1.AddItem Str(mc(i)+xm(i)+Str(xse(i)Next i 择题用对分查找法从数列中找到数据的查找次数是答

46、案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 List1.AddI

47、tem dq+平均销售额约为：+End Sub 【答案】（1）冒泡（2）num xse(i)=xse(i-1)或 xse(i-1)=xse(i)str(sumnum)【解析】27编写 VB程序，寻找第 1 位为 2，第 5 位为 5，数字长度为 5 的完全平方数（即开根号之后是一个整数），并统计个数。要求：单击“寻找”按钮 Command1，将符合要求的五位数显示在列表框 List1中，统计的个数显示在标签 Label2中，界面如题图所示。实现上述功能的 VB程序代码如下：Private Sub Command1_Click()Dim i As Integer,n As Integer Dim

48、 x As Integer n=0 For i=0 To 999 x=If Then List1.AddItem str(x)择题用对分查找法从数列中找到数据的查找次数是答案解析有一组数据为利用顺序查找和对分查找查找时则分别查找几次可以找到目标值无法使用对分查找无法使用对分查找答案解析已知有一组数据排列若要对分查找数值需要查找必备欢迎下载读程序写出下列程序的输出结果共题每题只有一个正确答案每题分共分上述程序段中的执行次数是答案解析关于对分查找和顺序查找算法的叙述正确的是顺序查找需要排序效率低对分查找不需要排序效率高顺序查找不效率高对分查找不需要排序效率低答案解析某数组有个元素依次为若采用对分查

49、找法在该数组中查找数据依次被访问的数据为答案解析萧明申请了一个网银账号登录网银账号时要输入密码如果密码输入的错误次数超过次那么当日网学习必备 欢迎下载 n=n+1 End If Next i Label2.Caption=共有：+Str(n)+个 End Sub （1）在设计应用程序界面时，要将按钮 Command1的标题改为“寻找”，应该修改它的 属性（2）为实现上述功能，划线 处应填入的代码为 ；划线 处应填入的代码为 ；（3）解决该问题主要采用的算法是 【答案】（1）caption（2）20005+i*10 int(sqr(x)=sqr(x)（3）枚举算法【解析】评卷人 得分 三、操作题

50、 28编写 VB程序，实现如下功能：在文本框 Text1中输入一个整数，单击“查找删除”按钮 Command1，采用对分查找法在数组 A(从小到大排列，并显示在标签 Label1中)中查找该数。若找到，则从数组 A中删除该数(该数后面的数组元素都前移一位)，并在标签 Label2中显示删除后的结果(运行效果如图所示)；否则，在标签 Label2中显示“该数没有找到”。实现上述功能的 VB代码如下，但加框处代码有错，请改正。Dim A(1 To 10)As Integer 用于保存 10个按从小到大顺序排列的整数 Form_Load事件过程产生 10个整数，按升序保存在数组 A中，并在标签 La