VB上机综合测试题(十五套)

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

2、本框中输入一个不超过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二、界面设计

3、-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分

4、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%；单击“清除”按钮，清

5、除文本框中的内容；单击“退出”按钮，关闭窗口。（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

6、分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）.Capt

7、ion & -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

8、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. 密码为123456，要求密码框中以“*”的形式显示。二、输出图形应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体，即可在窗体上输出如下

9、图案。* 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 = 123456 Then 4分 Form1.Cls 2分 Print 密码正确! 2分 Else 3分 Cls 3分 Print 密码错误,请重新输入!

10、 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分

11、 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上机综合测试题（四）一、 在窗体上按下图放置两个标签和一个文本框，一个列表框和一

12、个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。 要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。(25分)二、输入圆的半径，计算圆的面积。要求自行设计界面，使用到的控件包括文本框，文字标签等。（35分）三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。（40分）答案：一、界面设计-10分PrivateSubCommand1_Click()-2分List1.AddItemText1.Text-5分EndSubPrivate

13、SubList1_DblClick()-3分List1.RemoveItemList1.ListIndex -5分EndSub二、界面-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 In

14、teger-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中输入以下文本：“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍

15、重里有蜜甜的忧愁。”要求多行显示。并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到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 = T

16、ext1.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分

17、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 = A And c Max Then2分Max = a(i)2分t = Chr(

18、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.Capti

19、on = 设置标签属性-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分P

20、rint: 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上机综合测试题

21、（八）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评分标准：设置控件和

22、窗体属性 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 Mo

23、d 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）、编写程序代

24、码，实现上述功能。答案：一、界面设计-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(Inpu

25、tBox(请输入第二条边的长：) -3分c = Val(InputBox(请输入第三条边的长：) -3分l = (a + b + c) / 2 -3分If l = a Or l = b Or l 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.capti

26、on=”显示”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.

27、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.

28、Text = Text2.Text & 音乐 -（2分）If Check2.Value = 1 Then Text2.Text = Text2.Text & 运动If Check3.Value = 1 Then Text2.Text = Text2.Text & 美术End If -（2分）Text2.Text = Text2.Text & ,籍贯是 & Combo1.Text Text2.Text = Text2.Text & ，院系是 & Combo2.Text & 。 -（2分）End SubPrivate Sub Command2_Click() -（2分）Text1.Text = -

29、（2分）Text2.Text = End SubPrivate 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。在以下事件过程中编程序通过循环

30、给数组的元素输入数据，并求数组中最大元素值及其下标。Private 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 “及

31、格” （4分）Elseprint “不及格” （4分）End 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

32、a(1 to 10) As Integer （3分）Dim I%，p%，max% （3分）For i=1 to 10 （3分）a(i)=val(inputBox(“输入a(“& i &”)的值=？”) （3分）Next i max=a(1) （3分）p=1 for i=2 to 10 （4分） if a(i)= 60 Then （2分） lblTotal.Caption = t （2分） lblTotal.ForeColor = RGB(0, 0, 0) （3分） Else lblTotal.Caption = t （2分） lblTotal.ForeColor = RGB(255, 0, 0) （3分） End If （2分）End Sub三、界面设计-10分Private Sub cmdShow_Click()-1分 Dim i As Integer-3分 Dim sum As Integer-3分 Dim s As String-3分 For i = 1 To 100-3分 If i Mod 3 =