VB上机综合测试题十五套 .doc

《VB上机综合测试题十五套 .doc》由会员分享，可在线阅读，更多相关《VB上机综合测试题十五套 .doc（42页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。 要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线” （25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为输出平均值)。程序运行后，单击命令按钮完成以下工作： 随机产生20个0到1000的整数，将其放入一个一维数组中 求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。运行程序时，先向左侧文本

2、框中输入一个不超过10的正整数，然后选择N的阶乘或(N+2)的阶乘单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）答案：一、界面设计-10分Private Sub Check1_Click()old = -5分End SubPrivate Sub Check2_Click()talic = -5分End SubPrivate Sub Check3_Click() nderline = -5分End Sub二、界面设计-10分Private Sub Cmd1_Click()-2分Dim a%(19), i%, sum!, aver! -4分Randomize

3、-3分For i = 0 To 3分 a(i) = Int(Rnd * 1001) -3分 sum = sum + a(i) -3分Next i -2分aver = sum / 20 -3分Print aver -2分End Sub三、界面设计-10分Dim n%-2分Private Sub Form_Load() End Sub Private Sub Option1_Click()-2分Dim i% -2分n = Val(Text1) -3分m = 1 -1分For i = 1 To n -2分 m = m * i -2分Next i -2分Text2 = m -2分End Sub Pri

4、vate Sub Option2_Click()-1分Dim i% -2分m = 1 -1分For i = 1 To n + 2 -2分m = m * i -2分Next i -2分Text2 = m -2分End SubVB上机综合测试题（二）1设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。（35分）2设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本

5、框中（见右图）（25分）。 3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80，向上移动160）；单击“停止升起”时，太阳静止不动。(40分)答案：一、界面设计-10分Private Sub Command1_Click()-2分 = Val() * 0.3 + Val() * 0.7-7分End SubPrivate Sub Command2_Click()-2分 = -3分 = -3分 = -3分End SubPrivate Sub Command3_Click()-2分 End-3分End

