2022年VB上机综合测试题.pdf

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

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

2、有元素的平均值, 并显示在窗体上 ( 如下图所示 )(35分) 三、请设计如下图所示窗体界面。运行程序时, 先向左侧文本框中输入一个不超过 10 的正整数 , 然后选择 N 的阶乘 或(N+2) 的阶乘 单选钮 , 即可进行计算 , 计算结果在右侧文本框中显示。请编写程序完成上述功能。(40 分) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 1 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 答案: 一、界面设计 -10 分Private Sub Check

3、1_Click() Text1、FontBold = Check1、Value -5 分End Sub Private Sub Check2_Click() Text1、FontItalic = 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 分

4、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 分精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 2 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套

5、) 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. 设计如图所示界面 , 编程实现如下功能 : 在文本框中输入平时成绩与考试成绩,单击“确定”按钮 , 将最终

6、成绩显示到第三个文本框中, 其中, 平时成绩占最终成绩的 30%,考试成绩占最终成绩的70%;单击“清除”按钮 , 清除文本框中的内容 ;单击“退出”按钮 , 关闭窗口。 (35 分) 2. 设计左图所示界面 , 编程实现如下功能 : 单击任何复选框 , 则把所有选中的复选框后面的文字罗列在文本框中( 见右图 )(25 分) 。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 3 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 3、使用提供素材设计如图所示界面,

7、编程实现如下功能 : 程序运行时太阳静止不动, 单击“太阳升起”按钮时 , 太阳升起 ( 以 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 Sub Private Sub Command2_Click()-2 分Text1、Text = -3 分Text2、Text = -3 分Text3

8、、Text = -3 分End Sub Private Sub Command3_Click()-2 分End-3 分End Sub 二、精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 4 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 界面设计 -10 分Private Sub Check1_Click(Indes As Integer)-2分Text1、Text =-3 分For k = 0 To 3-2 分If Check1(k)、value = 1 Th

9、en-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 Sub Private Sub Command2_Click()-2 分Timer1、Enabled = False-3分End Sub Private Sub Form_Load()-2分Timer1、Enabled = False-3分End Sub Private Sub Time

10、r1_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 Sub VB上机综合测试题 ( 三) 一、银行卡密码验证程序1、 输入密码后点击确认按钮,如果正确 ,窗体上输出“密码输入正确,请继续操作！ ” 。2、 如果密码错误 ,窗体上输出“密码错误,请重新输入！”,同时将文本框中密码清空,设置焦点。3、 密码为 123456,要求密码框

11、中以“ *”的形式显示。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 5 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 二、输出图形应用嵌套的循环结构 ,输出由字符构成的特定图案。程序运行时单击窗体,即可在窗体上输出如下图案。三、计算球体积与表面积设计下图所示界面的程序 ,程序运行后 ,输入球的半径 ,单击“球体积”、 “球表面积”复选框 ,根据复选框就是否可选 ,决定就是否在右侧相应的文本框内显示球体积 ()与球表面积 ()的计算结果。答案:一、银行卡密码

12、验证程序(30 分) Private Sub Command1_Click() 2 分If Text1、Text = 123456 Then 4 分Form1、Cls 2分Print 密码正确 ! 2 分Else 3 分Cls 3 分* 1 * * 2* 2 * * 3* 3* 3 * * 4 *4*4*4 * * 5* 5* 5* 5* 5 * 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 6 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) Print 密码

13、错误 ,请重新输入 ! 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 Ch

14、eck1、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上机综合测试题 ( 四) 一

15、、 在窗体上按下图放置两个标签与一个文本框, 一个列表框与一个命令按钮,各控件的名称属性取默认值。其她属性按下图进行设置。要求: 当用户在文本框输入她的籍贯后 , 单击“添加籍贯” 按钮时 , 能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。(25 分) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 7 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 二、 输入圆的半径 , 计算圆的面积。要求自行设计界面 , 使用到的控件包括文本框 ,文字标签等。

