VB上机综合测试题

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

2、下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择N的阶乘”或（N+2）的阶乘”单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）答案:界面设计-10分PrivateSubCheck1_Click()TextI.FontBold=Check1.Value5分EndSubPrivateSubCheck2_Click()Text1.FontItalic=Check2.Value5分EndSubPrivateSubCheck3_Click()Text1.FontUnderline=Check3.Value5分EndSub界面设计-10

3、分PrivateSubCmd1_Click()2分Dima%(19),i%,sum!,aver!4分Randomize3分Fori=0To193分a(i)=Int(Rnd*1001)3分sum=sum+a(i)3分Nexti2分aver=sum/203分Printaver2分EndSub界面设计-10分Dimn%2分PrivateSubForm_Load()EndSubPrivateSubOption1_Click()2分Dimi%2分n=Val(Text1)3分m=11分Fori=1Ton2分m=m*i2分Nexti2分Text2=m2分EndSubPrivateSubOption2_Cli

4、ck()1分Dimi%2分m=11分Fori=1Ton+22分m=m*i2分Nexti2分Text2=m2分EndSubVB上机综合测试题（二）设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%考试成绩占最终成绩的70%单击“活除”按钮，活除文本框中的内容；单击“退出”按钮，关闭窗口。（35分）（25分）设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图）3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止不动，单击“太阳

5、升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80,向上移动160）;单击“停止升起”时，太阳静止不动。（40分）答案:界面设计-10分PrivateSubCommand1_Click()2分Text3.Text=Val(Text1.Text)*0.3+Val(Text2.Text)*0.7-7分EndSubPrivateSubCommand2_Click()2分Text1.Text=3分Text2.Text=3分Text3.Text=3分EndSubPrivateSubCommand3_Click()2分End3分EndSub界面设计-10分PrivateSubCheck1_Cl

