高中信息技术VB排序算法与程序实现浏览题阅览题会考复习题.doc

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

1、高中信息技术 VB排序算法与程序实现 浏览题阅览题 会考复习题学校:_姓名：_班级：_考号：_评卷人得分一、选择题一顺序查找数据：我们假定被查找数据存储在有n个元素数组变量d中，要寻找一个特定数据(这个数据称为查找键)已经存储在变量key中。下面是顺序查找算法输入输出说明。输入：查找键(设在变量key中)。 被查找数据(设在数组变量d中)。输出：假设找到，输出值为key数据所在数组元素下标，记为i；假设未找到，输出结果为提示字符串：找不到。当在n=8个元素数组里顺序查找数据示意图如下：找到情况 未找到情况总结顺序查找数据结果判断条件：(1)、 当找到时，肯定i=8, n个数据时，肯定i8了；n

2、个数据时，当i=n+1时，表示找不到。 顺序查找主程序段如下：Private Sub 顺序查找_Click()n个数据放入d(1)到d(n)中Key = Val(Text1.Text): i =1变量Key从文本框Text1取数要查找数；Do While i = i + 1LoopIf i = n ThenText2.Text = 在d( + Str(i) + )中 例如在文本框Text2显示：“在d(6)中ElseText2.Text = 找不到End IfEnd Sub上程序Do While条件 是 AKey diBi = nCKey d(i) And i = nDKey d(i) or

3、i =maxn Then maxn=y BIf xy Then maxn=x Else maxn=yCmaxn=xIf y=x Then maxn=y DIf y=x Then maxn=ymaxn=x【答案】D【解析】6某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，假设采用冒泡排序算法对其进展从小到大排序，那么第二趟排序结果是 A、2 3 B、2 3 C、2 3 D、2 3 【答案】B【解析】7某市组织了一次我心目中最喜爱球队评比活动，6个球队网上投票数为201、287、501、189、397、295，假设采用冒泡排序算法对其进展从大到小排序，那么第三遍加工后结

4、果是( )原始数据201287501189397295第一遍501201287397189295第二遍501397201287295189第三遍A501 397 295 287 201 189 B501 397 201 287 295 189C501 397 295 201 189 287 D501 397 295 201 287 189【答案】D【解析】8在信息加工中，经常要对被处理数据进展排序，在排序时经常要进展数据交换。下面有四个程序段： x = yy =x x = x + yy= xyx= xyt = x x= yy= tx = x- yy= x+yx= yx其中能正确地将x和y两个变

5、量中数据进展交换程序段有 A、 1个 B 、2个 C 、3个 D 、4个【答案】C【解析】9解决上问题所用算法是: A、枚举法 B、 解析法 C、 顺序查找 D、选择法【答案】B【解析】10用选择排序将七个数“2022，2021，2021，2021，2021，2021，2021 从小到大进展排序，那么第二轮交换数据后顺序是 A2022，2021，2021，2021，2021，2021，2021 B2021，2021，2021，2021，2021，2022，2021 C2021，2021，2021，2021，2021，2022，2021 D2022，2021，2021，2021，2021，202

