当前位置:首页 >> 金融/投资 >> 信息技术会考VB程序综合题

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


信息技术会考

VB 程序综合题

1、典型题例:打开"考生文件夹\152"文件夹中的文件:"工程 1.vbp" 进行以下 操作后并保存! 李小姐忘记了自己的保险箱密码,但是她记得首尾数字为 6 和 5(6□□5),密 码能被 69 和 95 整除。请您完善程序帮她找回密码! Private Sub Command1_Click() Dim a As Long For a = 6005 To ___①___ Step 10 If (a Mod 69 = 0) And (____ ② Print a End If Next ____③___ End Sub

__) Then

答案:① 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 = ① If bmi >= 20 And ② Then Label3.Caption = Str(bmi) + "合格" 数及健康状态

'计算机 bmi 指数 '输出 bmi 指

Else Label3.Caption = Str(bmi) + "不合格" 数及健康状态 ③ End Sub

'输出 bmi 指

答案:①w/(h*h) 或 w/h^2 ②bmi<25 ③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 One End Sub 答案:① 30-one-two ② 5000 ③ next two

4、典型题例:打开"考生文件夹\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 If End Sub 答案:① x ② x>0 ③ x<0

5、典型题例:打开"考生文件夹\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) ③ h

6、典型题例:打开"考生文件夹\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 = y End Sub

答案:① x*2.54

7、典型题例:打开"考生文件夹\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 = s2 End Sub 答案:① i mod 2 ② s1+i ③ s1

8、典型题例:打开"考生文件夹\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 i End Sub 答案:① -1 ② "*";

'打印空格 '第二空,打印符号“*”

9、典型题例:打开"考生文件夹\97\"文件夹中的文件:"工程 1.vbp"进行以下 操作后并保存! (编程在字符串相连接时不应使用"+"要使用"&"运算符)完善程 序,使之实现如下功能:程序运行时,输入 3 个整数,输出最小的一个整数! 注:①运行时,把红色下划线删除 ②不能删除注释语句 '输入 3 个整数,输出最小值 '注:①运行时,把红色下划线删除 ' ②不能删除注释语句 Private Sub Form_Load() Dim x As Integer Dim min As Integer Dim i As Integer min = InputBox("请输入数据", "输入 3 个数") 整数 For i = 1 To __①__'第一空 x = InputBox("请输入数据", "输入 3 个数") 第三个整数 If ___②___ Then min = x End If Next i Text1.Text = _③ 的整数 End Sub 答案:①2 ②x>min ③ min

'输入第一个

'输入第二和 '第二空

'第三空 '输出最小

10、典型题例:打开"考生文件夹\98\"文件夹中的文件:"工程 1.vbp"进行以下 操作后并保存!(编程在字符串相连接时不应使用"+"要使用"&"运算符)

"五一"节时,某商场推出促销活动,购物总金额达到 100 元可以打 9 折,达到 200 元可以打 8 折,100 元以下不打折!完善程序,使之实现如下功能:在第一 个文本框中输入购物总金额, 单击"计算"按钮时,在第二个文本框中输出实际支 付金额! Private Sub Command1_Click() Dim x As Integer Dim y As Integer x = Text1.Text If x >= __①__ Then y = x * 0.8 ElseIf x >= _②__ Then y = x * 0.9 Else y = x '不打折 End If Text2.Text = __③___ End Sub 答案:①200 ②100 ③y 11、典型题例:输入 100 内(包含)100 的数,判断它是奇数还是偶数

'第一空 '打 8 折 '第二空 '打 9 折

'第三空

Private Sub Command1_Click() Dim x As Integer x = Text1.Text If __①___ Then '第一空 Text2.Text = "输入的整数不能超过 100" Else If __②____ = 1 Then '第二空 Text2.Text = "奇数" Else Text2.Text = "偶数" End If End Sub 答案:① x>100 ② x mod 2 12、典型题例:求 100 内能被 3 整除的偶数和

Private Sub Command1_Click( )

Dim x, i As Integer x = 0 For i = 6 To 100 Step __①__ '第一空,请保证每一次循环的整除都是偶 数 If __②____ = 0 Then '第二空,判断是否能被 3 整除 x = __③___ '第三空 End If Next i Text1.Text = x End Sub

答案:① 2 ② x mod 3 ③ x+i


更多相关文档:

高中信息技术会考(VB部分)练习

高中信息技术会考(VB部分)练习_其它课程_高中教育_教育专区。高中信息技术会考 VB 复习题一、单选题 1. 计算机程序的三种结构是顺序结构、 A.模块结构 2. A.任...

高中信息技术会考(VB部分)

计算机程序的三种结构是顺序结构、 A 高中信息技术会考 VB 复习题一、单选题 B B A D D C D A B A B C C B B C B B B C C A B C C C C...

2016年高中信息技术学业水平考试 VB程序复习题

2016年高中信息技术学业水平考试 VB程序复习题_其它课程_高中教育_教育专区。直击考点,精准练习。信息技术学业水平考试 VB 专题复习试卷(一) 由陈顺贵老师整理 2016...

高中信息技术VB试题及答案

高中信息技术VB试题及答案_其它课程_高中教育_教育专区。VB 1.下面选项内不属于描述面向对象程序设计特征的名词是( A.继承性 A .4 A.6.5 A .9 A.LABEL B...

信息技术会考练习题_第二部分_VB程序设计选择题_及答案

信息技术会考练习题 第二部分 VB 程序设计选择题第二部分 Visaul Basic 程序设计(选择题)—2006 年一、单选题(每题 1 分) : 1.计算机程序的三种结构是顺序...

高一信息技术会考_VB知识点整理

高一信息技术会考_VB知识点整理_其它课程_高中教育_教育专区。高一信息技术 VB ...3.冯?诺依曼经典性建议:数据和程序都应采用二进制代码表示。 4.基本单位:字节...

信息会考VB操作题

的值,单击“计算”按钮后在“y”框中显示 y 的值;单击“退出”按钮退出程序...2012年江苏高中信息技术... 37页 免费 09年6月正式会考vb操作题... 8页 免费...

高中信息VB试题

高中信息VB试题_其它课程_高中教育_教育专区。高中信息技术会考 VB 复习题 一、单选题 1. 计算机程序的三种结构是顺序结构、 、选择结构。 A.模块结构 B.循环...

信息技术会考操作题大全

信息技术高中会考操作题WORD、 EXCEL、VB、PS等并有傻瓜操作指南 ...段落——对齐方式—行距——选择固定值——25 磅(4) 保存文档并关闭应用程序...

高中信息技术考试vb程序题及答案

高中信息技术考试vb程序题及答案_其它课程_高中教育_教育专区。高中信息技术考试...信息技术会考练习题 第二... 5页 1下载券 高中信息技术算法与程序... 21页...
更多相关标签:
网站地图

文档资料共享网 nexoncn.com copyright ©right 2010-2020。
文档资料共享网内容来自网络,如有侵犯请联系客服。email:zhit325@126.com