6、ick(IndesAsInteger2分Text1.Text=3分Fork=0To32分IfCheck1(k).value=1Then2分Text1.Text=Text1.Text&Check1(Q.Caption&2分EndIf-2WNextk2分EndSub三、界面设计-10-分PrivateSubCommand1_Click()2分Timerl.Enabled=True3分EndSubPrivateSubCommand2_Click()2分Timer1.Enabled=False3分EndSubPrivateSubForm_Load()2分Timer1.Enabled=False3分En

7、dSubPrivateSubTimer1_Timer()2分IfImage1.Top=0Then3分Image1.MoveImage1.Left+80,Image1.Top+1603分Else2分Image1.MoveImage1.Left+80,Image1.Top-1603分EndIf-2分EndSubVB上机综合测试题（三）1. 、银行卡密码验证程序输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续操作！”。如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密码活空，设置焦点。2. 密码为123456,要求密码框中以“*”的形式显示。、输出图形应用嵌套的循

8、环结构，输出由字符构成的特定图案。程序运行时单击窗体,即可在窗体上输出如下图案*3*3*3*2*2*4*4*4*4*5*5*5*5*5*三、计算球体积和表面积设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否可选，决定是否在右侧相应的文本框内显示球体积（4苗/3）和球表面积（4旷）的计算结果。、银行卡密码验证程序(30分)分分24分分分分分分分分分223322442PrivateSubCommand1_Click()IfText1.Text=123456ThenForm1.ClsPrint密码正确!ElseClsPrint密码错误，请重新输入!

9、Text1.Text=Text1.SetFocusEndIfEndSub、输出图形(30分)分分分分分分分分分分2444442222PrivateSubForm_Click()Fori=1To5PrintForj=1ToiPrinti;PrintNextjPrintNextIEndSub、计算球体积和表面积(40分)分分分分分分分分分223331222PrivateSubCheck1_Click()r=Val(Text1.Text)IfCheck1.Value=1Thenv=4*3.14159*rA3/3Text2.Text=vElseText2.Text=EndIfEndSub分分分分312

10、2分分分粕2233PrivateSubCheck2_Click()r=Val(Textl.Text)IfCheck2.Value=1Thens=4*3.14159*rA2Text3.Text=sElseText3.Text=EndIfEndSubVB上机综合测试题（四）一、在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称届性取默认值。其他届性按下图进行设置。要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。（25分）二、输入圆的半径，计算圆的面积。要求自行设计界面，使用到的控件包括文本框，文字标

11、签等。（35分）三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介丁0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。（40分）答案：界面设计-10分PrivateSubCommand1_Click()2分Listl.AddItemText1.Text5分EndSubPrivateSubList1_DblClick()3分List1.RemoveItemList1.ListIndex5分EndSub二、界面-10分PrivateSubCommand1_Click()2分ConstPIAsSingle=3.143分DimrAsInteger,sAsSingle

12、5分r=Val(Text1.Text)5分s=PI*r*r5分Text2.Text=s5分EndSubPrivateSubForm_Click()2分Dima(10)AsInteger,iAsInteger,sumAsInteger院Fori=0To105分a(i)=Int(100*Rnd)5分Printa(i);3分Ifa(i)Mod2=0Then5分sum=sum+a(i)5分EndIf-2分Nexti3分MsgBox随机数中偶数之和为：&sum5分EndSubVB上机综合测试题（五）一、在窗体上画两个名称分别为Textl、Text2的文本框，再画两个命令按钮，名称分别为C1、C2,标题分

13、别为“复制”、“删除”。程序运行时，在Textl中输入以下文本：“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍重里有蜜甜的忧愁。”要求多行显示。并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Textl中被删除，请编写两个命令按钮的Click事件过程完成上述功能。（30分）二、购买地铁车票，若乘1到4站，3元/位；若乘5到9站，4元/位；若乘10站以上，5元/位；输入人数person站数n,输出应付款pay。（35分）三、从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当

14、输入负数时结束输入，输出结果。（35分）答案：一、界面设计10分PrivateSubC1_Click（）-3分Text2.Text=Text1.SelTex-7分EndSubPrivateSubC2_Click()-3分Textl.SelText=-7分EndSubPrivateSubCommand1_Click(-1分DimxAsSingle,yAsSingle,z-3分x=Val(Textl.Text)-2分y=Val(Text2.Text)-2分SelectCasey-2分CaseIs=10-3分z=5*x-3分CaseIs=5-3分z=4*x-3分CaseIs=1-3分z=3*x-3分

15、EndSelect-1分Text3.Text=z-2分EndSubPrivateSubCommand2_Click(-1分Text1.Text=.hha-1分Text2.Text=.hha1分Text3.Text=EndSub.hha1分PrivateSubForm_Click()-2分Dimmax!,min!,x!-3分x=InputBox(请输入学生考试成绩)-3分max=x-2分min=x-2分DoWhilex0-2分IfxmaxThen-3分max=x-2分Elselfx=AAndcMaxThen2分Max=a(i)2分t=Chr(Asc(A)+i-1)3分EndIfNextiText

16、l.Text=tText2.Text=MaxEndSubVB上机综合测试题（七）1、在窗体上建立一个标签，其名称为Labell，窗体的标题为“设置标签届性”；标签的位置为距窗体左边界500,距窗体顶边界300;标签的标题为“等级考试”；标签可以根据标题的内容自动调整大小。请用代码列写出图片中对象的届性设置。（30分）2、由键盘输入10个数，再逆序输出。（35分）3、求120之间能被5整除的所有数的乘积。（35分）答案：一、界面设计-10-分Labell.Caption=”等级考试-4-分Form1.Caption=设置标签届性4-分Label1.Left=500-4-分Label1.Top=3

17、004-分Label1.AutoSize=True4分界面设计-5分Dima(1To10)AsInteger2分OptionExplicit2分PrivateSubCommand1_Click()-2分Dimi%-2分Print”输入的10个数-2分Fori=1To10-2分a(i)=Val(InputBox(输入第&i&个数)-2分Nexti2分Fori=1To10-2分Printa(i);2分Nexti2分Print:Print2分EndSubPrivateSubCommand2_Click()2分Dimi%-2分Print”逆序后的10个数-2分Fori=10To1Step-1-2分Pr

18、inta(i);-2分Nexti2分EndSub三、界面设计-10分PrivateSubForm_Click()3分Dimi%,sAsLong2分s=13分Fori=1To203分IfiMod5=0Then3分s=s*i3分EndIf-2分Nexti2分Prints3分EndSubVB上机综合测试题（八）1、编写程序，打印如图所示图形。（30分），打印三费形Qfnlfx*童墩*!2、1100之间自然数的平方和，程序参考界面如图所示：（30分）3、找出在11000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。（40分）答案：1评分标准：PrivateSubForm_Click(

19、)2分Dimi%,j%2分Fori=1To54分PrintTab(15-i);5分Forj=1To(2*i-1)5分Print*;2分Nextj2分NextI2分Print2分Endsub2分正确保存窗体文件1分正确保存工程文件1分2评分标准：设置控件和窗体届性5分PrivateSubForm_Click()2分Dimi,x,sum&2分Fori=1To1004分x=1+x3分sum=sum+xA25分NextI2分Text1.Text=Str(sum)3分EndSub2分正确保存窗体文件1分正确保存工程文件1分3评分标准设置控件和窗体届性5分PrivateSubCommand1_Click(

20、)2分Dimi,x%2分Fori=1To10004分x=x+14分IfxMod7=5AndxMod5=3AndxMod3=2Then8分PrintStr(x)&Space(2);5分EndIf2分Next2分EndSub2分正确保存窗体文件2分正确保存工程文件2分VB上机综合测试题(九)1、编写一个函数计算1*2*n的值，函数名为fact()(30分)2、已知三角形的三条边，编写一个函数求其面积，函数名自命名。(40分)3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox()函数输入框。当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。(

21、30分)提问：(1)、应该对窗体的什么事件进行编程？(2)、编写程序代码，实现上述功能。答案：一、界面设计-5分PrivateFunctionfact(nAsInteger)AsIntege-F-4分DimiAsInteger-2分DimrAsInteger2分r=1-3分Fori=1Ton-3分r=r*i3分Nexti-3分fact=r3分EndFunction2分EndSub界面设计-5分PrivateSubCommand1_Click-1分Dima,b,c,l,S5分a:=Val(InputBox(W输入第一条边的长：)-3分b:=Val(InputBox(情输入第二条边的长：)-3分c

22、=Val(InputBox(W输入第三条边的长：l=(a+b+c)/2-3分Ifl=aOrl=bOrl-4分PrintS-2分EndSub-2分界面设计-5分PrivateSubCommand1_Click-2分Dima(15),iAsInteger2分Fori=1To15-3分a(i)=InputBox(诘输入15个整数，单击确定按钮.,)-4分Nexti2分Fori=1To15-3分Printa(i);-3分IfiMod5=0ThenPrint4分Nexti2分EndSubVB上机综合测试题（十）1、在窗体上绘制两个标签，名称分别是Labi和Lab2,标题分别为“请输入一个正整数N”和“1

23、+2+3+N=”；绘制两个文本框，名称分别是Textl和Text2，内容都设为空白，绘制一个命令按钮，名称为Cmd1,标题为“计算”。编写适当的程序，程序在运行时，在Text1中输入一个正整数，单击“计算”按钮，计算出1+2+3+N的和，并显示在Text2中。（30分）FormlI口I回牧请输入一个正整教&1+2+3+,+H=计算2、要求：设计一个用户登录界面，界面如图所示。要求密码用*显示,如果用户名的长度超过6位，弹出警告窗口！（30分）0Forml=|囱|S3用户名密码注羽登陆取消3、创建一个学生管理系统（40分）要求：利用单选框实现学生性别，复选框实现学生爱好，组合框实现学生籍贯选择和

24、院系，文本框输入学生姓名。单击“显示”按钮要把学生输入的信息全部显示到一个文本框中。1、（共30分）设置届性：Text1.text=”（3分）Text2.text=”（3分）Label1.caption=”请输入一个正整数N”（3分）Label2.caption=”1+2+3+-+N=”（3分）Button1.caption=”计算”（3分）程序：PrivateSubCommand1_Click（）（3分）Sum=0（1分）N=Val（Text1.Text）（2分）Fori=1ToN（5分）Sum=Sum+i（2分）NextiText2.Text=Sum（2分）EndSub2、（共30分）设置

25、届性：Text1.text=”（2分）Text2.text=”（2分）Text2.passwordchar=*”（3分）Label1.caption=”用户名”（2分）Label2.caption=”密码”（2分）Button1.caption=”注册”（2分）Button2.caption=”登陆”（2分）Button1.caption=”取消”（2分）程序实现：PrivateSubText1_Change（）（2分）IfLen（Text1.Text）6Then（5分）MsgBox长度不能超过6（3分）EndIf（3分）EndSub3、（共40分）届性设置：Text1.text=”-（1分）

26、Text2.text=”Label1.caption=”姓名”Frame1.caption=性别Frame2.caption=爱好”Frame3.caption=籍贯”Frame4.caption=院系”-（2分）Label1.caption=”显示”Label2.caption=”活空”Label3.caption=”退出”-（1分）Combol1.list=”河北省河南省山东省等”-（2分）Option1.caption=”男”Option2.caption=”女”-（2分）Check1.caption=“音乐”Check2.caption=“运动”Check3.caption=“美术”-

27、（2分）程序为：PrivateSubCommand1_Click（）-（2分）Text2.Text=”学生姓名是：+Text1.Text&Chr（13）&Chr（10）-（3分）IfOption1.Value=TrueThen-（5分）x=Option1.CaptionElse:x=Option2.CaptionEndIfText2.Text=Text2.Text&性别是&x-（2分）IfCheck1.Value=FalseAndCheck2.Value=FalseAndCheck3.Value=FalseThen-if语句（5分）Text2.Text=Text2.Text&，无爱好Else-

28、（1分）Text2.Text=Text2.Text&，爱好IfCheck1.Value=1ThenText2.Text=Text2.Text&肾乐-（2分）IfCheck2.Value=1ThenText2.Text=Text2.Text&运动IfCheck3.Value=1ThenText2.Text=Text2.Text&笑术EndIf-（2分）Text2.Text=Text2.Text&籍贯是&Combo1.TextText2.Text=Text2.Text&，院系是&Combo2.Text&。-（2分）EndSub（2分）PrivateSubCommand2_Click（）Text1.

29、Text=-（2分）Text2.Text=EndSub(2分)PrivateSubCommand3_Click()EndEndSubVB上机综合测试题(一)1、输入某一学生成绩，评定其等级。方法是：90100分为“优秀”,8089分为“良好”，7079分为“中等”,6069分为“及格”,60分以下为“不及格”。在以下事件过程中写出相应的程序源代码。PrivateSubForm_Click()DimxAsIntegerx=Val(InputBox(x=?)EndSub2、假设定义一个一维数组：Dima(1to10)AsInteger在以下事件过程中编程序通过循环给数组的元素输入数据，并求数组中最

30、大元素值及其下标。PrivateSubForm_Click()EndSub3、编程计算：S=50+51+52十+199+200。综合测试答案说明：此题实现方法不止一种，教师可以根据具体情况，酌情给分1、PrivateSubForm_Click()DimxAsIntegerx=Val(InputBox(x=?)(5分)Ifx=90thenprint优秀”(4分)ElseIfx=80Thenprint“良好”(4分)ElseIfx=70Thenprint“中等”(4分)ElseIfx=60Thenprint及格”（4分）Elseprint不及格”（4分）EndSub或者PrivateSubForm

31、_Click（）DimxAsIntegerx=Val（InputBox（x=?）SelectCasex（5分）Case90to100print优秀”（4分）Case80to89print“良好”（4分）Case70to79print“中等”（4分）Case60to69print及格”（4分）CaseElseprint不及格”（4分）EndSelectEndSub3、PrivateSubForm_Click（）Dima（1to10）AsInteger（3分）DimI%,p%,max%（3分）Fori=1to10（3分）a（i）=val（inputBox（输入a（&i&”）的值=?”）（3分）（3

32、分）Nextimax=a（1）p=1fori=2to10（4分）ifa（i）maxThenmax=a（i）（3分）P=iEndifNextiPrint数组第”&p&“个元素值最大，值为：”&max（3分）EndSub4、编程计算：S=50+51+52十+199+200。PrivateSubForm_Click（）（4分）DimSasinteger,iasinteger（3分）S=0（4分）Fori=50to200（4分）S=S+I（3分）NextI（4分）PrintS=”,S（3分）EndSubVB上机综合测试题（十二）一、在以下事件过程中编程计算：s=1+2+3+-+100（25分）Priv

33、ateSubForm_Click（）EndSub二、编程，如图所示，当程序运行时，在文本框中输入平时成绩和考试成绩，单击“计算”命令按钮，计算总评成绩，并将成绩显示在相应的标签上，同时，当总评成绩小丁60时，文字颜色为红色。计算公式为：总评成绩=平时成绩X30%+考试成绩X70%（35分）急茹计算平时成绩总评成绩65考试成绩40475区零3.如图所示，编程计算1100以内能被3或5整除的数之和。程序运行时，单击“显示”按钮，在上标签框中显示能被3和5整除的数，并在下标签框中显示这些数的求和结果1%0裾据或5整除的数2754802551782450751002045709618426995123

34、96590103663879356085335784（5分）（4分）（4分）2416答案:DimSAsIntegerIAsInteger（5分）S=0ForI=1to100S=S+I（4分）（3分）NextIPrintS,S界面设计-10-分PrivateSubcmdCalc_Click（）（2分）DimaAsDouble,bAsDouble,tAsDouble（3分）a=Val（txtDay.Text）（2分）b=Val（txtExam.Text）（2）t=a*0.3+b*0.7（2分）Ift=60Then（2分）lblTotal.Caption=t（2分）lblTotal.ForeColo

35、r=RGB（0,0,0）（3分）ElselblTotal.Caption=t（2分）lblTotal.ForeColor=RGB（255,0,0）（3分）EndIf（2分）EndSub界面设计-10分PrivateSubcmdShow_Click（）1分DimiAsInteger3分DimsumAsInteger3分DimsAsString3分Fori=1To100-3分IfiMod3=0OriMod5=0Then-3分s=s&i&-3分sum=sum+i3分EndIf-2分Nexti2分lblInput.Caption=s2分lblShow.Caption=sum2分EndSubVB上机综合

36、测试题（十三）1、要求用户输入年龄和性别，如果年龄小丁18岁，显示“本游戏不允许未成年人进入”；如果年龄大丁18岁且用户输入性别是“男”或“女”，则显示“欢迎这位男士！”或显示“欢迎这位女士！”。（35分）请输入年龄，传脚入性别.I5|进入游戏一欢迎这位女士，2、如图在图形框中随机产生5个学生的成绩，要求数值在0到100之间，单击“统计”按钮，在第二个图形框中输出高丁平均分的成绩。（40分）具体要求：1）列表说明所用控件的名称，届性及所有届性的初值。2）写活完整代码。5个成绩:高于平均分成绩：7153582930715358统计3、输入3个数a,b,c,求其最大数。（25分）tjForml判断

37、最大数=答案:1、界面设计-10分PrivateSubCommand1_Click()2分DimageAsInteger,sexAsString2分age=Val(Text1.Text)3分sex=Val(Text2.Text)-3分IfagebThenm=aElsem=bEndIf(10分)IfcmThenm=c(3分)Text4.Text=m(2分)EndSubVB上机综合测试题（十四）1、通过输入框输入姓名，然后在消息框中显示出来。（25分）2、输入某小组5个同学的成绩，计算总分和平均分。（35分）要求：利用InputBox函数输入成绩，输入完毕后经过计算，利用Print直接在窗体上输出

38、结果。3、输入两个正整数，求它们的最大公约数。（40分）要求界面如图:答案：一、界面设计-10分PrivateSubForm_Load（）（5分）x=InputBox（输入您的姓名,您叫什么名字？）（5分）y=MsgBox（x&同学：祝您马到成功！）（5分）EndSub界面设计-10分PrivateSubForm_Load()Dimd(5)AsInteger（2分）DimiAsInteger,totalAsSingle,averageAsSingleShow（2分）Fori=1To5分)(4d(i)=Val(InputBox(请输入第&i&(4分)Nexti个学生的成绩,输入成绩）total=0（2分）Fori=1To5（3分）total=total+d(i)分)Nexti(4average=total/5Print总分:;total（2分）Print”平均分:;averageEndSub三、界面设计-10分PrivateSubcommand1_