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

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

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

3、 Sub二、界面设计-10 分Private Sub Cmd1_Click()-2 分Dim a%（19），i,sum！，aver！-4 分Randomize-3 分Fori=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 SubPrivate Sub Option1_Click(）-2 分Dimi%-2 分n=Val(Text1)-3 分m=1-1 分For

4、i=1 To n-2 分m=m*i-2 分Next i-2 分Text2=m-2 分End SubPrivate Sub Option2_Click（)-1 分Dimi%-2 分m=1-1 分Fori=1 To n+2-2 分m=m*i-2 分Next i-2 分Text2=m-2 分End SubVB 上机综合测试题(二)1 设计如图所示界面,编程实现如下功能:在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中,其中,平时成绩占最终成绩的 30%，考试成绩占最终成绩的 70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口.(35 分）2设计

5、左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(见右图）（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

6、(）-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三、界面设计-

7、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。

8、Move Image1.Left+80，Image1.Top-160-3 分End If-2 分End SubVB 上机综合测试题（三)一、银行卡密码验证程序1.输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续操作!”。2.如果密码错误，窗体上输出“密码错误，请重新输入！”,同时将文本框中密码清空，设置焦点。3。密码为 123456，要求密码框中以“”的形式显示.二、输出图形应用嵌套的循环结构，输出由字符构成的特定图案.程序运行时单击窗体，即可在窗体上输出如下图案。*1*2*2*3*3*3*4*4*4*4*5*5*5*5*5*三、计算球体积和表面积设计下图所示界面的程序，程序

9、运行后,输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否可选，决定是否在右侧相应的文本框内显示球体积(）和球表面积（）的计算结果。答案：一、银行卡密码验证程序（30 分）Private Sub Command1_Click(）2 分If Text1。Text=123456 Then4 分Form1。Cls2 分Print 密码正确！”2 分Else3 分Cls3 分Print”密码错误,请重新输入!2 分Text1。Text=”2 分Text1。SetFocus4 分End If4 分End Sub2 分二、输出图形（30 分)Private Sub Form_Click（）2

10、 分For i=1 To 54 分Print”*”;4 分For j=1 To i4 分Print i;4 分Print*”；4 分Next j2 分Print2 分Next I2 分End Sub2 分三、计算球体积和表面积(40 分)Private Sub Check1_Click(）2 分r=Val(Text1。Text）2 分If Check1.Value=1 Then3 分v=4 3.14159*r 3/33 分Text2。Text=v3 分Else1 分Text2.Text=”2 分End If2 分End Sub2 分Private Sub Check2_Click（）2 分r=

11、Val(Text1.Text）2 分If Check2.Value=1 Then3 分s=4*3。14159*r 23 分Text3。Text=s3 分Else1 分Text3。Text=”2 分End If2 分End Sub2 分VB 上机综合测试题（四）一、在窗体上按下图放置两个标签和一个文本框,一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。要求：当用户在文本框输入他的籍贯后，单击“添加籍贯按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。(25 分）二、输入圆的半径,计算圆的面积。要求自行设计界面，使用到的控件包括文本框，文字标签等。（3

12、5 分）三、定义一个下标上界为 10 的整型数组，并用随机函数为其赋值(值介于 0-100）之间计算数组中所有偶数的数据的和，并用 Msgbox 函数输出。（40 分）答案：一、界面设计-10 分Private Sub Command1_Click（)-2 分List1。AddItem Text1。Text-5 分End SubPrivate Sub List1_DblClick(）-3 分List1.RemoveItem List1。ListIndex-5 分 End Sub二、界面-10 分Private Sub Command1_Click（）-2 分Const PI As Single

13、=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 随机数

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

15、票，若乘 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 分Di

16、m 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 x3 分Case Is=5-3 分z=4 x-3 分Case Is=1-3 分z=3*x-3 分End Select1 分Text3。Text=z-2 分End SubPrivate Sub Command2_Click（)-1 分Text1。Text=-1 分Text2。Text=-1 分Text3。Text=”-1 分End Sub三、Private Sub Form_Clic

17、k（)-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 Max ThenMax=a（i)t=Chr(Asc(”A）+i 1)End IfNext iText1。Text=t2 分Text2.Text=MaxEnd Sub2 分VB 上机综合测试题（七）1、在窗体上建立一个标签，其名称为Label1，窗体的标题为“设置标签属性；标签的位置为距窗体左边界 500,距窗体顶边界 300;标签的标题为“等级考试”;标

18、签可以根据标题的内容自动调整大小。请用代码列写出图片中对象的属性设置。（30 分）2、由键盘输入 10 个数,再逆序输出.（35 分）3、求 120 之间能被 5 整除的所有数的乘积.（35 分）答案:一、界面设计-10分Label1。Caption=等级考试”-4-分Form1。Caption=设置标签属性”-4分Label1。Left=500-4分Label1。Top=3004-分Label1。AutoSize=True-4 分二、界面设计-5 分Dim a(1 To 10）As Integer-2 分Option Explicit-2 分Private Sub Command1_Clic

19、k()-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 i2 分End Sub三、界面设计-10 分Private Su

20、b 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 1、编写程序，打印如图所示图形。、编写程序，打印如图所示图形。（3030 分分)2 2、1-1001-100 之间自然数的平方和，程序参考界面如图所示：之间自然数的平方和，程序参考界面如图所示：（3030 分）分）3 3、找出在、找出在 1 110001000 中同时满足被中同时满足被 7 7 除余除余 5 5

21、、被、被 5 5 除余除余 3 3、被、被 3 3 除余除余 2 2 条件条件的数，界面自定。的数，界面自定。（4040 分）分）答案：答案：1 1 评分标准评分标准:Private Sub Form_Click（)2 分Dim i，j%2 分For i=1 To 54 分Print Tab（15-i);5 分For j=1 To（2*i-1)5 分Print;2 分Next j2 分Next I2 分Print2 分End sub2 分正确保存窗体文件1 分正确保存工程文件1 分2 2 评分标准：评分标准：设置控件和窗体属性5 分Private Sub Form_Click()2 分Dim

22、i，x，sum&2 分For i=1 To 1004 分x=1+x3 分sum=sum+x 25 分Next I2 分Text1。Text=Str（sum）3 分End Sub2 分正确保存窗体文件1 分正确保存工程文件1 分3 3 评分标准评分标准设置控件和窗体属性Private Sub Command1_Click(）Dim i,x%For i=1 To 1000 x=x+1If x Mod 7=5 And x Mod 5=3 And x Mod 3=2 ThenPrint Str（x)&Space（2);End IfNextEnd Sub正确保存窗体文件正确保存工程文件5 分2 分2 分

23、4 分4 分8 分5 分2 分2 分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 Integ

24、er）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

25、分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.caption=”显示”Label2.caption=清空”Label3.caption=”退出-（1 分)Combol1.list=”河北省 河南省 山东省等”

26、-（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&”

27、性别是”&x-（2 分）If Check1。Value=False And Check2.Value=False And Check3。Value=FalseThen-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

28、ext 美术End If-（2 分）Text2。Text=Text2。Text&”,籍贯是 Combo1.TextText2.Text=Text2.Text ”，院系是”&Combo2。Text ”。（2 分）End SubPrivate Sub Command2_Click(）-（2 分)Text1.Text=”-(2 分）Text2.Text=”End SubPrivate Sub Command3_Click()-（2 分）EndEnd SubVB 上机综合测试题（十一）1、输入某一学生成绩,评定其等级。方法是：90100 分为“优秀,8089 分为“良好”，7079 分为“中等”，60

29、69 分为“及格，60 分以下为“不及格”。在以下事件过程中写出相应的程序源代码。Private Sub Form_Click()Dim x As Integerx=Val（InputBox（“x=？）)End Sub2、假设定义一个一维数组：Dim a(1 to 10)As Integer。在以下事件过程中编程序通过循环给数组的元素输入数据，并求数组中最大元素值及其下标。Private Sub Form_Click（）End Sub3、编程计算：S=50+51+52+199+200.综合测试答案说明:此题实现方法不止一种，教师可以根据具体情况，酌情给分1、Private Sub Form_C

30、lick（)Dim x As Integerx=Val(InputBox(“x=?”）)(5 分）If x=90 thenprint“优秀”（4 分）ElseIf x=80 Thenprint“良好(4 分）ElseIf x=70 Thenprint“中等(4 分）ElseIf x=60 Thenprint“及格”（4 分）Elseprint“不及格”（4 分）End Sub或者Private Sub Form_Click（)Dim x As Integerx=Val（InputBox（“x=?”）Select Case x（5 分）Case90 to 100print“优秀”（4 分）Cas

31、e80 to 89print“良好（4 分）Case70 to 79print“中等(4 分）Case60 to 69print“及格”（4 分）Case Elseprint“不及格”（4 分）End SelectEnd Sub3、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&”）的值=？”)Next imax=a(1）（3 分）p=13 分）（for i=2 to 10（4 分)if a(i)=60 The

32、n（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=0 Or i Mod 5=0 Then

33、-3分 s=s i -3分 sum=sum+i3 分 End If-2分 Next i-2 分 lblInput.Caption=s-2 分 lblShow.Caption=sum-2 分End SubVB 上机综合测试题(十三)1、要求用户输入年龄和性别，如果年龄小于 18 岁，显示“本游戏不允许未成年人进入”；如果年龄大于18 岁且用户输入性别是“男”或“女,则显示“欢迎这位男士！”或显示“欢迎这位女士！”.(35 分）2、如图在图形框中随机产生 5 个学生的成绩，要求数值在 0 到 100 之间，单击“统计”按钮，在第二个图形框中输出高于平均分的成绩。(40 分）具体要求：1）列表说明所

34、用控件的名称，属性及所有属性的初值。2）写清完整代码。3、输入 3 个数 a，b，c,求其最大数.（25 分）答案: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 18 Then-2 分Label3.Caption=本游戏不允许未成年人进入！-2 分Else-2 分If sex=”男 Then-2 分Label3.Caption=欢迎这位男士！-2 分Else-1 分Label3.

35、Caption=欢迎这位女士！”-2 分End If-1 分End If-1 分End Sub2、界面设计-15 分控件名Label1Label2Picture1/Picture2Form1Command1属性captionCaptionCaptionCaption属性值5 个成绩高于平均分的成绩统计成绩统计Private Sub Command1_Click()-2 分Dim a%(1 To 5），i%,aver!5 分aver=0-3 分For i=1 To 5-3 分 a(i)=Int（101 Rnd)-3 分 Picture1。Print a(i）；-3 分 aver=aver+a（i

36、)-3 分Next I-1 分aver=aver/5-2 分3、界面设计-10 分Private Sub Command1_Click(）Dim a As Integer,b As IntegerDim c As Integer,m As Integer（2 分)a=Val(Text1.Text)b=Val（Text2.Text）c=Val(Text3。Text）If a b Thenm=aElsem=bEnd IfIf c m Then m=cText4。Text=mEnd Sub(3 分）（10 分）（3 分）（2 分）VB 上机综合测试题（十四）1、通过输入框输入姓名，然后在消息框中显示

37、出来。（25 分）2、输入某小组 5 个同学的成绩，计算总分和平均分。（35 分）要求：利用InputBox 函数输入成绩，输入完毕后经过计算，利用Print 直接在窗体上输出结果.3、输入两个正整数,求它们的最大公约数。（40 分）要求界面如图:答案：一、界面设计-10 分Private Sub Form_Load（）(5 分）x=InputBox(输入您的姓名，您叫什么名字？)（5 分）y=MsgBox(x ”同学：祝您马到成功！）(5 分）End Sub二、界面设计-10 分Private Sub Form_Load()Dim d(5)As Integer（2 分）Dim i As In

38、teger，total As Single,average As Single(2 分）ShowFor i=1 To 5(4分)d（i)=Val(InputBox（”请输入第”&i ”个学生的成绩”，”输入成绩”)）（4 分）Next itotal=0（2 分)For i=1 To 5（3 分）total=total+d(i)(4分）Next iaverage=total/5（2 分)Print 总分：;totalPrint”平均分：；average(2分）End Sub三、界面设计-10 分Private Sub command1_click（）Dim m As Integer，n As I

39、nteger，p As Integer(2 分）m=Val(Text1.Text）n=Val(Text2.Text）（2 分）If m=0 Or n=0 Then（6 分)MsgBox”数据错误！EndEnd IfDo（8 分）p=m Mod nm=nn=p(10 分）Loop While p 0Text3。Text=m（2 分）End SubVB 上机综合测试题（十五）一、密码检验程序设计（20 分）要求：窗体是密码检验程序。程序运行时,用户在文本框输入密码（密码为123456)，单击登陆按钮对密码进行检验。密码正确后,标签 label 显示“登陆成功”;若密码不正确，标签显示“登陆失败,请

40、重试”,若密码输入错误达 3 次,将自动退出程序.二、输入任意三个数 找出其中最大的数(20 分）三、列表框程序设计（30 分）要求：如图,程序运行时，用户可以在文本框中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项;如果没有任何一项选中，将有出错提示先选择，再删除!”。四、定义一个下标上界为 10 的整型数组，并用随机函数为其赋值（值处于0,100之间），计算数组中所有偶数的和.（30 分)参考答案:一、Dim a As Integer-2 分Private Sub Comman

41、d1_Click(）-2 分If(Text1。Text=”123456)Then-4 分Label1。Caption=”登陆成功-4 分ElseLabel1.Caption=登陆失败，请重试”-2 分a=a+1-2 分If(a=3)Then-1 分End-1 分End If-1 分End If-1 分End Sub二、Private Sub Command1_Click（)-2 分Dim a!，b!，c！，Max!-3 分a=Text1.Text-1 分b=Text2.Text-1 分c=Text3.Text-1 分Max=a-3 分If b Max Then Max=b-3 分If c Ma

42、x Then Max=c-3 分Text4.Text=Max-3 分End sub三、Private Sub Command1_Click(）-3 分List1.AddItem(Text1.Text)-5 分End SubPrivate Sub Command2_Click（)-3 分If（List1。ListIndex=0）Then-5 分List1.RemoveItem List1.ListIndex-5 分ElseMsgBox（先选择，再删除！”）-5 分End If-2 分End Sub-2 分四、Private Sub Command1_Click(）-2 分Randomize-2 分Dim a%(10）-3 分Dim i,s-3 分For i=0 To 10-2 分a（i)=101 Rnd()-5 分NextFor i=0 To 10-2 分If a（i）Mod 2=0 Then-4 分s=s+a(i）-4 分End IfNextPrint 所有偶数的和为，s-3 分End sub