16、 (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 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归

17、纳 - - - - - - - - - -第 8 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 二、界面-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 I

18、nteger, 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 Sub VB上机综合测试题 ( 五) 一、在窗体上画两个名称分别为Text1、Text2 的文本框 , 再画两个命令按钮 , 名称分别为 C1 、C2,标题分别为“复制”、 “删除” 。程序运行时 , 在 Text1 中输入以下文

19、本 : “最就是那一低头的温柔, 像一朵水莲花不胜凉风的娇羞, 道一声珍重 , 道一声珍重, 那一声珍重里有蜜甜的忧愁。 ”要求多行显示。并用鼠标拖拽的方法选择任意一行后, 单击“复制”按钮, 则选中的一行字符被复制到 Text2 中, 若单击“删除”按钮 , 则被选择的字符从Text1 中被删除 , 请编写两个命令按钮的 Click 事件过程完成上述功能。(30 分) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 9 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五

20、套 ) 二、购买地铁车票 , 若乘 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 Sub Private Sub C2_Click()-3分Text1、SelText = -7分End Sub 二、Pr

21、ivate 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分精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 10 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) Case Is = 5 -3分z = 4 * x-3分C

22、ase Is = 1 -3分z = 3 * x-3分End Select -1分Text3、Text = z-2分End Sub Private 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

23、 = A And c Max Then 2 分Max = a(i) 2 分t = Chr(Asc(A) + i - 1) 3 分End If Next i Text1 、Text = t 2 分Text2 、Text = Max 2 分End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 13 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) VB上机综合测试题 ( 七) 1、在窗体上建立一个标签 , 其名称为Label1, 窗体的标题为“设置标签属性”

24、;标签的位置为距窗体左边界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

25、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 分精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 14 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) For i = 1 To

26、 10-2 分Print a(i); -2 分Next i-2 分Print: Print-2 分End Sub Private 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-

27、3 分End If-2 分Next i-2 分Print s-3 分End Sub VB上机综合测试题 ( 八) 1、编写程序 , 打印如图所示图形。 (30 分) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 15 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 2、1100 之间自然数的平方与 , 程序参考界面如图所示 :(30 分) 3、找出在 11000 中同时满足被 7 除余 5、被 5 除余 3、被 3 除余 2 条件的数, 界面自定。 (40 分

28、) 答案: 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 分精品资料 - - - 欢迎下

29、载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 16 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 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

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

31、 个整数分 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 分精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 17 页，共 33 页 - - - -

32、- - - - - - VB上机综合测试题( 十五套 ) 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

33、= b Or l 6 Then(5分) MsgBox 长度不能超过 6(3 分) End If(3 分) End Sub 3、(共 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

34、=” 河北省 河南省 山东省等 ” -(2 分) Option1、caption=” 男”Option2、caption=” 女 ”-(2 分) Check1、caption=“音乐”Check2、caption=“运动”精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 21 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) Check3、caption=“美术”-(2 分) 程序为 : Private Sub Command1_Click() -(2 分) Tex

35、t2、Text = 学生姓名就是 : + Text1、Text & Chr(13) & Chr(10) -(3分) If Option1、Value = True Then -(5 分) x = Option1、Caption Else: x = Option2、Caption End If Text2、Text = Text2、Text & 性别就是 & x -(2 分) If Check1、 Value = False And Check2 、 Value = False And Check3 、 Value = False Then -if 语句(5 分) Text2、Text = Te

36、xt2、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、Text & 美术 End If -(2 分) Text2、Text = Text2、Text & ,籍贯就是 & Combo1、Text Text2、Text

37、 = Text2、Text & ,院系就是 & Combo2、Text & 。 -(2分) End Sub Private Sub Command2_Click() -(2 分) Text1、Text = -(2 分) Text2、Text = End Sub Private Sub Command3_Click() -(2 分) End End Sub 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 22 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) VB上

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

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

