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

《浙江信息技术高考题分类第四单元算法综合应用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、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，“开始”按钮的名称是Comm

2、and1。在Text1中输入数据，单击“开始”按钮，在Text2中显示统计结果。“开始”按钮单击事件处理过程的流程图如第18题-5图所示。请根据流程图将下列程序补充完整。PrivateSubCommand1_Click()DimnAsInteger,mAsInteger,iAsIntegerDimxAsSingle,yAsSinglen=①m=0Randomize′初始化Rnd函数Fori=1Tonx=Rnd′随机产生x坐标，0≤x＜1y=Rnd′随机产生y坐标，0≤y＜1②NextiText2.Text=Str(m)EndSub第18题-5图17．

3、（2009年9月浙江省高考）某电视台的直播节目结束后，主持人从参与短信投票的观众中抽取若干名幸运观众。假设共有500名观众参与短信投票，抽奖程序的部分VB代码如下，程序运行时界面如第17题图所示。主持人在文本框Text1中输入幸运观众数量后，单击“开始”按钮Command1，在列表框List1中显示幸运观众的手机号码。请在划线处填入合适的代码。第17题图Dima(1To500)AsString'参与短信投票观众的手机号码'Form_load过程用于将参与短信投票观众的手机号码存放到数组a中PrivateSubForm_Load()'该过程代码略End

4、SubPrivateSubCommand1_Click()DimnAsInteger'幸运观众的数量DimtAsInteger'幸运观众的序号DimiAsIntegerRandomize(1)List1.ClearFori=1Tont=Int(Rnd*500)+1DOWhile(2)=Truet=Int(Rnd*500)+1LoopList1.AddltemMid(a(t),1,3)+“****+Mid(a(t),8,4)NextiEndSub'check函数用于判断随机产生的幸运观众的序号是否重复PrivateFunctioncheck(tAsIn

5、teger)AsBoolean'函数值为True表示序号重复'该函数代码略EndFunction17、（2010年9月浙江省高考）小施想编写一个VB程序帮助弟弟练习最大公约数的计算，程序运行界面如下图所示。单击“生成题目”按钮Command1生成两个两位随机正整数，分别显示在左边的文本框Text1和中间的文本框Text2中。在右边的文本框Text3中输入结果并按回车键后，如果结果正确，将在该文本框右边的标签Label3中显示“√”，否则显示“×”。请在画线处填入合适的代码。DimrAsInteger‘用于存放最大公约数PrivateSubComman

6、d1_Click()DimiAsIntegerDimmAsIntegerDimnAsIntegerRandomizem=Int(Rnd*90)+10n=Int(Rnd*90)+10Text1．Text=Str(m)：Text2．Text=Str(n)Text3．Text=""：Label3．Caption=""Ifm>nThenr=nElser=mFori=rTo1Step-1IfmModi=0nModi=0Thenr=iExitForEndIfNextiEndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger

7、)IfKeyAscii=13ThenIfr=ThenLabel3．Caption="√"ElseLabel3．Caption="×"EndIfEndSub18、（2010年9月浙江省高考）某中学2009年下半年和2010年上半年各有300名和100名学生参加信息技术高考，下列VB程序用于统计参加过这两次考试的学生信息，其中Command1_Click过程的算法流程图如下所示，请回答下列问题：（1）流程图中虚线框部分所采用的查找算法名称是。（2）程序加框处的代码有错，请改正。Dima(1To300)AsString‘用于存放参加2009年下半年考试学生

8、的身份证号码Dimb(1To300)AsString‘用于存放参加2010年上半年考试学生的身份证号码‘Fo