浙江信息技术高考题分类第四单元 算法综合应用.docx
- 文档编号:14564920
- 上传时间:2023-06-24
- 格式:DOCX
- 页数:9
- 大小:156.38KB
浙江信息技术高考题分类第四单元 算法综合应用.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
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 浙江信息技术高考题分类 第四单元 算法综合应用 浙江 信息技术 考题 分类 第四 单元 算法 综合 应用