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

高中信息技术 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次查找中依次找到的数据是（ ）。A 10 17 22 B9 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 = 1For j = 10 To -10 Step -2s = s * jNext jMsgBox (s)上述程序段中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 66、88、92 D 66、88、98、92【答案】A【解析】8萧明申请了一个网银账号，登录网银账号时要输入密码。如果密码输入的错误次数超过3次，那么当日网银账号将被锁定，次日自动解锁。下图是登陆网银的流程图，萧明不小心输入密码错误了2次，第3次才正确，那么他的操作流程应该是（ ）A B C D 【答案】A【解析】9下面是一组有序的数组d，现运用对分查找，dm为每次查找到的中间值，完成查找J的过程中所查找到的dm的值是（ ）1234567891011121314ABCDEFGHIJKLMNAG K L J BG C K JCG 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【答案】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)a(5)a(6)a(7)houjilongmaniushetuA依次被比较的数据是“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、 解析法 C、 顺序查找 D、选择法【答案】B【解析】15某一算法的流程图如第9题图所示，则该算法的功能是( )A求三个数中最大的数 B求三个数中最小的数C将三个数从小到大排列 D将三个数从大到小排列【答案】B【解析】16以下算法中，需要通过多重循环一一列举出解决问题的所有可能解，并在逐一列举的过程中，检验每个可能解是否是问题的真正解；而需要从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是（ ）A 穷举法、公式法 B 循环法、递归法C 查找法、函数法 D 枚举法、解析法【答案】D【解析】17下列Visual Basic程序的功能是输入身高（l/cm）和体重(k/kg)来测试你的身材是否符合标准。Private Sub Command1_Click()Dim l, k, BMI As Singlel = Val(Text2.Text) / 100k = Val(Text3.Text) BMI = k / (l * l)If BMI = 25 ThenText1.Text = 偏胖ElseText1.Text = 非常标准End IfEnd Sub运行程序后在Text2中输入180，Text3中输入90，那么在Text1中输出的是（ ）A、太瘦了 B、偏胖 C、非常标准 D、超出范围【答案】B【解析】18想从学生中选出一些理科比较好的同学参加理科知识竞赛，主要考察数学和物理两个科目的成绩，在数学成绩大于90的同学中挑选出物理成绩不小于89的同学参加竞赛，VB条件表达式应该是（ ）（S:数学成绩，W:物理成绩）A S=89 B S=89C S=89 D S90 And W=89【答案】D【解析】评卷人得分二、填空题19生活中，许多女士喜欢穿高跟鞋，那穿高跟鞋会使人感到美吗？黄金分割能解释这个问题。人体躯干与身高比例的黄金分割点是肚脐。换句话说，这一比值越接近0.618，愈给人美之感。现按要求编写“高跟鞋的最佳之选”的VB程序（界面如下图所示），实现如下功能： 首先，设某女躯干a米和身高b米，分别从文本框Text1和Text2中输入，比值为g。鞋跟高度为s（单位与 a、b 一致），那么比值g=（a+s）/（ b+s），如果g=0.618，那么鞋跟高度S的值就是最佳高度,所以最佳的鞋跟高度s=(0.618b-a)/0.382,设计程序计算最佳鞋跟高度的程序。（1）应用程序界面设计时，为了显示s的值，在窗体中添加了 控件，一般需将它的 属性值设置为空。（2）图中的人物是通过设置Image1对象的 属性,将外部图像文件添加进去的。（3）请根据题意将下列程序补充完整。Private Sub Command1_Click（ ）Dim a As Single, b As Single，s As Singlea = 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 IntegerDim Key As IntegerPrivate Sub Command1_Click()t0For i1 To 5 If _ Then ti Exit For End IfNext iPrint tEnd SubPrivate 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现要求编写VB程序，界面如第2题-1图所示。程序功能如下：在文本框Text1中输入身份证号码，单击“识别”按钮Command1，在标签Label3中输出对应的性别。具体方法为：（1）若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；（2）若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。应用程序界面设计时，为添加“识别”按钮，应使用2图中“控件工具箱”中的 （填写相应编号），并修改3图“属性窗口”中，将 属性值设置为“识别”请根据题意将下列程序补充完整Dim x As String, n As Integer, s As Stringx = Text1.Textn = Len(x)If n = 15 Thens = Mid( , Len(x), 1)If Val(s) Mod 2 = 0 ThenText2.Text = 女ElseText2.Text = 男End IfElses=Mid(x, 17, 1)If ThenText2.Text = 男ElseText2.Text = 女End IfEnd If【答案】（1）3（1分） Caption（1分）（2）x（1分） val(s) mod 2 =1（1分）【解析】22有一Access数据库“school.accdb” 存放在f:2015mtvb文件夹中，其中的“student”数据表用来存储学生的基本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内的为对应字段名。下列VB程序用来实现根据学号查询并显示学生信息，运行界面如下图所示。在文本框Text1中输入学生的学号，单击“查询”，在文本框Text2、Text3、Text4中分别显示学生姓名、性别、分数。Private Sub Command1_Click()Dim adocn As New adodb.ConnectionDim adors As New adodb.RecordsetDim str2 As String, str1 As Stringstr1 = Provider=Microsoft.ACE.OLEDB12.0;data source=f:2015mtvb_adocn.Open str1str2 = select * from students where num= + Text1.Textadors.Open str2, adocn, adOpenDynamic, adLockOptimisticIf adors.EOF = True ThenMsgBox 你输入的学号不存在ElseText2.Text = adors.Fields(name).ValueText3.Text = adors.Fields(sex).Value_End Ifadors.Closeadocn.CloseEnd Sub【答案】（1）school.accdb（1分）（2）Text4.Text = adors.Fields(score).Value（1分）【解析】23一个程序功能如下：单击开始按钮，每隔1秒产生一个1,100的随机数，赋给变量n，对产生的随机数进行判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数达到20个时，停止。Timer控件的Enabled属性设置为False，即程序刚运行时不起作用。程序代码如下：Dim m As Integer m 为模块级变量，用于记录随机数个数Private Sub Command1_Click()RandomizeTimer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Dim n As Integer If Then List1.AddItem nElse List2.AddItem n End Ifm = m + 1 If m = 20 Then End Sub 在程序、划线处，填入适当的语句或表达式，把程序补充完整:程序中划线处应填入_。程序中划线处应填入_。程序中划线处应填入_。【答案】（1） n = Int(Rnd * 100) + 1（2）n Mod 2 = 0 （多）（3） Timer1.Enabled = False【解析】24杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事务和享受公共服务的集成电路卡（IC卡），具有信息储存、身份识别、电子支付等功能。每位市民卡的卡号是唯一的，卡内会记录每位市民的姓名、住址、金额等信息。假设共有1000个市民，市民的相关信息都存储在“information.accdb”的data表中，查询程序界面如图所示。工作人员在文本框Text1中输入卡号，单击“开始查询”按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否则显示“查无此人”。请按要求将下列程序补充完整。Private Sub command1_click()Dim conn As New ADODBConnection, rs As New ADODBRecordsetDim strSQL As StringDim a,b as string 分别定义姓名、余额Dim n as integerconn.ConnectionString = Provider=Microsoft.ACE.OLEDB12.0;Data Source= + App.Path + information.accdb 打开到数据库的链接 conn.OpenstrSQL =select xh,xm from data where 卡号=&(Text1.Text) & 设置查询的SQL语句 Set rs.ActiveConnection = conn 设置rs的ActiveConnection属性，指定与其关联的数据库链接rs.Open strSQL 打开记录集，将从表information中读取的结果保存到记录集rs中Label1.Caption = n=0Do while not rs.EOF a=rs.Fields(姓名) b=rs.Fields(余额)rs.movenextlooprs.Closeconn.closeset rs=nothingset 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小明利用所学的知识帮助语文老师设计一个语文学考等级查询系统，要求如下：输入某个等级，就能查出该等级的所有学生学号和姓名，并统计出该等级学生的人数，以便语文老师方便了解学生的学考情况。语文学考成绩分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 存放学生姓名的数组定义为stunaDim stunum(1 To 100) As String 存放学生学号的数组定义为stunumDim i As Integer, j As Integer, n As IntegerDim t As String连接数据库Dim cn As New ADODBConnectionDim rs As New ADODBRecordsetDim strSQL As Stringcn.ConnectionString = Provider=Microsoft.ACE.OLEDB12.0;Data Source= + App.Path + stugrade.accdbcn.OpenstrSQL = select * from Chinese where 语文等级= + Text1.Text + Set rs.ActiveConnection = cnrs.Open strSQLn = 0Do While Not rs.EOFn = n + 1stuna(n) = rs.Fields(姓名).Valuestunum(n) = rs.Fields(学号).Valuers.NextMove Looprs.Closecn.CloseSet rs = NothingSet cn = NothingList1.Clear 清除列表框If n = 0 ThenList1.AddItem 没有该等级的学生ElseFor i = 1 To n - 1 按姓名排序For j = n To i + 1 Step -1If stuna(j) stuna(j - 1) Then t = stunum(j): stunum(j) = stunum(j - 1): stunum(j - 1) = tt = stuna(j): stuna(j) = stuna(j - 1): stuna(j - 1) = tEnd IfNext jNext iFor i = 1 To nList1.AddItem stunum(i) + + stuna(i)Next iLabel2.Caption = 该等级的学生共有 + Str(n) + 名End IfEnd Sub（1）加框处有错，应改为_。（3分）（2）加框处有错，应改为_。（3分）【答案】rs.MoveNext stunum(j)stunum(j-1)【解析】通过一个学考等级查询系统，把Access数据库，通过ADO对象连接数据库以及冒泡排序等知识点串联在一起，是对考生VB访问数据库的综合考查。作为本次考试命题的最后一题，本题涉及到知识面较广，难度也较大，对考生也提出更高的要求。26用VB设计查询并统计某公司的销售数据。实现如下功能：将所有员工的姓名和销售量存储到数组xm和xse中；对销售量数组进行求和，并输出该地区平均销售量（保留整数）；根据输入“销售排名前几位”筛选出排名前几位销售人员的数据。程序运行界面如图所示。（1）下列程序对员工的销售额进行排序的主要算法属于 （选填：解析算法/枚举算法/冒泡排序算法/选择排序算法）（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。Dim xse(1 To 3000) As Long 存储销售员工的销售量,最大处理个数为3000Dim xm(1 To 3000) As String 存储销售员工的姓名Dim mc(1 To 3000) As Integer 存储销售员工的名次Dim num As Integer 当前员工总数Private Sub Form_Load()将销售量、姓名数据存入xse和xm数组 计算员工总数num 代码略End SubPrivate 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 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 List1.AddItem 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 x As Integer n = 0 For i = 0 To 999 x = If Then List1.AddItem str(x) 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）枚举算法【解析】评卷人得分三、操作题28编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组A(从小到大排列，并显示在标签Label1中)中查找该数。若找到，则从数组A中删除该数(该数后面的数组元素都前移一位)，并在标签Label2中显示删除后的结果(运行效果如图所示)；否则，在标签Label2中显示“该数没有找到”。实现上述功能的VB代码如下，但加框处代码有错，请改正。Dim A(1 To 10) As Integer 用于保存10个按从小到大顺序排列的整数Form_Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示Private Sub Form_Load()代码略End SubPriva