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

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

《高中信息技术VB排序算法与程序实现浏览题阅览题会考复习题.docx》由会员分享，可在线阅读，更多相关《高中信息技术VB排序算法与程序实现浏览题阅览题会考复习题.docx（14页珍藏版）》请在冰点文库上搜索。

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

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

学校:

___________姓名：

___________班级：

___________考号：

___________

评卷人

得分

一、选择题

（一）顺序查找数据：

我们假定被查找的数据存储在有n个元素的数组变量d中，要寻找的一个特定的数据（这个数据称为查找键）已经存储在变量key中。

下面是顺序查找算法的输入输出说明。

输入：

查找键（设在变量key中）。

被查找的数据（设在数组变量d中）。

输出：

若找到，输出值为key的数据所在的数组元素的下标，记为i；

若未找到，输出结果为提示字符串：

"找不到"。

当在n=8个元素的数组里顺序查找数据的示意图如下：

找到情况未找到情况

总结顺序查找数据结果判断条件：

（1）、当找到时，肯定i<="8,"n个数据时，肯定i<=n，i即为找到的数组元素下标，d（i）=key；

（2）、当"找不到"时，i=9>8了；n个数据时，当i=n+1时，表示"找不到"。

顺序查找的主程序段如下：

PrivateSub顺序查找_Click（）

n个数据放入d

（1）到d（n）中

Key="Val（Text1.Text）:

"i=1．‘变量Key从文本框Text1取的数要查找的数；

DoWhile①

i="i"+1

Loop

Ifi<="n"Then

Text2.Text="在d（"+Str（i）+"）中"‘例如在文本框Text2显示：

“在d（6）中”

Else

Text2.Text="找不到"

EndIf

EndSub

上程序DoWhile的条件①是（）

A．Key<>d（i）

B．i<=n

C．Key<>d（i）Andi<=n

D．Key<>d（i）ori<=n

【答案】C

【解析】

2．用选择排序将七个数“2022、2017、2018、2014、2021、2012、2015”从小到大进行排序，则第二轮交换数据后的顺序是：

A、2022、2021、2018、2017、2014、2012、2015

B、2012、2014、2018、2017、2021、2022、2015

C、2012、2017、2018、2014、2021、2022、2015

D、2022、2021、2018、2014、2017、2012、2015

【答案】D

【解析】

3．关于对分查找和顺序查找算法的叙述，正确的是（）。

A．顺序查找需要排序，效率低；对分查找不需要排序，效率高。

B．顺序查找不需要排序，效率低；对分查找需要排序，效率高。

C．顺序查找不需要排序，效率高；对分查找需要排序，效率低。

D．顺序查找需要排序，效率高；对分查找不需要排序，效率低。

【答案】B

【解析】

4．某数组有8个元素，依次为500、419、352、350、300、200、180、100，若采用顺序查找法在该数组中查找数据300，需要查找的次数是（）

A．1B．3C．4D．5

【答案】D

【解析】

5．下面程序段用于求两数中的较大数（结果保存到变量maxn中），不正确的是（）

A．maxn=x

Ify>=maxnThenmaxn=y

B．Ifx>yThenmaxn=xElsemaxn=y

C．maxn=x

Ify>=xThenmaxn=y

D．Ify>=xThenmaxn=y

maxn=x

【答案】D

【解析】

6．某超市面食区共有5种面食品种，其价格依次为6.20、4.5、5.5、2、3，若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（）

A、25.536.24.5

B、236.24.55.5

C、24.56.235.5

D、235.54.56.2

【答案】B

【解析】

7．某市组织了一次我心目中最喜爱的球队的评比活动，6个球队网上投票数为201、287、501、189、397、295，若采用冒泡排序算法对其进行从大到小排序，则第三遍加工后的结果是（）

原始数据

201

287

501

189

397

295

第一遍

501

201

287

397

189

295

第二遍

501

397

201

287

295

189

第三遍

A．501397295287201189

B．501397201287295189

C．501397295201189287

D．501397295201287189

【答案】D

【解析】

8．在信息加工中，经常要对被处理的数据进行排序，在排序时经常要进行数据的交换。

下面有四个程序段：

x=y

y=x

②x=x+y

y=x－y

x=x－y

③t=x

x=y

y=t

④x=x-y

y=x+y

x=y－x

其中能正确地将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”从小到大进行排序，则第二轮交换数据后的顺序是（）

A．2022，2021，2018，2017，2014，2012，2015

B．2012，2014，2018，2017，2021，2022，2015

C．2012，2017，2018，2014，2021，2022，2015

D．2022，2021，2018，2014，2017，2012，2015

【答案】B

【解析】本题意图考核考生考生选择排序算法执行过程的理解。

11．下表记录了6个数据的排序过程。

分析表中数据可知，该排序采用的算法与排序方式分别为（）

原始数据

65

57

59

44

45

69

第1遍

44

65

57

59

45

69

第2遍

44

45

55

57

59

69

第3遍

44

45

57

65

59

69

…

…

…

…

…

…

…

A．冒泡排序，升序B．选择排序，升序

C．冒泡排序，降序D．选择排序，降序

【答案】A

【解析】

评卷人

得分

二、填空题

12．小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。

下列VB程序实现如下功能：

单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。

请根据算法将下列程序补充完整。

Dima（1To45）AsString

Dimb（1To45）AsInteger

PrivateSubForm_Load（）

