《VB上机综合测试题(十五套)doc资料》由会员分享，可在线阅读，更多相关《VB上机综合测试题(十五套)doc资料（43页珍藏版）》请在金锄头文库上搜索。
1、资料收集于网络，如有侵权请联系网站删除 word 可编辑 VB上机综合测试题（一） 一、如下所示，在窗体上，放置一个文本框text1 （文本框中的文字为“改变字 形” ，居中显示）。三个复选框 check1,check2 和 check3，如图设置属性。要 求：当用户单击“加粗”、 “斜体” 、 “下划线”这三个复选框时（即当复选框被选 中时）能将文本框的字形变为“粗体、斜体、加下划线”（25 分） 二、在窗体上添加一个命令按钮(名称为 Cmd1 ，标题为 输出平均值 ) 。程序运 行后，单击命令按钮完成以下工作：随机产生 20 个 0 到 1000 的整数，将其 放入一个一维数组中求出所有元
2、素的平均值，并显示在窗体上(如下图所示 ) （35分） 三、请设计如下图所示窗体界面。运行程序时， 先向左侧文本框中输入一个不超 过 10 的正整数，然后选择 N 的阶乘 或(N+2) 的阶乘 单选钮，即可进行计算， 计算结果在右侧文本框中显示。请编写程序完成上述功能。（40 分） 资料收集于网络，如有侵权请联系网站删除 word 可编辑 答案： 一、 界面设计 -10 分 Private Sub Check1_Click() Text1.FontBold = Check1.Value -5分 End Sub Private Sub Check2_Click() Text1.FontItali
3、c = Check2.Value-5分 End Sub Private 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
4、 aver -2 分 End Sub 三、 界面设计 -10 分 Dim n%-2 分 Private Sub Form_Load() End Sub 资料收集于网络，如有侵权请联系网站删除 word 可编辑 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
5、-1 分 For i = 1 To n + 2 -2 分 m = m * i -2 分 Next i -2 分 Text2 = m -2 分 End Sub 资料收集于网络，如有侵权请联系网站删除 word 可编辑 VB上机综合测试题（二） 1设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成 绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占 最终成绩的 30% ，考试成绩占最终成绩的70% ；单击“清除”按钮，清除文本框 中的内容；单击“退出”按钮，关闭窗口。（35 分） 2设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的 复选框后面的
6、文字罗列在文本框中（见右图）（25 分） 。 3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止 不动，单击“太阳升起”按钮时，太阳升起（以0.5s 为时间间隔，太阳向右移 动 80，向上移动 160） ；单击“停止升起”时，太阳静止不动。(40 分) 资料收集于网络，如有侵权请联系网站删除 word 可编辑 答案： 一、 界面设计 -10 分 Private Sub Command1_Click()-2 分 Text3.Text = Val(Text1.Text) * 0.3 + Val(Text2.Text) * 0.7-7分 End Sub Private Sub C
7、ommand2_Click()-2 分 Text1.Text = -3 分 Text2.Text = -3 分 Text3.Text = -3 分 End Sub Private 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 4 分 For j = 1 To
8、 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 分 资料收集于网络，如有侵权请联系网站删除 wor
9、d 可编辑 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 分 资料收集于网络，如有侵权请联系网站删除 word 可编辑 VB上机综合测试题（四） 一、 在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮， 各控件的名称属性取默认值。 其他属性按下图进行设置。要求：当用户在文本 框
10、输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双 击列表框中的某一项时将该项删除。(25 分) 二、输入圆的半径，计算圆的面积。要求自行设计界面，使用到的控件包括文本 框，文字标签等。（35 分） 三、 定义一个下标上界为10 的整型数组，并用随机函数为其赋值 （值介于 0-100） 之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。（40 分） 答案： 资料收集于网络，如有侵权请联系网站删除 word 可编辑 一、 界面设计 -10分 Private Sub Command1_Click()-2 分 List1.AddItem Text1.Text -5 分 E
11、nd 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
12、(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 随机数中偶数之和为： -2 分 Next i-2 分 Print: Print-2 分 End Sub Private Sub Command2_Click()-2分 Dim i%-2 分 Print 逆序后的 10
13、个数-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 Sub 资料收集于网络，如有侵权请联系网站删除 word 可编辑 VB上机综合测试题（八） 1、编写程序，打印如图所示
14、图形。(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 分 资料收集于网络，
15、如有侵权请联系网站删除 word 可编辑 正确保存窗体文件1 分 正确保存工程文件1 分 2 评分标准： 设置控件和窗体属性5 分 Private Sub Form_Click() 2 分 Dim i, x, sum 5 分 End If 2 分 Next 2分 End Sub 2 分 正确保存窗体文件2 分 正确保存工程文件2 分 资料收集于网络，如有侵权请联系网站删除 word 可编辑 VB上机综合测试题（九） 1、编写一个函数计算1*2* *n 的值，函数名为 fact() （30 分） 2、已知三角形的三条边，编写一个函数求其面积，函数名自命名。（40 分） 3、 新建一个窗体，程序运行时，当用鼠标单击窗体任一地方， 程序弹出 Inputbox() 函数输入框。 当输完 15 个整数后，程序把刚输入的15个整数分
