搜索
VB上机综合测试题（一）一、如下所示，在窗体上，放置一个文本框text1（文本框中的文字为“改变字形”，居中显示）。三个复选框check1,check2和check3，如图设置属性。要求：当用户单击“加粗”、“斜体”、“下划线”这三个复选框时（即当复选框被选中时）能将文本框的字形变为“粗体、斜体、加下划线”（25分）二、在窗体上添加一个命令按钮(名称为Cmd1，标题为输出平均值)。程序运行后，单击命令按钮完成以下工作：①随机产生20个0到1000的整数，将其放入一个一维数组中②求出所有元素的平均值，并显示在窗体上(如下图所示)（35分）三、请设计如下图所示窗体界面。运行程序时，先向左侧文本框中输入一个不超过10的正整数，然后选择N的阶乘或(N+2)的阶乘单选钮，即可进行计算，计算结果在右侧文本框中显示。请编写程序完成上述功能。（40分）答案：一、界面设计------10分PrivateSubCheck1_Click()Text1.FontBold=Check1.Value------5分EndSubPrivateSubCheck2_Click()Text1.FontItalic=Check2.Value------5分EndSubPrivateSubCheck3_Click()Text1.FontUnderline=Check3.Value------5分EndSub二、界面设计------10分PrivateSubCmd1_Click()------2分Dima%(19),i%,sum!,aver!------4分Randomize------3分Fori=0To19------3分a(i)=Int(Rnd*1001)------3分sum=sum+a(i)------3分Nexti------2分aver=sum/20------3分Printaver------2分EndSub三、界面设计------10分Dimn%------2分PrivateSubForm_Load()EndSubPrivateSubOption1_Click()------2分Dimi%------2分n=Val(Text1)------3分m=1------1分Fori=1Ton------2分m=m*i-----2分Nexti------2分Text2=m------2分EndSubPrivateSubOption2_Click()------1分Dimi%------2分m=1------1分Fori=1Ton+2------2分m=m*i------2分Nexti------2分Text2=m------2分EndSubVB上机综合测试题（二）1．设计如图所示界面，编程实现如下功能：在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；单击“清除”按钮，清除文本框中的内容；单击“退出”按钮，关闭窗口。（35分）2．设计左图所示界面，编程实现如下功能：单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。3、使用提供素材设计如图所示界面，编程实现如下功能：程序运行时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以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分End------3分EndSub二、界面设计------10分PrivateSubCheck1_Click(IndesAsInteger）------2分Text1.Text=------3分Fork=0To3------2分IfCheck1(k）.value=1Then-----2分Text1.Text=Text1.Text&Check1(k）.Caption&------2分EndIf------2分Nextk------2分EndSub三、界面设计-----10-分PrivateSubCommand1_Click()------2分Timer1.Enabled=True------3分EndSubPrivateSubCommand2_Click()------2分Timer1.Enabled=False------3分EndSubPrivateSubForm_Load()------2分Timer1.Enabled=False------3分EndSubPrivateSubTimer1_Timer()------2分IfImage1.Top=0Then------3分Image1.MoveImage1.Left+80,Image1.Top+160------3分Else------2分Image1.MoveImage1.Left+80,Image1.Top-160-----3分EndIf------2分EndSubVB上机综合测试题（三）一、银行卡密码验证程序1.输入密码后点击确认按钮，如果正确，窗体上输出“密码输入正确，请继续操作！”。2.如果密码错误，窗体上输出“密码错误，请重新输入！”，同时将文本框中密码清空，设置焦点。3.密码为123456，要求密码框中以“*”的形式显示。二、输出图形应用嵌套的循环结构，输出由字符构成的特定图案。程序运行时单击窗体，即可在窗体上输出如下图案。三、计算球体积和表面积设计下图所示界面的程序，程序运行后，输入球的半径，单击“球体积”、“球表面积”复选框，根据复选框是否可选，决定是否在右侧相应的文本框内显示球体积（4π𝑟3/3）和球表面积（4π𝑟2）的计算结果。**1****2**2****3**3**3****4**4**4**4****5**5**5**5**5**答案：一、银行卡密码验证程序（30分）PrivateSubCommand1_Click()2分IfText1.Text=123456Then4分Form1.Cls2分Print密码正确!2分Else3分Cls3分Print密码错误,请重新输入!2分Text1.Text=2分Text1.SetFocus4分EndIf4分EndSub2分二、输出图形（30分）PrivateSubForm_Click()2分Fori=1To54分Print**;4分Forj=1Toi4分Printi;4分Print**;4分Nextj2分Print2分NextI2分EndSub2分三、计算球体积和表面积（40分）PrivateSubCheck1_Click()2分r=Val(Text1.Text)2分IfCheck1.Value=1Then3分v=4*3.14159*r^3/33分Text2.Text=v3分Else1分Text2.Text=2分EndIf2分EndSub2分PrivateSubCheck2_Click()2分r=Val(Text1.Text)2分IfCheck2.Value=1Then3分s=4*3.14159*r^23分Text3.Text=s3分Else1分Text3.Text=2分EndIf2分EndSub2分VB上机综合测试题（四）一、在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。其他属性按下图进行设置。要求：当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。双击列表框中的某一项时将该项删除。(25分)二、输入圆的半径，计算圆的面积。要求自行设计界面，使用到的控件包括文本框，文字标签等。（35分）三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。（40分）答案：一、界面设计------10分PrivateSubCommand1_Click()------2分List1.AddItemText1.Text------5分EndSubPrivateSubList1_DblClick()------3分List1.RemoveItemList1.ListIndex------5分EndSub二、界面-10分PrivateSubCommand1_Click()------2分ConstPIAsSingle=3.14------3分DimrAsInteger,sAsSingle------5分r=Val(Text1.Text)------5分s=PI*r*r------5分Text2.Text=s------5分EndSub三、PrivateSubForm_Click()------2分Dima(10)AsInteger,iAsInteger,sumAsInteger------5分Fori=0To10------5分a(i)=Int(100*Rnd)------5分Printa(i);------3分Ifa(i)Mod2=0Then------5分sum=sum+a(i)------5分EndIf------2分Nexti------3分MsgBox随机数中偶数之和为：&sum------5分EndSubVB上机综合测试题（五）一、在窗体上画两个名称分别为Text1、Text2的文本框，再画两个命令按钮，名称分别为C1、C2，标题分别为“复制”、“删除”。程序运行时，在Text1中输入以下文本：“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍重里有蜜甜的忧愁。”要求多行显示。并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Text1中被删除，请编写两个命令按钮的Click事件过程完成上述功能。（30分）二、购买地铁车票，若乘1到4站，3元/位；若乘5到9站，4元/位；若乘10站以上，5元/位；输入人数person、站数n，输出应付款pay。（35分）三、从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。（35分）答案：一、界面设计----10分PrivateSubC1_Click()----3分Text2.Text=Text1.SelText----7分EndSubPrivateSubC2_Click()----3分Text1.SelText=----7分EndSub二、PrivateSubCommand1_Click()----1分DimxAsSingle,yAsSingle,z----3分x=Val(Text1.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分EndSelect----1分Text3.Text=z----2分EndSubPrivateSubCommand2_Click()----1分Text1.Text=----1分Text2.Text=----1分Text3.Text=----1分EndSub三、PrivateSubForm_Click()----2分Dimmax!,min!,x!----3分x=InputBox(请输入学生考试成绩)----3分max=x----2分min