信息技术会考VB程序综合题.docVIP

信息技术会考 VB程序综合题 1、典型题例：打开考生文件夹\152文件夹中的文件：工程1.vbp 进行以下操作后并保存！李小姐忘记了自己的保险箱密码，但是她记得首尾数字为6和5（6□□5），密码能被69和95整除。请您完善程序帮她找回密码！ Private Sub Command1_Click()Dim a As LongFor a = 6005 To ___①___ Step 10??? If (a Mod 69 = 0) And (____ ②??? __) Then????? Print a??? End IfNext ____③___End Sub 答案：① 6995　　　② a mod 95　　　③?? a??? 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) 操作完后将该程序以原文件名保存。 Private Sub Command1_Click()　　Dim w As Single　　Dim h As Single　　Dim bmi As Single　　w = Val(Text1.Text)　　h = Val(Text2.Text)　　bmi = ①???????????????????????????????????????? 计算机bmi指数　　If bmi = 20 And ② Then????? Label3.Caption = Str(bmi) + 合格????????????????? 输出bmi指数及健康状态　　Else????? Label3.Caption = Str(bmi) + 不合格??????????????? 输出bmi指数及健康状态　　　③　End Sub 答案：①w/(h*h) 或w/h^2　　　②bmi25　　　③endif 3、典型题例：3、打开考生文件夹\155文件夹中的文件：biaozhang.vbp 进行以下操作后并保存！（编程在字符串相连接时不应使用+要使用运算符）(1) 设置窗体From1中按钮Command1的“Caption”属性值为“计算”；(2) 某学校开表彰大会，一、二、三等奖共30人。学校准备拿5000元进行奖励，已知一等奖奖金400元，二等奖奖金200元，三等奖奖金100元。问：一、二、三等奖各为多少人?完善程序，并将结果在窗体上打印出来；(3) 操作完后将该程序以原文件名保存。注：1、运行时，把红色下划线删除。??? 2、不能删除注释语句 Private Sub Command1_Click()　Dim One As Integer, Two As Integer, Three As Integer　Dim Money As Integer, Count As Integer　Count = 0 用来记录符合条件的组合数、、　Print 方案 ????? 一等奖 ???? 二等奖 ???? 三等奖 打印表头　For One = 1 To 5000 / 400???? For Two = 1 To 5000 \ 200??????? Three = ①??????? Money = 400 * One + 200 * Two + 100 * Three??????? If Money = ② Then??????????? Count = Count + 1??????????? Print 第 Count 方案 ??? Str(One) 人????? Str(Two) 人????? Str(Three) 人 打印符合条件的结果组合??????? End If?????????? ③　　Next OneEnd Sub 答案：①?? 30-one-two　　　②?? 5000　　　③ next two 4、典型题例：打开考生文件夹\89\文件夹中的文件：工程1.vbp进行以下操作后并保存！（编程在字符串相连接时不应使用+要使用运算符）(1) 在窗体Form1.frm中添加