信息技术会考VB程序综合题.doc
8页
信息技术会考 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 ②bmi<25 ③endif3、典型题例：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 two4、典型题例：打开"考生文件夹\89\"文件夹中的文件："工程1.vbp"进行以下操作后并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）(1) 在窗体"Form1.frm"中添加一个名为"Command1"的按钮，并设置该控件"Caption"属性值为"判断"；(2) 完善程序，使之完成如下功能：在Text1中输入一个整数，单击"判断"按钮时，在Label1中显示"正数"、"零"或者"负数"！注：①运行时，把红色下划线删除 ②不能删除注释语句'在Text1中输入一个整数，单击“判断”按钮，在Label1中显示“正数”、“零”或者“负数”！'注：①运行时，把红色下划线删除 '②不能删除注释语句Private Sub Command1_Click() Dim x As Integer ____ = Text1.Text '第一空 If _____ Then '第二空 Label1.Caption = "正数" ElseIf _____ Then '第三空 Label1.Caption = "负数" Else Label1.Caption = "零" End IfEnd Sub答案：① x ② x>0 ③ x<05、典型题例：打开"考生文件夹\91\"文件夹中的文件："工程1.vbp"进行以下操作后并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）完善程序，使之实现如下功能：输入一个时间秒数，单击"转换"按钮，转换成时分秒的形式，效果如图所示！注：①运行时，把红色下划线删除②不能删除注释语句'完善程序，输入时间秒，转换成时、分、秒形式！'(1) 运行时删除下划线'(2) 不能删除注释语句Private Sub Command1_Click() Dim a, b, c, d, e, f, g As Integer Dim h As String a = Text1.Text If a > 60 Or a = 60 Then '转换出秒数 b = Int(a / _____) '第一空 c = a - b * 60 Else c = a End If If b > 60 Or b = 60 Then '转换出分钟 d = Int(b / 60) e = b - d * 60 Else e = b End If If d > 60 Or d = 60 Then '转换出小时 f = Int(d / 60) g = d - f * 60 Else g = d End If h = Str(g) + "小时" + _____ + "分" + Str(c) + "秒"'第二空 Text2.Text =_____ '第三空End Sub答案：① 60 ② str(e) ③ h6、典型题例：打开"考生文件夹\94\"文件夹中的文件："工程1.vbp" ,进行如下操作后并保存！（编程在字符串相连接时不应使用"+"，要使用"&"运算符）(1) 在窗体"Form1.frm"中添加"Label"控件，命名为"Label1"并设置该控件"Caption"属性值为："输入英寸长度"；(2) 在窗体"Form1.frm"中添加"CommandButton"控件，命名为"Command1"并设置该控件"Caption"属性值为："换算后的厘米长度"；(3) 在窗体"Form1.frm"中添加"TextBox"控件，命名为"Text1"并设文本内容为"Text1"；(4) 在窗体"Form1.frm"中添加"TextBox"控件，命名为"Text2"并设文本内容为"Text2"；(5) 完善程序，使之实现如下功能：在上面的文本框中输入一个正整数，单击"换算后的厘米长度"按钮，在下面的文本框中输出换算后的长度！效果如图所示！(注：1英寸=2.54厘米)Private Sub Command1_Click() Dim x As Integer Dim y As Single x = Text1.Text y = ______ '第一空 Text2.Text = yEnd Sub答案：① x*2.547、典型题例：打开"考生文件夹\95\"文件夹中的文件："工程1.vbp"进行以下操作后并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）(1) 在窗体"Form1.frm"中添加一个"CommandButton"按钮，命名为"Command1"并设置该控件"Caption"属性值为："计算"；(2) 完善程序，使之实现如下功能：单击"计算"按钮，在文本框中分别输出1到100之间的奇数之和与偶数之和，结果如图所示!注：①运行时，把红色下划线删除 ②不能删除注释语句'求1到100之间所有偶数之和与所有奇数之和!'注：(1) 运行时把红色下划线删除' (2) 不能删除注释语句Private Sub Command1_Click() Dim s1 As Single, s2 As Single, i As Integer s1 = 0 s2 = 0 For i = 1 To 100 If ___①___ = 0 Then '第一空，求出偶数之和 s1 = ___②__ '第二空 Else s2 = s2 + i '求出奇数之和 End If Next i Text1.Text = _③__ '第三空 Text2.Text = s2End Sub答案：① i mod 2 ② s1+i ③ s18、典型题例：打开"考生文件夹\96\"文件夹中的文件："工程1.vbp"进行以下操作后并保存！（编程在字符串相连接时不应使用"+"要使用"&"运算符）(1) 在窗体"Form1.frm"中添。
