浙江信息技术高考题分类第四单元 算法综合应用.docx

浙江信息技术高考题分类第四单元 算法综合应用.docx

《浙江信息技术高考题分类第四单元 算法综合应用.docx》由会员分享，可在线阅读，更多相关《浙江信息技术高考题分类第四单元 算法综合应用.docx（9页珍藏版）》请在冰点文库上搜索。

浙江信息技术高考题分类第四单元算法综合应用

浙江信息技术高考题分类第四单元算法综合应用

18.（2008年10月浙江省高考）编写VB程序，在如第18题-1图所示1×1的正方形区域内产生一定数量、位置随机的点坐标，统计位于0.5×0.5的黑色区域内（包括边界）点的数量。

程序运行时界面如第18题-2图所示。

第18题-1图第18题-2图

（1）设计应用程序界面时，为添加“开始”按钮，应使用第18题-3图所示的“控件工具箱”中的______（填写相应编号），并在第18题-4图所示的“属性窗口”中，将______属性值设置为“开始”。

第18题-3图第18题-4图

（2）自上而下两个文本框的名称分别是Text1和Text2，“开始”按钮的名称是Command1。

在Text1中输入数据，单击

17．（2009年9月浙江省高考）某电视台的直播节目结束后，主持人从参与短信投票的观众中抽取若干名幸运观众。

假设共有500名观众参与短信投票，抽奖程序的部分VB代码如下，程序运行时界面如第17题图所示。

主持人在文本框Text1中输入幸运观众数量后，单击“开始”按钮Command1，在列表框List1中显示幸运观众的手机号码。

请在划线处填入合适的代码。

Dima（1To500）AsString'参与短信投票观众的手机号码

'Form_load过程用于将参与短信投票观众的手机号码存放到数组a中

PrivateSubForm_Load（）

'该过程代码略

EndSub

PrivateSubCommand1_Click（）

DimnAsInteger'幸运观众的数量

DimtAsInteger'幸运观众的序号

DimiAsInteger

Randomize

（1）

List1.Clear

Fori=1Ton

t=Int（Rnd*500）+1

DOWhile

（2）=True

t=Int（Rnd*500）+1

Loop

List1.AddltemMid（a（t）,1,3）+“****+Mid（a（t）,8,4）

Nexti

EndSub

'check函数用于判断随机产生的幸运观众的序号是否重复

PrivateFunctioncheck（tAsInteger）AsBoolean

'函数值为True表示序号重复

'该函数代码略

EndFunction

17、（2010年9月浙江省高考）小施想编写一个VB程序帮助弟弟练习最大公约数的计算，程序运行界面如下图所示。

单击“生成题目”按钮Command1生成两个两位随机正整数，分别显示在左边的文本框Text1和中间的文本框Text2中。

在右边的文本框Text3中输入结果并按回车键后，如果结果正确，将在该文本框右边的标签Label3中显示“√”，否则显示“×”。

请在画线处填入合适的代码。

DimrAsInteger‘用于存放最大公约数

PrivateSubCommand1_Click（）

DimiAsInteger

DimmAsInteger

DimnAsInteger

Randomize

m=Int（Rnd*90）+10

n=Int（Rnd*90）+10

Text1．Text=Str（m）：

Text2．Text=Str（n）

Text3．Text=""：

Label3．Caption=""

Ifm>nThenr=nElser=m

Fori=rTo1Step-1

IfmModi=0nModi=0Then

r=i

ExitFor

EndIf

Nexti

EndSub

PrivateSubText3_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

Ifr=ThenLabel3．Caption="√"ElseLabel3．Caption="×"

EndIf

EndSub

18、（2010年9月浙江省高考）某中学2009年下半年和2010年上半年各有300名和100名学生参加信息技术高考，下列VB程序用于统计参加过这两次考试的学生信息，其中Command1_Click过程的算法流程图如下所示，请回答下列问题：

（1）流程图中虚线框部分所采用的查找算法名称是。

（2）程序加框处的代码有错，请改正。

Dima（1To300）AsString‘用于存放参加2009年下半年考试学生的身份证号码

Dimb（1To300）AsString‘用于存放参加2010年上半年考试学生的身份证号码

‘Form_Load过程用于进行一些初始化准备工作

PrivateSubForm_Load（）

‘将参加2009年下半年考试学生的身份证号码存放在数组a中

‘将参加2010年上半年考试学生的身份证号码存放在数组b中

‘将数组a中的数据升序排序

‘将数组a和数组b中的数据分别显示在列表框List1和List2中

‘代码略

EndSub

‘Command1_Click过程用于统计参加过这两次考试的学生信息

PrivateSubCommand1_Click（）

DimiAsInteger,botAsInteger,topAsInteger,mAsInteger

Fori=1To300

bot=1

top=300

DoWhilebot<=top

m=Fix（（bot+top）/2）

Ifa（m）=b（i）Then

List3．AddItema（m）

ExitDo

ElseIfa（m）>b（i）Then

m=bot–1

Else

bot=m+1

EndIf

Loop

Nexti

EndSub