VB上机综合测试题(十五套)(共42页).docx

精选优质文档-倾情为你奉上VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。 要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线” （25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为"输出平均值")。程序运行后，单击命令按钮完成以下工作： 随机产生20个0到1000的整数，将其放入一个一维数组中 求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择"N的阶乘"或"(N+2)的阶乘"单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）答案：一、界面设计-10分Private Sub Check1_Click()Text1.FontBold = Check1.Value -5分End SubPrivate Sub Check2_Click()Text1.FontItalic = Check2.Value-5分End SubPrivate Sub Check3_Click() Text1.FontUnderline = Check3.Value -5分End Sub二、界面设计-10分Private Sub Cmd1_Click()-2分Dim a%(19), i%, sum!, aver! -4分Randomize -3分For i = 0 To 19-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 Private 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设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。 3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80，向上移动160）；单击“停止升起”时，太阳静止不动。(40分)答案：一、界面设计-10分Private Sub Command1_Click()-2分 Text3.Text = Val(Text1.Text) * 0.3 + Val(Text2.Text) * 0.7-7分End SubPrivate Sub Command2_Click()-2分 Text1.Text = ""-3分 Text2.Text = ""-3分 Text3.Text = ""-3分End SubPrivate Sub Command3_Click()-2分 End-3分End Sub二、界面设计-10分Private Sub Check1_Click(Indes As Integer）-2分Text1.Text =""-3分For k = 0 To 3-2分If Check1(k）.value = 1 Then-2分 Text1.Text = Text1.Text & Check1(k）.Caption & " " -2分End If-2分Next k-2分 End Sub三、界面设计-10-分Private Sub Command1_Click()-2分 Timer1.Enabled = True-3分End SubPrivate Sub Command2_Click()-2分 Timer1.Enabled = False-3分End SubPrivate Sub Form_Load()-2分 Timer1.Enabled = False-3分End SubPrivate Sub Timer1_Timer()-2分 If Image1.Top = 0 Then-3分 Image1.Move Image1.Left + 80, Image1.Top + 160-3分 Else-2分 Image1.Move Image1.Left + 80, Image1.Top - 160-3分 End If-2分End SubVB上机综合测试题（三）一、银行卡密码验证程序1. 输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续操作！”。2. 如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密码清空，设置焦点。3. 密码为，要求密码框中以“*”的形式显示。二、输出图形应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体，即可在窗体上输出如下图案。* 1 * 2* 2 * 3* 3* 3 * 4 *4*4*4 * 5* 5* 5* 5* 5 *三、计算球体积和表面积设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、 “球表面积”复选框，根据复选框是否可选，决定是否在右侧相应的文本框内显示球体积（4r3/3）和球表面积（4r2）的计算结果。答案：一、银行卡密码验证程序（30分）Private Sub Command1_Click() 2分If Text1.Text = Then 4分 Form1.Cls 2分 Print "密码正确!" 2分 Else 3分 Cls 3分 Print "密码错误,请重新输入!" 2分 Text1.Text = "" 2分 Text1.SetFocus 4分 End If 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(Text1.Text) 2分 If Check1.Value = 1 Then 3分 v = 4 * 3.14159 * r 3 / 3 3分 Text2.Text = v 3分 Else 1分 Text2.Text = "" 2分 End If 2分End Sub 2分Private Sub Check2_Click() 2分 r = Val(Text1.Text) 2分 If Check2.Value = 1 Then 3分 s = 4 * 3.14159 * r 2 3分 Text3.Text = s 3分 Else 1分 Text3.Text = "" 2分 End If 2分End Sub 2分VB上机综合测试题（四）一、 在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。 要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。(25分)二、输入圆的半径，计算圆的面积。要求自行设计界面，使用到的控件包括文本框，文字标签等。（35分）三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。（40分）答案：一、界面设计-10分Private Sub Command1_Click()-2分List1.AddItem Text1.Text -5分End Sub  Private Sub List1_DblClick() -3分List1.RemoveItem List1.ListIndex -5分 End Sub二、界面-10分Private Sub Command1_Click()-2分Const PI As Single = 3.14-3分Dim r As Integer, s As Single-5分r = Val(Text1.Text) -5分s = PI * r * r-5分Text2.Text = 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 10-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的文本框，再画两个命令按钮，名称分别为C1、C2，标题分别为“复制”、“删除”。程序运行时，在Text1中输入以下文本：“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍重里有蜜甜的忧愁。”要求多行显示。并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Text1中被删除，请编写两个命令按钮的Click事件过程完成上述功能。（30分）二、购买地铁车票，若乘1到4站，3元/位；若乘5到9站，4元/位；若乘10站以上，5元/位；输入人数person、站数n，输出应付款pay。（35分）三、从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。（35分）答案：一、界面设计-10分Private Sub C1_Click()-3分Text2.Text = Text1.SelText-7分End SubPrivate Sub C2_Click()-3分Text1.SelText = ""-7分End Sub二、Private Sub Command1_Click()-1分Dim x As Single, y As Single, z-3分x = Val(Text1.Text) -2分y = Val(Text2.Text) -2分Select Case y-2分 Case Is >= 10-3分 z = 5 * x-3分 Case Is >= 5-3分 z = 4 * x-3分 Case Is >= 1-3分 z = 3 * x-3分End Select-1分Text3.Text = z-2分End SubPrivate Sub Command2_Click()-1分Text1.Text = ""-1分Text2.Text = ""-1分Text3.Text = ""-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 < min Then-3分 min = x-2分 End If-2分 x = InputBox("请输入学生考试成绩")-3分Loop-2分Print "max=" max; "min=" min-4分End SubVB上机综合测试题（六）1、窗体中有一个名称为Hscroll1的水平滚动条控件，要设置它的如下属性值，请编写代码实现如下内容：（20分）(1) Hscroll1控件的滑块处于最小位置时值为8(2) Hscroll1控件的滑块处于最大位置时值为72(3)单击Hscroll1控件两端箭头时，滑块的增量值为2(4)单击Hscroll1控件的空白处时，滑块的增量值为82、以下数列：1，1，3，5，9，15，25，41，的规律是从第3个数开始，每个数是它前面两个数的和加1。请编写适当的事件过程实现以下功能：在文本框Text1中输入整数40，单击Command1“计算”按钮，则在文本框Text2中显示该数列第40项的值。（提示：因数据较大，应使用Long型变量）（35分）3、窗体上有两个标题分别是“读数据”和“统计”的命令按钮两个标签，名称分别为Label1和Label2，标题分别为“出现次数最多的字母是”和“它出现的次数为”；两个初始值为空的文本框名称分别为Text1和Text2。程序功能如下：单击“统计”按钮，则自动统计字符串s中所含各字母（不区分大小写）出现的次数，并将出现次数最多的字母显示在Text1文本框内，它所出现的次数显示在Text2文本框内，请为“统计”按钮编写适当的事件过程实现上述功能。（45分）答案：一、Hscroll1.Min = 8： 5分Hscroll1.Max = 72： 5分Hscroll1.SmallChange =2：5分Hscroll1.LargeChange = 8 5分二、界面设计-10分单击“计算”按钮（即运行Click事件过程），在该Click事件过程中加入语句：Private Sub Command1_Click()3分Dim f As Long3分a(1) = 14分a(2) = 14分For i = 3 To Val(Text1.Text)5分f = a(i - 2) + a(i - 1) + 15分a(i) = f4分Next i3分Text2.Text = f4分End Sub三、界面设计-10分Private Sub Command2_Click() 1分Dim a(26) As Integer1分n = Len(s)3分For i = 1 To n1分c = UCase(Mid(s, i, 1)3分If c >= "A" And c <= "Z" Then3分j = Asc(c) - Asc("A") + 13分a(j) = a(j) + 12分End IfNext iMax = a(1)2分t = Chr(Asc("A")3分For i = 2 To 262分If a(i) > Max Then2分Max = a(i)2分t = Chr(Asc("A") + i - 1)3分End IfNext iText1.Text = t2分Text2.Text = Max2分End SubVB上机综合测试题（七）1、在窗体上建立一个标签，其名称为Label1，窗体的标题为“设置标签属性”；标签的位置为距窗体左边界500，距窗体顶边界300；标签的标题为“等级考试”；标签可以根据标题的内容自动调整大小。请用代码列写出图片中对象的属性设置。（30分）2、由键盘输入10个数，再逆序输出。（35分）3、求120之间能被5整除的所有数的乘积。（35分）答案：一、界面设计-10-分Label1.Caption = "等级考试"-4-分Form1.Caption = "设置标签属性"-4-分Label1.Left = 500-4-分Label1.Top = 300-4-分Label1.AutoSize = 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 "逆序后的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 20-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除余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 = 1 + x 3分 sum = sum + x 2 5分Next I 2分Text1.Text = 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分正确保存工程文件 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 Integer-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 Or l <= b Or l <= c Then -4分MsgBox "输入的数据不能组成三角形!" -3分Exit Sub -2分End If -2分S = Sqr(l * (l - a) * (l - b) * (l - c) -4分Print S -2分End Sub-2分三、界面设计-5分Private Sub Command1_Click()-2分Dim a(15), i As Integer -2分For i = 1 To 15 -3分a(i) = InputBox("请输入15个整数，单击确定按钮.", "", "") -4分Next i -2分For i = 1 To 15 -3分Print a(i); " " -3分If i Mod 5 = 0 Then Print -4分Next i -2分End SubVB上机综合测试题（十）1、 在窗体上绘制两个标签，名称分别是Lab1和Lab2，标题分别为“请输入一个正整数N”和“1+2+3+N=”；绘制两个文本框，名称分别是Text1和Text2，内容都设为空白，绘制一个命令按钮，名称为Cmd1，标题为“计算”。编写适当的程序，程序在运行时，在Text1中输入一个正整数，单击“计算”按钮，计算出1+2+3+N的和，并显示在Text2中。（30分）2、 要求：设计一个用户登录界面，界面如图所示。要求密码用*显示，如果用户名的长度超过6位，弹出警告窗口！（30分）3、创建一个学生管理系统（40分）要求：利用单选框实现学生性别，复选框实现学生爱好，组合框实现学生籍贯选择和院系，文本框输入学生姓名。单击“显示”按钮要把学生输入的信息全部显示到一个文本框中。参考答案1、（共30分）设置属性： Text1.text=” （3分）Text2.text=”（3分）Label1.caption=” 请输入一个正整数N” （3分）Label2.caption=” 1+2+3+N=” （3分）Button1.caption=”计算” （3分）程序：Private Sub Command1_Click()（3分）Sum = 0（1分）N = Val(Text1.Text) （2分）For i = 1 To N（5分）Sum = Sum + i（2分）Next iText2.Text = Sum（2分）End Sub2、（共30分）设置属性：Text1.text=” （2分）Text2.text=” （2分）Text2.passwordchar=”*” （3分）Label1.caption=”用户名” （2分）Label2.caption=”密码” （2分）Button1.caption=”注册” （2分）Button2.caption=”登陆” （2分）Button1.caption=”取消” （2分）程序实现：Private Sub Text1_Change()（2分）If Len(Text1.Text) > 6 Then（5分）MsgBox "长度不能超过6"（3分）End If（3分）End Sub3、（共40分）属性设置：Text1.text=” -（1分）Text2.text=”Label1.caption=”姓名”Frame1.caption=”性别”Frame2.caption=”爱好”Frame3.caption=”籍贯” Frame4.caption=”院系” -（2分）Label1.caption=”显示”Label2.caption=”清空” Label3.caption=”退出” -（1分）Combol1.list=”河北省 河南省 山东省等” -（2分）Option1.caption=”男”Option2.caption=”女 ” -（2分）Check1.caption=“音乐”Check2.caption=“运动”Check3.caption=“美术” -（2分）程序为：Private Sub Command1_Click() -（2分）Text2.Text = "学生姓名是：" + Text1.Text & Chr(13) & Chr(10) -（3分）If Option1.Value = True Then -（5分）x = Option1.CaptionElse: x = Option2.CaptionEnd IfText2.Text = Text2.Text & "性别是" & x -（2分）If Check1.Value = False And Check2.Value = False And Check3.Value = False Then -if语句（5分）Text2.Text = Text2.Text & ",无爱好"Else -（1分）Text2.Text = Text2.Text & ",爱好"If Check1.Value = 1 Then Text2.Text = Text2.Text & "音乐" -（2分）If Check2.Value = 1 Then Text2.Text = Text2.Text & "运动"If Check3.Value = 1 Then Text2.Text = Text2.T