信息技术会考vb程序综合题

《信息技术会考vb程序综合题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、信息技术会考VB程序综合题1、典型题例：打开"考生文件夹152"文件夹中的文件："工程1.vbp"进行以下操作后并保存！李小姐忘记了自己的保险箱密码，但是她记得首尾数字为6和5（6□□5），密码能被69和95整除。请您完善程序帮她找回密码！PrivateSubCommand1_Click()DimaAsLongFora=6005To___①___Step10   If(aMod69=0)And(____②   __)Then     Printa   EndIfNext____③___EndSub答案：①6995　　　②amod95　　　③  a   2、典型题例：打开"考生文件

2、夹154"文件夹中的文件："bmi.vbp"进行以下操作后并保存！(1)界面设计，添加一个标签Label（其“名称”属性为Label3），在属性窗口中将其Top属性值设置为“2000”，Left属性值设置为“700”；(2)奥运会参赛选手要进行体重检查，他们的体检标准为：Bim=w/(h*h)，其中w表示体重（单位为千克），h表示身高（单位为米）。其值在20（包含20）至25（包含25）之间为“合格”，否则认为“不合格”。完善程序，在文本框Text1中输入体重，文本框Text2中输入身高，单击“体检”按钮时，在标签Label3上输出健康状态；(3)操作完后将该程序以原文件名保存。

3、PrivateSubCommand1_Click()　　DimwAsSingle　　DimhAsSingle　　DimbmiAsSingle　　w=Val(Text1.Text)　　h=Val(Text2.Text)　　bmi=①                                        '计算机bmi指数　　Ifbmi>=20And②Then     Label3.Caption=Str(bmi)+"合格"                 '输出bmi指数及健康状态　　Else     Label3.Caption=Str(bmi)+"不合格"        

4、       '输出bmi指数及健康状态　　　③　EndSub答案：①w/(h*h)或w/h^2　　　②bmi<25　　　③endif3、典型题例：3、打开"考生文件夹155"文件夹中的文件："biaozhang.vbp"进行以下操作后并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）(1)设置窗体From1中按钮Command1的“Caption”属性值为“计算”；(2)某学校开表彰大会，一、二、三等奖共30人。学校准备拿5000元进行奖励，已知一等奖奖金400元，二等奖奖金200元，三等奖奖金100元。问：一、二、三等奖各为多少人?完善程序，并将结果在窗体上打印

5、出来；(3)操作完后将该程序以原文件名保存。注：1、运行时，把红色下划线删除。   2、不能删除注释语句PrivateSubCommand1_Click()　DimOneAsInteger,TwoAsInteger,ThreeAsInteger　DimMoneyAsInteger,CountAsInteger　Count=0'用来记录符合条件的组合数、、　Print"方案"&"     "&"一等奖"&"    "&"二等奖"&"    "&"三等奖"'打印表头　ForOne=1To5000/400    ForTwo=1To5000200       Three=①      

6、 Money=400*One+200*Two+100*Three       IfMoney=②Then           Count=Count+1           Print"第"&Count&"方案"&"   "&Str(One)&"人     "&Str(Two)&"人     "&Str(Three)&"人"'打印符合条件的结果组合       EndIf          ③　　NextOneEndSub答案：①  30-one-two　　　②  5000　　　③nexttwo4、典型题例：打开"考生文件夹89"文件夹中的文件："工程1.vbp"进行以下操作后

7、并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）(1)在窗体"Form1.frm"中添加一个名为"Command1"的按钮，并设置该控件"Caption"属性值为"判断"；(2)完善程序，使之完成如下功能：在Text1中输入一个整数，单击"判断"按钮时，在Label1中显示"正数"、"零"或者"负数"！注：①运行时，把红色下划线删除   ②不能删除注释语句'在Text1中输入一个整数，单击“判断”按钮，在Label1中显示“正数”、“零”或者“负数”！