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

信息技术会考 VB程序综合题1、典型题例：打开考生文件夹152文件夹中的文件：工程1.vbp 进行以下操作后并保存！李小姐忘记了自己的保险箱密码，但是她记得首尾数字为6和5（65），密码能被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 a2、典型题例：打开考生文件夹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 SingleDim h As SingleDim bmi As Singlew = 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/h2bmi0 x 60 Or a = 60 Then 转换出秒数 b = Int(a / _) 第一空 c = a - b * 60Else c = aEnd IfIf b 60 Or b = 60 Then 转换出分钟 d = Int(b / 60) e = b - d * 60Else e = bEnd IfIf d 60 Or d = 60 Then 转换出小时 f = Int(d / 60) g = d - f * 60Else g = dEnd Ifh = 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 IntegerDim y As Singlex = Text1.Texty = _ 第一空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 Integers1 = 0s2 = 0For i = 1 To 100 If _ = 0 Then 第一空，求出偶数之和 s1 = _ 第二空 Else s2 = s2 + i 求出奇数之和 End IfNext iText1.Text = _ 第三空Text2.Text = s2End Sub答案： i mod 2 s1+i s18、典型题例：打开考生文件夹96文件夹中的文件：工程1.vbp进行以下操作后并保存！（编程在字符串相连接时不应使用+要使用&运算符）(1) 在窗体Form1.frm中添加一个CommandButton按钮，命名为Command1并设置该控件Caption属性值为：画图；(2) 完善程序，单击画图按钮，使其能输出如下图形。注：运行时，把红色下划线删除 不能删除注释语句Private Sub Command1_Click() Dim i, j As Integer For i = 3 To 0 Step _ 第一空 Print Space(i); 打印空格 For j = 1 To 10 Print _ 第二空，打印符号“*” Next j Print Next iEnd Sub答案： -1 *;9、典型题例：打开考生文件夹97文件夹中的文件：工程1.vbp进行以下操作后并保存！（编程在字符串相连接时不应使用+要使用&运算符）完善程序，使之实现如下功能：程序运行时，输入3个整数，输出最小的一个整数！注：运行时，把红色下划线删除 不能删除注释语句输入3个整数，输出最小值注：运行时，把红色下划线删除 不能删除注释语句Private Sub Form_Load()Dim x As IntegerDim min As IntegerDim i As Integermin = InputBox(请输入数据, 输入3个数) 输入第一个整数For i = 1 To _第一空 x = InputBox(请输入数据, 输入3个数) 输入第二和第三个整数 If _ Then 第二空 min = x End IfNext iText1.Text = _ 第三空 输出最小的整数End Sub答案：2xmin min10、典型题例：打开考生文件夹98文件夹中的文件：工程1.vbp进行以下操作后并保存！（编程在字符串相连接时不应使用+要使用&运算符）五一节时，某商场推出促销活动，购物总金额达到100元可以打9折，达到200元可以打8折，100元以下不打折！完善程序，使之实现如下功能：在第一个文本框中输入购物总金额，单击计算按钮时，在第二个文本框中输出实际支付金额！Private Sub Command1_Click()Dim x As IntegerDim y As Integerx = Text1.TextIf x = _ Then 第一空y = x * 0.8 打8折ElseIf x = _ Then 第二空y = x * 0.9 打9折Elsey = x 不打折End IfText2.Text = _ 第三空End Sub答案：200100y11、典型题例：输入100内（包含）100的数，判断它是奇数还是偶数Private Sub Command1_Click()Dim x As Integerx = Text1.TextIf _ Then 第一空Text2.Text = 输入的整数不能超过100Else If _ = 1 Then 第二空Text2.Text = 奇数ElseText2.Text = 偶数End IfEnd Sub答案： x100 x mod 212、典型题例：求100内能被3整除的偶数和P