a

（1）="中国"

b

（1）=308

‘45个代表团名称及奖牌数分别放在a

（1）到a（45）及b

（1）到b（45）中

EndSub

PrivateSubCommand1_Click（）

DimiAsInteger,jAsInteger

DimtAsInteger,fAsInteger

List1.Clear

Fori=1To3

Forj=①To2Step-1

If②Then

f=a（j）:

a（j）=a（j-1）:

a（j-1）=f

t=b（j）:

b（j）=b（j-1）:

b（j-1）=t

EndIf

Nextj

Nexti

Fori=1To3

List1.AddItem"第"+Str（i）+"名"+a（i）+"奖牌数"+Str（b（i））

Nexti

EndSub

【答案】

（1）45（1分）

（2）b（j-1）>b（j）（1分）

【解析】

13．下列VB程序的功能是：

程序运行时，单击命令按钮Commandl后，产生10个[1，999]范围内互不相同的随机整数，依次显示在列表框List1中，然后将它们按从小到大的顺序排序，排序结果显示在列表框List2中。

数组a用于存储产生的10个随机整数，函数f（x）用于判断随机整数x与已生成的整数是否有重复，若有重复则返回True，否则返回False。

（1）虚线框内程序段所采用的排序算法名称是。

（填：

冒泡排序/选择排序）

（2）在程序

（1）和

（2）划线处，填入适当的语句或表达式，把程序补充完整。

Dima（1To10）AsInteger

Functionf（xAsInteger）AsBoolean′代码略

EndFunction

PrivateSubCommandl_Click（）

DimnAsInteger′n用于统计已经产生的随机整数个数

DimiAsInteger.jAsInteger

DimxAsInteger.kAsInteger

Randomize′初始化Rnd函数

n=0

List1.Clear′清除列表框中内容

List2.Clear

DoWhilen<10

x=Int（Rnd*999）+1′产生[1，999]范围内的随机整数

IfNotf（x）Then

n=n+1

a（n）=x

List1.AddItemStr（

（1））

EndIf

Loop

Fori=1To9′进行排序

Forj=10Toi+1

（2）

Ifa（j）

k=a（j）:

a（j）=a（j-1）:

a（j-1）=k

EndIf

Nextj

Nexti

Fori=1To10

List2.AddItemStr（a（i））

Nexti

EndSub

【答案】

（1）冒泡排序

（2）a（n）Step-1

【解析】

14．某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下VisualBasic程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a（i）中，姓名保存在b（i）中。

程序界面如图所示，左边列表框List1中显示原始数据（成绩和相应的姓名），单击“排序”按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的算法流程图如图所示，排序部分的程序段如下：

Dima（1To10）AsSingle

Dimb（1To10）AsString

PrivateSubCommand1_Click（）

DimiAsInteger，jAsInteger，kAsInteger，xAsSingle，yAsString

Fori＝1To9

k＝i

Forj＝i＋1To10

If①________Thenk＝j

Nextj

Ifk＜＞iThen

x＝a（i）：

a（i）＝a（k）：

②________

y＝b（i）：

b（i）＝b（k）：

b（k）＝y

EndIf

Nexti

Fori＝iTo10

List2.AddItemStr（a（i））＋“”＋b（i）

Nexti

EndSub

PrivateSubForm_Load（）

’此过程用于对数组a和数组b进行初始赋值，代码略

EndSub

（1）解决此问题的算法是________。

（选填：

冒泡排序或选择排序）

在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：

（2）程序中①画线处应填入________。

程序中②画线处应填入________。

【答案】

（1）选择排序

（2）①a（k）＜a（j）或a（j）＞a（k）

②a（k）＝x

【解析】

评卷人

得分

三、操作题

15．打开并修改考生文件夹下“VB”文件夹中的工程文件“paixu.vbp”，使其具有下列功能：

点击命令按钮Command1，清除列表框List1和列表框List2的内容，并自动产生三个100~999之间的随机数显示在列表框1中。

点击命令按钮Command2，清除列表框List2的原有内容，对产生的随机数进行从大到小排序并显示在列表框List2中，点击命令按钮Command3，清除列表框List2的原有内容，对产生的随机数进行从小到大排序并显示在列表框List2中。

程序运行界面如下图所示：

完成下列操作：

1．对照效果图，在窗体的适当位置创建命令按钮Command2，适当修改其大小,设置其Caption属性值为“从大到小排序”。

2．给命令按钮Command2添加合适的事件编码，使之实现上述功能。

该事件过程代码从“VB”文件夹下“code.txt”文件中得到。

3．在注释①和②所在行中找出惟一的错误并改正，测试程序，使其实现上述功能。

程序调试正确后，生成“paixu.exe”，保存在“VB”文件夹中。

保存窗体文件和工程文件。

【答案】1.双击“paixu.vbp”文件用VB打开工程，打开资源管理器里的工程窗口调出窗体，然后选择工具栏中的命令按钮，在窗体的合适位置创建，并鼠标拖动修改其大小,在属性栏里设置其Caption属性值为“从大到小排序”。

2.打开“VB”文件夹下“code.txt”文件复制代码，双击command2按钮，右键点击复制。

3.修改注释②处的代码，把“900”改成“800”后进行调试，最后选择“文件”菜单中的“生成paixu.exe”，保存在“VB”文件夹中，然后点击“文件”菜单选择“保存工程。

”

【解析】