6、Sub二、界面设计-10分Private Sub Check1_Click(Indes As Integer）-2分 =-3分For k = 0 To 3-2分If Check1(k）.value = 1 Then-2分 = & Check1(k）.Caption & -2分End If-2分Next k-2分 End Sub三、界面设计-10-分Private Sub Command1_Click()-2分 ed = True-3分End SubPrivate Sub Command2_Click()-2分 ed = False-3分End SubPrivate Sub Form_Load(

7、)-2分 ed = False-3分End SubPrivate Sub Timer1_Timer()-2分 If = 0 Then-3分 + 80, + 3分 Else-2分 + 80, - 160-3分 End If-2分End SubVB上机综合测试题（三）一、银行卡密码验证程序1. 输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续操作！”。2. 如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密码清空，设置焦点。3. 密码为123456，要求密码框中以“*”的形式显示。二、输出图形应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体，即可

8、在窗体上输出如下图案。* 1 * 2* 2 * 3* 3* 3 * 4 *4*4*4 * 5* 5* 5* 5* 5 *三、计算球体积和表面积设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、 “球表面积”复选框，根据复选框是否可选，决定是否在右侧相应的文本框内显示球体积（）和球表面积（）的计算结果。答案：一、银行卡密码验证程序（30分）Private Sub Command1_Click() 2分If = 123456 Then 4分 2分 Print 密码正确! 2分 Else 3分 Cls 3分 Print 密码错误,请重新输入! 2分 = 2分 cus 4分 End I

9、f 4分End Sub 2分二、输出图形（30分）Private Sub Form_Click() 2分For i = 1 To 5 4分 Print *; 4分 For j = 1 To i 4分 Print i; 4分 Print *; 4分 Next j 2分 Print 2分Next I 2分End Sub 2分三、计算球体积和表面积（40分）Private Sub Check1_Click() 2分 r = Val() 2分 If = 1 Then 3分 v = 4 * 3.14159 * r 3 / 3 3分 = v 3分 Else 1分 = 2分 End If 2分End Sub

10、 2分Private Sub Check2_Click() 2分 r = Val() 2分 If = 1 Then 3分 s = 4 * 3.14159 * r 2 3分 = s 3分 Else 1分 = 2分 End If 2分End Sub 2分VB上机综合测试题（四）一、 在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。 要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。(25分)二、输入圆的半径，计算圆的面积。要求自行设计界面，使用到的控件包括文本框

11、，文字标签等。（35分）三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。（40分）答案：一、界面设计-10分PrivateSubCommand1_Click()-2分em-5分EndSubPrivateSubList1_DblClick()-3分eItemndex -5分EndSub二、界面-10分Private Sub Command1_Click()-2分Const PI As Single = 3.3分Dim r As Integer, s As Single-5分r = Val() -5分s =

12、PI * r * r-5分 = s-5分End Sub三、Private Sub Form_Click()-2分Dim a(10) As Integer, i As Integer, sum As Integer-5分For i = 0 To 5分a(i) = Int(100 * Rnd) -5分Print a(i); -3分If a(i) Mod 2 = 0 Then-5分sum = sum + a(i) -5分End If-2分Next i-3分MsgBox 随机数中偶数之和为： & sum-5分End SubVB上机综合测试题（五）一、在窗体上画两个名称分别为Text1、Text2的文本

13、框，再画两个命令按钮，名称分别为C1、C2，标题分别为“复制”、“删除”。程序运行时，在Text1中输入以下文本：“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍重里有蜜甜的忧愁。”要求多行显示。并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Text1中被删除，请编写两个命令按钮的Click事件过程完成上述功能。（30分）二、购买地铁车票，若乘1到4站，3元/位；若乘5到9站，4元/位；若乘10站以上，5元/位；输入人数person、站数n，输出应付款pay。（35分）三、从键盘输

14、入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。（35分）答案：一、界面设计-10分Private Sub C1_Click()-3分 = xt-7分End SubPrivate Sub C2_Click()-3分xt = -7分End Sub二、Private Sub Command1_Click()-1分Dim x As Single, y As Single, z-3分x = Val() -2分y = Val() -2分Select Case y-2分 Case Is = 10-3分 z = 5 * x-3分 Case Is = 5-3分 z = 4 *

15、 x-3分 Case Is = 1-3分 z = 3 * x-3分End Select-1分 = z-2分End SubPrivate Sub Command2_Click()-1分 = -1分 = -1分 = -1分End Sub三、Private Sub Form_Click()-2分Dim max!, min!, x! -3分x = InputBox(请输入学生考试成绩)-3分max = x-2分min = x-2分Do While x 0-2分 If x max Then-3分 max = x-2分 ElseIf x = A And c Max Then2分Max = a(i)2分t

16、= Chr(Asc(A) + i - 1)3分End IfNext i = t2分 = Max2分End SubVB上机综合测试题（七）1、在窗体上建立一个标签，其名称为Label1，窗体的标题为“设置标签属性”；标签的位置为距窗体左边界500，距窗体顶边界300；标签的标题为“等级考试”；标签可以根据标题的内容自动调整大小。请用代码列写出图片中对象的属性设置。（30分）2、由键盘输入10个数，再逆序输出。（35分）3、求120之间能被5整除的所有数的乘积。（35分）答案：一、界面设计-10-分on = 等级考试-4-分on = 设置标签属性-4-分 = 500-4-分 = 300-4-分iz

17、e = True-4分二、界面设计-5分Dim a(1 To 10) As Integer-2分Option Explicit-2分Private Sub Command1_Click()-2分Dim i%-2分Print 输入的10个数-2分For i = 1 To 10-2分 a(i) = Val(InputBox(输入第 & i & 个数)-2分Next i-2分For i = 1 To 10-2分 Print a(i); -2分Next i-2分Print: Print-2分End SubPrivate Sub Command2_Click()-2分Dim i%-2分Print 逆序后

18、的10个数-2分For i = 10 To 1 Step -1-2分 Print a(i); -2分Next i-2分End Sub三、界面设计-10分Private Sub Form_Click()-3分Dim i%, s As Long-2分s = 1-3分For i = 1 To 3分 If i Mod 5 = 0 Then-3分 s = s * i-3分 End If-2分Next i-2分Print s-3分End SubVB上机综合测试题（八）1、编写程序，打印如图所示图形。(30分)2、1100之间自然数的平方和，程序参考界面如图所示：(30分)3、找出在11000中同时满足被7

19、除余5、被5除余3、被3除余2条件的数，界面自定。(40分)答案：1评分标准：Private Sub Form_Click() 2分Dim i%, j% 2分For i = 1 To 5 4分 Print Tab(15 - i); 5分 For j = 1 To (2 * i - 1) 5分 Print *; 2分Next j 2分Next I 2分Print 2分End sub 2分正确保存窗体文件 1分正确保存工程文件 1分2评分标准：设置控件和窗体属性 5分Private Sub Form_Click() 2分Dim i, x, sum& 2分For i = 1 To 100 4分 x

20、= 1 + x 3分 sum = sum + x 2 5分Next I 2分 = Str(sum) 3分End Sub 2分正确保存窗体文件 1分正确保存工程文件 1分3评分标准设置控件和窗体属性 5分Private Sub Command1_Click() 2分Dim i, x% 2分For i = 1 To 1000 4分 x = x + 1 4分 If x Mod 7 = 5 And x Mod 5 = 3 And x Mod 3 = 2 Then 8分 Print Str(x) & Space(2); 5分 End If 2分Next 2分End Sub 2分正确保存窗体文件 2分正确

21、保存工程文件 2分VB上机综合测试题（九）1、编写一个函数计算1*2*n的值，函数名为fact() （30分）2、已知三角形的三条边，编写一个函数求其面积，函数名自命名。 （40分） 3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox()函数输入框。当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。（30分） 提问：（1）、应该对窗体的什么事件进行编程？ （2）、编写程序代码，实现上述功能。答案：一、界面设计-5分Private Function fact(n As Integer) As Integer-4分Dim i As Inte

22、ger-2分Dim r As Integer -2分r = 1 -3分For i = 1 To n -3分r = r * i -3分Next i -3分fact = r -3分End Function -2分End Sub二、界面设计-5分Private Sub Command1_Click()-1分 Dim a, b, c, l, S -5分a = Val(InputBox(请输入第一条边的长：) -3分b = Val(InputBox(请输入第二条边的长：) -3分c = Val(InputBox(请输入第三条边的长：) -3分l = (a + b + c) / 2 -3分If l = a

23、 Or l = b Or l 6 Then（5分）MsgBox 长度不能超过6（3分）End If（3分）End Sub3、（共40分）属性设置：=” -（1分）=”on=”姓名”on=”性别”on=”爱好”on=”籍贯” on=”院系” -（2分）on=”显示”on=”清空” on=”退出” -（1分）=”河北省 河南省 山东省等” -（2分）on=”男”on=”女 ” -（2分）on=“音乐”on=“运动”on=“美术” -（2分）程序为：Private Sub Command1_Click() -（2分） = 学生姓名是： + & Chr(13) & Chr(10) -（3分）If =

24、True Then -（5分）x = onElse: x = onEnd If = & 性别是 & x -（2分）If = False And = False And = False Then -if语句（5分） = & ,无爱好Else -（1分） = & ,爱好If = 1 Then = & 音乐 -（2分）If = 1 Then = & 运动If = 1 Then = & 美术End If -（2分） = & ,籍贯是 & = & ，院系是 & & 。 -（2分）End SubPrivate Sub Command2_Click() -（2分） = -（2分） = End SubPriv

25、ate Sub Command3_Click() -（2分）EndEnd SubVB上机综合测试题（十一）1、输入某一学生成绩，评定其等级。方法是：90100分为“优秀”，8089分为“良好”，7079分为“中等”，6069分为“及格”，60分以下为“不及格”。在以下事件过程中写出相应的程序源代码。Private Sub Form_Click()Dim x As Integerx=Val(InputBox(“x=?”)End Sub2、假设定义一个一维数组：Dim a(1 to 10) As Integer。在以下事件过程中编程序通过循环给数组的元素输入数据，并求数组中最大元素值及其下标。Pr

26、ivate Sub Form_Click()End Sub3、编程计算：S=50+51+52+199+200。综合测试答案说明：此题实现方法不止一种，教师可以根据具体情况，酌情给分1、Private Sub Form_Click()Dim x As Integer x=Val(InputBox(“x=?”) （5分）If x=90 thenprint “优秀” （4分）ElseIf x=80 Thenprint “良好” （4分）ElseIf x=70 Thenprint “中等” （4分）ElseIf x=60 Thenprint “及格” （4分）Elseprint “不及格” （4分）E

27、nd Sub或者Private Sub Form_Click()Dim x As Integerx=Val(InputBox(“x=?”)Select Case x （5分）Case 90 to 100print “优秀” （4分）Case 80 to 89print “良好” （4分）Case 70 to 79print “中等” （4分）Case 60 to 69print “及格” （4分）Case Elseprint “不及格” （4分）End SelectEnd Sub3、Private Sub Form_Click()Dim a(1 to 10) As Integer （3分）Dim I%，p%