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

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

2、数据结果判断条件：(1)、 当找到时，肯定i=8, n个数据时，肯定i8了；n个数据时，当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的条件 是（

3、）AKey d（i）Bi = nCKey d(i) And i = nDKey d(i) or 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 5.5 3 6.2 4.5B、2 3 6.2 4.5 5.5C、2 4.5 6.2 3 5.5D、2 3 5.5 4.5 6.2【答

4、案】B【解析】7某市组织了一次我心目中最喜爱的球队的评比活动，6个球队网上投票数为201、287、501、189、397、295，若采用冒泡排序算法对其进行从大到小排序，则第三遍加工后的结果是( )原始数据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在信息加工中，经常要对被处理的数据进行排序，在排序时

5、经常要进行数据的交换。下面有四个程序段： x = yy =x x = x + yy= xyx= xyt = x x= yy= tx = x- yy= x+yx= yx其中能正确地将x和y两个变量中的数据进行交换的程序段有（ ）A、 1个 B 、2个 C 、3个 D 、4个【答案】C【解析】9解决上问题所用的算法是:（ ）A、枚举法 B、 解析法 C、 顺序查找 D、选择法【答案】B【解析】10用选择排序将七个数“2022，2017，2018，2014，2021，2012，2015”从小到大进行排序，则第二轮交换数据后的顺序是（ ）A2022，2021，2018，2017，2014，2012，2

6、015B2012，2014，2018，2017，2021，2022，2015C2012，2017，2018，2014，2021，2022，2015D2022，2021，2018，2014，2017，2012，2015【答案】B【解析】本题意图考核考生考生选择排序算法执行过程的理解。11下表记录了6个数据的排序过程。分析表中数据可知，该排序采用的算法与排序方式分别为（ ）原始数据655759444569第1遍446557594569第2遍444555575969第3遍444557655969A冒泡排序，升序 B选择排序，升序C冒泡排序，降序 D选择排序，降序【答案】A【解析】评卷人得分二、填空题

7、12小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。请根据算法将下列程序补充完整。Dim a(1 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 A

8、s Integer,f As IntegerList1.ClearFor i = 1 To 3For j = To 2 Step -1If Thenf = a(j): a(j) = a(j - 1): a(j - 1) = ft = b(j): b(j) = b(j - 1): b(j - 1) = t End IfNext jNext iFor i = 1 To 3List1.AddItem 第 + Str(i) + 名 + a(i) + 奖牌数 + Str(b(i)Next iEnd Sub【答案】（1）45（1分） （2）b(j - 1) b(j)（1分）【解析】13下列VB程序的功能是

9、：程序运行时，单击命令按钮Commandl后，产生10个1，999范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。数组a用于存储产生的10个随机整数，函数f(x)用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。（1）虚线框内程序段所采用的排序算法名称是 。（填：冒泡排序/选择排序）（2）在程序(1)和(2)划线处，填入适当的语句或表达式，把程序补充完整。Dim a(1 To 10) As IntegerFunction f(x As Integer) As Boolean 代码略E

10、nd FunctionPrivate Sub Commandl_Click()Dim n As Integer n用于统计已经产生的随机整数个数Dim i As Integer.j As IntegerDim x As Integer.k As IntegerRandomize 初始化Rnd函数n=0List1.Clear 清除列表框中内容List2.ClearDo 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

11、 进行排序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）冒泡排序 （2）a（n） Step-1【解析】14某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进行排序，程序中数组 a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在b(i)中。程序界面如图所示，左边列表框

12、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 Integer，k As Integer，x As Single，y As StringFor i1 To 9kiFor ji1 To 10If _ Then kjNext jIf ki Thenxa(i)：a

13、(i)a(k)：_yb(i)：b(i)b(k)：b(k)yEnd IfNext iFor ii To 10List2.AddItem Str(a(i)“ ”b(i)Next iEnd SubPrivate Sub Form_Load()此过程用于对数组a和数组b进行初始赋值，代码略End Sub(1)解决此问题的算法是_。(选填：冒泡排序或选择排序)在程序和画线处，填入适当的语句或表达式，把程序补充完整：(2)程序中画线处应填入_。程序中画线处应填入_。【答案】(1)选择排序(2)a(k)a(j)或a(j)a(k)a(k)x【解析】评卷人得分三、操作题15打开并修改考生文件夹下“VB”文件夹中

14、的工程文件“paixu.vbp”，使其具有下列功能：点击命令按钮Command1，清除列表框List1和列表框List2的内容，并自动产生三个100999之间的随机数显示在列表框1中。点击命令按钮Command2，清除列表框List2的原有内容，对产生的随机数进行从大到小排序并显示在列表框List2中，点击命令按钮Command3，清除列表框List2的原有内容，对产生的随机数进行从小到大排序并显示在列表框List2中。程序运行界面如下图所示：完成下列操作：1对照效果图，在窗体的适当位置创建命令按钮Command2，适当修改其大小,设置其Caption属性值为“从大到小排序”。2给命令按钮Co

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