《高中信息技术VB查找算法与程序实现浏览题阅览题会考复习题.doc》由会员分享，可在线阅读，更多相关《高中信息技术VB查找算法与程序实现浏览题阅览题会考复习题.doc（21页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
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次查找中依次找到数据是 。A 10 17 2
2、2 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
3、 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萧明申请了一个网
4、银账号，登录网银账号时要输入密码。如果密码输入错误次数超过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有序数列,8,11.6,22,24,27,31,3,35，46，通过对分查找查找数31，需找 次A4 B3 C2 D1
5、【答案】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，“houB依次被比拟数据是“ma，“she，“tuC无法进展对分查找，因为这批数据还没排好序D无法进展查找操作，因为这批数据中没有“gou【答案】A【解析】13单调函数f(x)在
6、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以下算法中，需要通过多重循环一一列举出解决问题所有可能解，并在逐一列举过程中，检验每个可能解是否是问题真正解；而需要
7、从实际问题中归纳出数学表达式，就此求出解；这两个算法分别是 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 Then = 偏胖Else = 非常标准End IfEnd Sub运行程序后在Text2中输入
8、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，愈给人美之感。现按要
9、求编写“高跟鞋最正确之选VB程序界面如以下图所示，实现如下功能： 首先，设某女躯干a米和身高b米，分别从文本框Text1和Text2中输入，比值为g。鞋跟高度为s单位与 a、b 一致，那么比值g=a+s/ b+s，如果g=0.618，那么鞋跟高度S,设计程序计算最正确鞋跟高度程序。1应用程序界面设计时，为了显示s值，在窗体中添加了 控件，一般需将它 属性值设置为空。2图中人物是通过设置Image1对象 属性,将外部图像文件添加进去。3请根据题意将以下程序补充完整。Private Sub Command1_Click Dim a As Single, b As Single，s As Singl
10、ea = ValText1.Textb = Label4.caption=str(s)End Sub【答案】1Label或标签、caption2picture3val(text2.text)、s=【解析】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()此过程
11、用于对数组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中输出对应性别。具体
12、方法为：1假设身份证号为15位，那么根据第15位数字来判断，假设为偶数那么性别“女，否那么为“男；2假设身份证号为18位，那么根据第17位数字来判断，假设为偶数时那么性别为“女，否那么为“男。应用程序界面设计时，为添加“识别按钮，应使用2图中“控件工具箱中 填写相应编号，并修改3图“属性窗口中，将 属性值设置为“识别请根据题意将以下程序补充完整Dim x As String, n As Integer, s As Stringx = n = Len(x)If n = 15 Thens = Mid( , Len(x), 1)If Val(s) Mod 2 = 0 Then = 女Else = 男
13、End IfElses=Mid(x, 17, 1)If Then = 男Else = 女End IfEnd If【答案】131分 Caption1分2x1分 val(s) mod 2 =11分【解析】22有一Access数据库“school.accdb 存放在f:2021 mtvb文件夹中，其中“student数据表用来存储学生根本情况信息，包括学号(num)、姓名(name)、性别(sex)、分数(score)，括号内为对应字段名。以下VB程序用来实现根据学号查询并显示学生信息，运行界面如以下图所示。在文本框Text1中输入学生学号，单击“查询，在文本框Text2、Text3、Text4中分
14、别显示学生姓名、性别、分数。Private Sub Command1_Click()Dim adocn As New Dim adors As New Dim str2 As String, str1 As Stringstr1 = Provider=Microsoft.ACE.OLEDB12.0;data source=f:2021 mtvb_ str1str2 = select * from students where num= + str2, adocn, adOpenDynamic, adLockOptimisticIf = True ThenMsgBox 你输入学号不存在Else
15、= adors.Fields(name).Value = adors.Fields(sex).Value_End IfEnd Sub【答案】1school.accdb1分2Text4.Text = adors.Fields(score).Value1分【解析】23一个程序功能如下：单击开场按钮，每隔1秒产生一个1,100随机数，赋给变量n，对产生随机数进展判断，如果是偶数就显示在列表框1中，如果是奇数显示在列表框2中。当随机数到达20个时，停顿。Timer控件Enabled属性设置为False，即程序刚运行时不起作用。程序代码如下：Dim m As Integer m 为模块级变量，用于记录随
16、机数个数Private Sub Command1_Click()Randomize = TrueEnd SubPrivate Sub Timer1_Timer()Dim n As Integer If Then nElse n End Ifm = m + 1 If m = 20 Then End Sub 在程序、划线处，填入适当语句或表达式，把程序补充完整:程序中划线处应填入_。程序中划线处应填入_。程序中划线处应填入_。【答案】1 n = Int(Rnd * 100) + 12n Mod 2 = 0 多3 = False【解析】24杭州市民卡是由杭州市人民政府授权发放给市民用于办理个人相关事
17、务和享受公共效劳集成电路卡IC卡，具有信息储存、身份识别、电子支付等功能。每位市民卡卡号是唯一，卡内会记录每位市民姓名、住址、金额等信息。假设共有1000个市民，市民相关信息都存储在“information.accdbdata表中，查询程序界面如下图。工作人员在文本框Text1中输入卡号，单击“开场查询按钮，如果找到，就在Label1中显示卡内市民姓名和卡内余额；否那么显示“查无此人。请按要求将以下程序补充完整。Private Sub command1_click()Dim conn As New ADODBConnection, rs As New ADODBRecordsetDim str
18、SQL As StringDim a,b as string 分别定义姓名、余额Dim n as integer = Provider=Microsoft.ACE.OLEDB12.0;Data Source= + + information.accdb 翻开到数据库链接 strSQL =select xh,xm from data where 卡号=&(Text1.Text) & 设置查询SQL语句 Set = conn 设置rsActiveConnection属性，指定与其关联数据库链接 strSQL 翻开记录集，将从表information中读取结果保存到记录集rs中 = n=0Do wh
19、ile not a=rs.Fields(姓名) b=rs.Fields(余额)loopset rs=nothingset conn=nothing if n=0 then Label1.caption=查无此人End Sub1程序中划线处应填入_。2程序中划线处应填入_。【答案】1n=n+1 2Label1.caption=a+ 卡内余额为+b+元【解析】此题意图考核考生应用Visual Basic访问数据库相关知识，考核学生是否理解通过ADO对象连接数据库，通过Recordset对象获取表中数据等相关知识。 25小明利用所学知识帮助语文教师设计一个语文学考等级查询系统，要求如下：输入某个等级
20、，就能查出该等级所有学生学号和姓名，并统计出该等级学生人数，以便语文教师方便了解学生学考情况。语文学考成绩分A、B、C、D、E五个等级，学生信息存储在数据库文件“stugrade.accdb数据表“Chinese中，数据表“Chinese构造如图1所示。VB程序运行界面如图2所示，在文本框Text1中输入查询等级，单击“查询按钮Command1，在列表框List1中显示所有该等级学生学号和姓名，并按照学号从小到大排序，并在标签Label2处显示学生人数，如果人数为0,那么在列表框中显示“没有该等级学生。按此要求编写程序如下，但加框处代码有错误，请改正。Private Sub Command1_
21、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;Dat
22、a Source= + App.Path + stugrade.accdbstrSQL = select * from Chinese where 语文等级= + Text1.Text + Set rs.ActiveConnection = cnrs.Open strSQLn = 0n = n + 1stuna(n) = rs.Fields(姓名).Valuestunum(n) = rs.Fields(学号).Value LoopSet rs = NothingSet cn = NothingList1.Clear 去除列表框If n = 0 ThenList1.AddItem 没有该等级学生
23、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 = 该等级学生共有 + S
24、tr(n) + 名End IfEnd Sub1加框处有错，应改为_。3分2加框处有错，应改为_。3分【答案】rs.MoveNext stunum(j)stunum(j-1)【解析】通过一个学考等级查询系统，把Access数据库，通过ADO对象连接数据库以及冒泡排序等知识点串联在一起，是对考生VB访问数据库综合考察。作为本次考试命题最后一题，此题涉及到知识面较广，难度也较大，对考生也提出更高要求。26用VB设计查询并统计某公司销售数据。实现如下功能：将所有员工姓名和销售量存储到数组xm和xse中；对销售量数组进展求和，并输出该地区平均销售量保存整数；根据输入“销售排名前几位筛选出排名前几位销售人
25、员数据。程序运行界面如下图。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 SubPri
26、vate Sub Command1_Click() Dim sum As Long Dim i As Integer, flag As Integer pm = Val(Text2.Text) dq = 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
27、 - 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 排名 + 姓名 + 销售量 For i = 1 To pm Str(mc(i) + + xm(i) + + Str(xse(i) Next i dq + 平均销售额约为： + End Sub【答案】1冒泡2 num xse(i)=xse(i-1)或 xse(i-1)=xse(i) str(sumnum)【解析】27编写VB程序，寻找第1位为2
28、，第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 str(x) n= n+1 End If Next i = 共有： + Str(n) + 个End Sub1在设计应用程序界面时，要将按钮Com
29、mand1标题改为“寻找，应该修改它 属性2为实现上述功能，划线处应填入代码为 ； 划线处应填入代码为 ； 3解决该问题主要采用算法是 【答案】1caption2 20005+i*10 int(sqr(x)=sqr(x) 3枚举算法【解析】评卷人得分三、操作题28编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除按钮Command1，采用对分查找法在数组A(从小到大排列，并显示在标签Label1中)中查找该数。假设找到，那么从数组A中删除该数(该数后面数组元素都前移一位)，并在标签Label2中显示删除后结果(运行效果如下图)；否那么，在标签Label2中显示“该数没
30、有找到。实现上述功能VB代码如下，但加框处代码有错，请改正。Dim A(1 To 10) As Integer 用于保存10个按从小到大顺序排列整数Form_Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示Private Sub Form_Load()代码略End SubPrivate Sub Command1_Click()Dim i As Integer，j As Integer，m As Integer，k As IntegerDim x As Integer，f As Boolean 变量f用于标记是否在数组中找到xxVal(Text1.Text)i1：
31、j10fFalseDo While(ij)And (fFalse) mInt(ij)/2) If A(m)x Then fTrue If Then im1 Else jm1(1)LoopIf fTrue Then For km To 9 (2) Next k Label2.Caption“ For k1 To 9Label2.CaptionLabel2.CaptionStr(A(k)“ Next kElse Label2.Caption“该数没有找到End IfEnd Sub【答案】(1)A(m)x或xA(m)(2)A(k)A(k1)【解析】29翻开并修改考生文件夹下“VB文件夹中工程文件“h
32、ktest.vbp，使其具有以下功能：在文本框Text1中输入会考证号，在文本框Text2中输入会考模拟测试成绩；点击“等第判定按钮，程序根据以下范围判定该成绩等第，并给出评价语句；点击“退出按钮，关闭程序。成绩0-5960-7980-9495-100等第ECBA程序运行界面如以下图所示：完成以下操作：1对照效果图，修改窗体相关属性，使标题栏显示文字为“会考等第判定。修改窗体BorderStyle属性值，使之与效果图一样。2翻开代码窗体，查看注释和所在行语句，修改其中错误一行，使程序在运行过程中，输入小于0或大于100数值，能在标签Label3上显示“成绩输入无效，请重新输入！提示。3运行程序，发现在文本框Text1输入会考证号与在文本框Text2输入测试成绩并单击命令按钮Command1后，在标签Label3上未能显示判定结果。请在注释所在行添加正确事件代码，实现上述功能。程序调试正确后，删除所有注释语句，并生成“hktest.exe，保存在“VB文件夹中。 保存窗体文件和工程文件。【答案】1选择form1对象，在其属性窗口中，将caption设置为“会考等第判定；选择BorderStyle属性，如图设置2j处修改为：If ss 100 Then3l处语句为：Label3.Caption = dd或者Label3.Caption = str(dd)【解析】