VB上机综合测试题十五套Word文档下载推荐.docx

1、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分三、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分Text2 = m -2分Private Sub Option2_Cli

2、ck（）-1分For i = 1 To n + 2 -2分m = m * i -2分）测试题（二）1设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示（xinsh）到第三个文本框中，其中，平时成绩占最终（zu zhn）成绩（chngj）的30%，考试成绩占最终（zu zhn）成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。（35分）2设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。 3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行

3、时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80，向上移动160）；单击“停止升起”时，太阳静止不动。Private Sub Command1_Click（）-2分 Text3.Text = Val（Text1.Text） * 0.3 + Val（Text2.Text） * 0.7-7分Private Sub Command2_Click（）-2分 Text1.Text = -3分 Text2.Text = Text3.Text = Private Sub Command3_Click（）-2分 End-3分Private Sub Check1_Clic

4、k（Indes As Integer）-2分Text1.Text =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分 Timer1.Enabled = False-3分Private Sub Form_Load（）-2分Private Sub Timer1_Timer（）

5、-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分）测试题（三）一、银行卡密码验证（ynzhng）程序1. 输入密码后点击确认（qurn）按钮，如果正确，窗体上输出“密码输入正确，请继续操作！”。2. 如果密码错误，窗体上输出“密码错误，请重新（chngxn）输入！”，同时将文本框中密码清空，设置焦点。3. 密码（m m）为123456，要求密码框中以“

6、*”的形式显示。二、输出图形应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体，即可在窗体上输出如下图案。* 1 * 2* 2 * 3* 3* 3 * 4 *4*4*4 * 5* 5* 5* 5* 5 *三、计算球体积和表面积设计下图所示界面的程序（chngx），程序运行后，输入球的半径，单击“球体积”、 “球表面积”复选框，根据（gnj）复选框是否可选，决定是否在右侧相应的文本框内显示球体积（）和球表面积（）的计算结果。ng）程序（30分）Private Sub Command1_Click（） 2分If Text1.Text = 123456 Then 4分 Form1.Cl

7、s 2分 Print 密码（m m）正确! 2分 Else 3分 Cls 3分密码错误,请重新输入! Text1.SetFocus 4分 End If 4分End Sub 2分二、输出图形（30分）Private Sub Form_Click（） 2分For i = 1 To 5 4分*; 4分 For j = 1 To i 4分 Print i; Next j 2分 Print 2分Next I 2分三、计算（jn）球体积和表面积（40分）Private Sub Check1_Click（） 2分 r = Val（Text1.Text） 2分 If Check1.Value = 1 Then

8、 3分 v = 4 * 3.14159 * r 3 / 3 3分 Text2.Text = v 3分 Else 1分 End If 2分Private Sub Check2_Click（） 2分 If Check2.Value = 1 Then 3分 s = 4 * 3.14159 * r 2 3分 Text3.Text = s 3分）测试题（四）一、 在窗体上按下图放置（fngzh）两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。

9、（25分）二、输入（shr）圆的半径（bnjng），计算圆的面积。要求自行设计界面，使用到的控件包括文本框，文字（wnz）标签等。三、定义一个下标（xi bio）上界为10的整型数组，并用随机（su j）函数为其赋值（值介于0-100）之间计算数组中所有偶数（u sh）的数据的和，并用（bn yn）Msgbox函数（hnsh）输出。答案：PrivateSubCommand1_Click（）-2分List1.AddItemText1.Text-5分EndList1_DblClick（）List1.RemoveItemList1.ListIndex -5分Sub界面-10分Const PI As

10、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分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分Next i-3分Msg

11、Box 随机数中偶数之和为： & sum-5分）测试题（五）一、在窗体上画两个名称分别为Text1、Text2的文本框，再画两个命令按钮，名称分别为C1、C2，标题（biot）分别为“复制”、“删除”。程序运行时，在Text1中输入以下文本：“最是那一低头的温柔（wnru），像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍重里有蜜甜的忧愁。”要求多行显示。并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Text1中被删除，请编写两个命令按钮的Click事件（shjin）过程完成上述功能。（30分）二、购买

12、地铁（dti）车票，若乘1到4站，3元/位；若乘5到9站，4元/位；若乘10站以上，5元/位；输入人数person、站数n，输出应付款pay。三、从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。界面设计-10分Private Sub C1_Click（）-3分Text2.Text = Text1.SelText-7分Private Sub C2_Click（）-3分Text1.SelText = -7分Private Sub Command1_Click（）-1分Dim x As Single, y As Single, z-3分x = Val（Tex

13、t1.Text） -2分y = Val（Text2.Text） -2分Select Case y-2分 Case Is = 10-3分 z = 5 * x-3分= 5-3分 z = 4 * x-3分= 1-3分 z = 3 * x-3分End Select-1分Text3.Text = z-2分Private Sub Command2_Click（）-1分Text1.Text = -1分Text2.Text = Text3.Text = Private Sub Form_Click（）-2分Dim max!, min!, x! -3分x = InputBox（请输入（shr）学生考试成绩）-3

14、分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 Then 2分Max = a（i） 2分） + i - 1） 3分Text1.Text = t 2分Text2.Text = Max 2分）测试题（七）1、在窗体上建立一个（y ）标签，其名称为Label1，窗体的标题为“设置标签属性”；标签的位置为距窗体左边界500，距窗体顶边界300；标签的标题为“等级考试”；标签可以根据标题的内容自动调整大小。请用代码列写出图片中对象的属性设置。2、由键盘输入10个数，再逆序输出（

15、shch）。3、求120之间能被5整除（zhngch）的所有数的乘积。Label1.Caption = 等级考试-4-分Form1.Caption = 设置标签属性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分输入（shr）的10个数-2分For i = 1 To 10-2分 a（i） = Val（InputBox（）第 i

16、&个数）-2分Next i-2分 Print a（i）; -2分Print: Print-2分Private Sub Command2_Click（）-2分Dim i%-2分逆序后的10个数-2分For i = 10 To 1 Step -1-2分 -2分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分Next i-2分Print s-3分）测试题（八）1、编写程序，打印（d yn）如图所示图形。2、1100之间自然数的平方和

17、，程序参考（cnko）界面如图所示：3、找出在11000中同时满足被7除余5、被5除余3、被3除余2条件（tiojin）的数，界面自定。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分 * 2分Next j 2分Print 2分End sub 2分正确保存（bocn）窗体文件 1分正确（zhngqu）保存工程文件 1分2评分标准：设置（sh）控件和窗体属性 5分Dim i, x, sum& 2分For i = 1 To 100 4分 x = 1 + x 3分 sum = sum + x 2 5分Text1.Text = Str（sum） 3分）保存窗体文件 1分正