40、 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 23 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 或者Private Sub Form_Click() Dim x As Integer x=Val(InputBox(“x=?”)Select Case x (5 分) Case 90 to 100 print “优秀”(4 分) Case 80 to 89 print “良好”(4 分) Case 70 to 79 print “中等”(4 分) Case

41、60 to 69 print “及格”(4 分) Case Else print “不及格”(4 分) End Select End Sub 3、Private Sub Form_Click() Dim 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

42、 = 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 分精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第

43、 26 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) Dim s As String-3 分 For i = 1 To 100-3 分 If i Mod 3 = 0 Or i Mod 5 = 0 Then-3 分 s = s & i & -3 分 sum = sum + i -3 分 End If-2分 Next i-2 分 lblInput、Caption = s-2 分 lblShow、Caption = sum -2 分End Sub VB上机综合测试题 (十三) 1、 要求用户输入年龄与性别 ,如果年龄小于 18 岁,显示“本游戏不允许未成

44、年人进入” ;如果年龄大于 18 岁且用户输入性别就是“男”或“女”,则显示“欢迎这位男士！”或显示“欢迎这位女士！ ” 。(35 分) 2、如图在图形框中随机产生 5 个学 生 的 成 绩 ,要求数值在0 到100 之间, 单击“统计”按钮, 在第二个图形框中输出高于平均分的成绩。 (40 分) 具体要求 : 1)列表说明所用控件的名称 ,属性及所有属性的初值。2)写清完整代码。3、输入 3 个数 a,b,c,求其最大数。 (25 分) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 27 页，共 33

45、 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 答案: 1、界面设计 -10分Private Sub Command1_Click()-2 分Dim age As Integer, sex As String-2 分age = Val(Text1、Text) -3分sex = Val(Text2、Text) -3 分If age b Then 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 28 页，共 33 页 - - - - - - - - - - VB上机综合测试题(

46、 十五套 ) m = a Else m = b End If (10 分) If c m Then m = c (3 分) Text4、Text = m (2 分) End Sub VB上机综合测试题 (十四) 1、 通过输入框输入姓名 ,然后在消息框中显示出来。(25 分) 2、 输入某小组 5个同学的成绩 ,计算总分与平均分。 (35 分) 要求:利用 InputBox 函数输入成绩 ,输入完毕后经过计算 ,利用 Print 直接在窗体上输出结果。3、 输入两个正整数 ,求它们的最大公约数。 (40 分) 要求界面如图 : 答案: 一、界面设计 -10分Private Sub Form_L

47、oad() (5分) x = InputBox( 输入您的姓名 , 您叫什么名字？ ) (5 分) y = MsgBox(x & 同学:祝您马到成功！ ) (5 分) End Sub 二、界面设计 -10分Private Sub Form_Load() Dim d(5) As Integer (2 分) Dim i As Integer, total As Single, average As Single (2 分) 精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 29 页，共 33 页 - - - -

48、 - - - - - - VB上机综合测试题( 十五套 ) Show For i = 1 To 5 (4分) d(i) = Val(InputBox( 请输入第 & i & 个学生的成绩, 输入成绩 ) (4 分) Next i total = 0 (2 分) For i = 1 To 5 (3 分) total = total + d(i) (4分) Next i average = total / 5 (2 分) Print 总分:; total Print 平均分 :; average (2 分) End Sub 三、界面设计 -10分Private Sub command1_click

49、() Dim m As Integer, n As Integer, p As Integer (2 分) m = Val(Text1、Text) n = Val(Text2、Text) (2 分) If m = 0 Or n = 0 Then (6 分) MsgBox 数据错误 ! End End If Do (8 分) p = m Mod n m = n n = p (10 分) Loop While p 0 Text3、Text = m (2 分) End Sub VB上机综合测试题 (十五) 一、密码检验程序设计 (20 分) 要求:窗体就是密码检验程序。程序运行时,用户在文本框输入密

50、码(密码为123456),单击登陆按钮对密码进行检验。 密码正确后 ,标签 label 显示 “登陆成功”;若密码不正确 ,标签显示“登陆失败 ,请重试”,若密码输入错误达3次,将自动退出程序。精品资料 - - - 欢迎下载 - - - - - - - - - - - 欢迎下载 名师归纳 - - - - - - - - - -第 30 页，共 33 页 - - - - - - - - - - VB上机综合测试题( 十五套 ) 二、输入任意三个数找出其中最大的数 (20 分) 三、列表框程序设计 (30 分) 要求:如图,程序运行时 ,用户可以在文本框中输入文本,单击 command1 “添加”