6、1，2021 【答案】B【解析】此题意图考核考生考生选择排序算法执行过程理解。11下表记录了6个数据排序过程。分析表中数据可知，该排序采用算法与排序方式分别为 原始数据655759444569第1遍446557594569第2遍444555575969第3遍444557655969A冒泡排序，升序 B选择排序，升序C冒泡排序，降序 D选择排序，降序【答案】A【解析】评卷人得分二、填空题12小王设计了一个程序来列举仁川亚运会奖牌前三国家。以下VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。请根据算法将以下程序补充完整。Dim a(1

7、To 45) As StringDim b(1 To 45) As IntegerPrivate Sub Form_Load()a(1) = 中国b(1) = 30845个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中End SubPrivate Sub Command1_Click()Dim i As Integer,j As IntegerDim t As Integer,f As IntegerFor i = 1 To 3For j = To 2 Step -1If Thenf = a(j): a(j) = a(j - 1): a(j - 1) = ft = b(

8、j): b(j) = b(j - 1): b(j - 1) = t End IfNext jNext iFor i = 1 To 3 第 + Str(i) + 名 + a(i) + 奖牌数 + Str(b(i)Next iEnd Sub【答案】1451分 2b(j - 1) b(j)1分【解析】13以下VB程序功能是：程序运行时，单击命令按钮Commandl后，产生10个1，999范围内互不一样随机整数，依次显示在列表框List1中，然后将它们按从小到大顺序排序，排序结果显示在列表框List2中。数组a用于存储产生10个随机整数，函数f(x)用于判断随机整数x与已生成整数是否有重复，假设有重复

9、那么返回True，否那么返回False。1虚线框内程序段所采用排序算法名称是 。填：冒泡排序/选择排序2在程序(1)和(2)划线处，填入适当语句或表达式，把程序补充完整。Dim a(1 To 10) As IntegerFunction f(x As Integer) As Boolean 代码略End FunctionPrivate Sub Commandl_Click()Dim n As Integer n用于统计已经产生随机整数个数Dim i As Integer.j As IntegerDim x As Integer.k As IntegerRandomize 初始化Rnd函数n=0

10、 去除列表框中内容Do While n10x=Int(Rnd*999)+1 产生1，999范围内随机整数If Not f(x) Thenn=n+1a(n)=x List1.AddItem Str( 1 )End IfLoopFor i=1 To 9 进展排序For j=10 To i+1 2 If a(j)a(j-1) Thenk=a(j):a(j)=a(j-1):a(j-1)=kEnd IfNext j Next i For i=1 To 10List2.AddItem Str(a(i)Next iEnd Sub【答案】1冒泡排序 2an Step-1【解析】14某协会进展钓鱼比赛，最后有十

11、人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进展排序，程序中数组 a保存所有参赛者成绩，数组b保存此成绩对应姓名，第i位参赛者成绩保存在a(i)中，姓名保存在b(i)中。程序界面如下图，左边列表框List1中显示原始数据(成绩和相应姓名)，单击“排序按钮(Command1)，排序后结果按成绩从高到低显示在列表框List2中。解决此问题算法流程图如下图，排序局部程序段如下：Dim a (1 To 10) As SingleDim b (1 To 10) As StringPrivate Sub Command1_Click()Dim i As Integer，j As

12、 Integer，k As Integer，x As Single，y As StringFor i1 To 9kiFor ji1 To 10If _ Then kjNext jIf ki Thenxa(i)：a(i)a(k)：_yb(i)：b(i)b(k)：b(k)yEnd IfNext iFor ii To 10 Str(a(i)“ b(i)Next iEnd SubPrivate Sub Form_Load()此过程用于对数组a和数组b进展初始赋值，代码略End Sub(1)解决此问题算法是_。(选填：冒泡排序或选择排序)在程序和画线处，填入适当语句或表达式，把程序补充完整：(2)程序中

13、画线处应填入_。程序中画线处应填入_。【答案】(1)选择排序(2)a(k)a(j)或a(j)a(k)a(k)x【解析】评卷人得分三、操作题15翻开并修改考生文件夹下“VB文件夹中工程文件“paixu.vbp，使其具有以下功能：点击命令按钮Command1，去除列表框List1和列表框List2内容，并自动产生三个100999之间随机数显示在列表框1中。点击命令按钮Command2，去除列表框List2原有内容，对产生随机数进展从大到小排序并显示在列表框List2中，点击命令按钮Command3，去除列表框List2原有内容，对产生随机数进展从小到大排序并显示在列表框List2中。程序运行界面如

14、以下图所示：完成以下操作：1对照效果图，在窗体适当位置创立命令按钮Command2，适当修改其大小,设置其Caption属性值为“从大到小排序。2给命令按钮Command2添加适宜事件编码，使之实现上述功能。该事件过程代码从“VB文件夹下“code.txt文件中得到。3在注释和所在行中找出惟一错误并改正，测试程序，使其实现上述功能。程序调试正确后，生成“paixu.exe，保存在“VB文件夹中。保存窗体文件和工程文件。“文件用VB翻开工程，翻开资源管理器里工程窗口调出窗体，然后选择工具栏中命令按钮，在窗体适宜位置创立，并鼠标拖动修改其大小,在属性栏里设置其Caption属性值为“从大到小排序。“VB文件夹下“code.txt文件复制代码，双击command2按钮，右键点击复制。注释处代码，把“900改成“800后进展调试，最后选择“文件菜单中“，保存在“VB文件夹中，然后点击“文件菜单项选择择“保存工程。【解析】