VB上机综合测试题十五套.docx
- 文档编号:11896156
- 上传时间:2023-04-08
- 格式:DOCX
- 页数:38
- 大小:660.59KB
VB上机综合测试题十五套.docx
《VB上机综合测试题十五套.docx》由会员分享,可在线阅读,更多相关《VB上机综合测试题十五套.docx(38页珍藏版)》请在冰豆网上搜索。
VB上机综合测试题十五套
VB上机综合测试题
(一)
一、如下所示,在窗体上,放置一个文本框text1(文本框中的文字为“改变字形”,居中显示)。
三个复选框check1,check2和check3,如图设置属性。
要求:
当用户单击“加粗”、“斜体”、“下划线”这三个复选框时(即当复选框被选中时)能将文本框的字形变为“粗体、斜体、加下划线”(25分)
二、在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。
程序运行后,单击命令按钮完成以下工作:
①随机产生20个0到1000的整数,将其放入一个一维数组中②求出所有元素的平均值,并显示在窗体上(如下图所示)(35分)
三、请设计如下图所示窗体界面。
运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。
请编写程序完成上述功能。
(40分)
答案:
一、
界面设计------10分
PrivateSubCheck1_Click()
Text1.FontBold=Check1.Value------5分
EndSub
PrivateSubCheck2_Click()
Text1.FontItalic=Check2.Value------5分
EndSub
PrivateSubCheck3_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分
Dim n%------2分
PrivateSubForm_Load()
EndSub
PrivateSubOption1_Click()------2分
Dimi%------2分
n=Val(Text1)------3分
m=1------1分
Fori=1Ton------2分
m=m*i-----2分
Nexti------2分
Text2=m------2分
EndSub
PrivateSubOption2_Click()------1分
Dimi%------2分
m=1------1分
Fori=1Ton+2------2分
m=m*i------2分
Nexti------2分
Text2=m------2分
EndSub
VB上机综合测试题
(二)
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分
EndSub
PrivateSubCommand2_Click()------2分
Text1.Text=""------3分
Text2.Text=""------3分
Text3.Text=""------3分
EndSub
PrivateSubCommand3_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分
EndSub
PrivateSubCommand2_Click()------2分
Timer1.Enabled=False------3分
EndSub
PrivateSubForm_Load()------2分
Timer1.Enabled=False------3分
EndSub
PrivateSubTimer1_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分
EndSub
VB上机综合测试题(三)
一、银行卡密码验证程序
1.输入密码后点击确认按钮,如果正确,窗体上输出“密码输入正确,请继续操作!
”。
2.如果密码错误,窗体上输出“密码错误,请重新输入!
”,同时将文本框中密码清空,设置焦点。
3.密码为123456,要求密码框中以“*”的形式显示。
二、输出图形
应用嵌套的循环结构,输出由字符构成的特定图案。
程序运行时单击窗体,即可在窗体上输出如下图案。
**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分
Private Sub Command1_Click()------2分
List1.AddItem Text1.Text ------5分
End Sub
Private Sub List1_DblClick() ------3分
List1.RemoveItem List1.ListIndex------5分
End Sub
二、
界面-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分
EndSub
VB上机综合测试题(五)
一、在窗体上画两个名称分别为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分
EndSub
PrivateSubC2_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分
EndSub
PrivateSubCommand2_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=x----2分
DoWhilex>0----2分
Ifx>maxThen----3分
max=x----2分
ElseIfx min=x----2分 EndIf----2分 x=InputBox("请输入学生考试成绩")----3分 Loop----2分 Print"max=";max;"min=";min----4分 EndSub VB上机综合测试题(六) 1、窗体中有一个名称为Hscroll1的水平滚动条控件,要设置它的如下属性值,请编写代码实现如下内容: (20分) (1)Hscroll1控件的滑块处于最小位置时值为8 (2)Hscroll1控件的滑块处于最大位置时值为72 (3)单击Hscroll1控件两端箭头时,滑块的增量值为2 (4)单击Hscroll1控件的空白处时,滑块的增量值为8 2、以下数列: 1,1,3,5,9,15,25,41,…,的规律是从第3个数开始,每个数是它前面两个数的和加1。 请编写适当的事件过程实现以下功能: 在文本框Text1中输入整数40,单击Command1“计算”按钮,则在文本框Text2中显示该数列第40项的值。 (提示: 因数据较大,应使用Long型变量)(35分) 3、窗体上有两个标题分别是“读数据”和“统计”的命令按钮两个标签,名称分别为Label1和Label2,标题分别为“出现次数最多的字母是”和“它出现的次数为”;两个初始值为空的文本框名称分别为Text1和Text2。 程序功能如下: 单击“统计”按钮,则自动统计字符串s中所含各字母(不区分大小写)出现的次数,并将出现次数最多的字母显示在Text1文本框内,它所出现的次数显示在Text2文本框内,请为“统计”按钮编写适当的事件过程实现上述功能。 (45分) 答案: 一、 Hscroll1.Min=8: 5分 Hscroll1.Max=72: 5分 Hscroll1.SmallChange=2: 5分 Hscroll1.LargeChange=85分 二、 界面设计------10分 单击“计算”按钮(即运行Click事件过程),在该Click事件过程中加入语句: PrivateSubCommand1_Click()3分 DimfAsLong3分 a (1)=14分 a (2)=14分 Fori=3ToVal(Text1.Text)5分 f=a(i-2)+a(i-1)+15分 a(i)=f4分 Nexti3分 Text2.Text=f4分 EndSub 三、 界面设计------10分 PrivateSubCommand2_Click()1分 Dima(26)AsInteger1分 n=Len(s)3分 Fori=1Ton1分 c=UCase(Mid(s,i,1))3分 Ifc>="A"Andc<="Z"Then3分 j=Asc(c)-Asc("A")+13分 a(j)=a(j)+12分 EndIf Nexti Max=a (1)2分 t=Chr(Asc("A"))3分 Fori=2To262分 Ifa(i)>MaxThen2分 Max=a(i)2分 t=Chr(Asc("A")+i-1)3分 EndIf Nexti Text1.Text=t2分 Text2.Text=Max2分 EndSub VB上机综合测试题(七) 1、在窗体上建立一个标签,其名称为Label1,窗体的标题为“设置标签属性”;标签的位置为距窗体左边界500,距窗体顶边界300;标签的标题为“等级考试”;标签可以根据标题的内容自动调整大小。 请用代码列写出图片中对象的属性设置。 (30分) 2、由键盘输入10个数,再逆序输出。 (35分) 3、求1~20之间能被5整除的所有数的乘积。 (35分) 答案: 一、 界面设计-----10-分 Label1.Caption="等级考试"-----4-分 Form1.Caption="设置标签属性"-----4-分 Label1.Left=500-----4-分 Label1.Top=300-----4-分 Label1.AutoSize=True-----4分 二、 界面设计------5分 Dima(1To10)AsInteger-----2分 OptionExplicit-----2分 PrivateSubCommand1_Click()----2分 Dimi%-----2分 Print"输入的10个数"----2分 Fori=1To10-----2分 a(i)=Val(InputBox("输入第"&i&"个数"))-----2分 Nexti-----2分 Fori=1To10-----2分 Printa(i);-----2分 Nexti-----2分 Print: Print-----2分 EndSub PrivateSubCommand2_Click()-----2分 Dimi%----2分 Print"逆序后的10个数"-----2分 Fori=10To1Step-1----2分 Printa(i);----2分 Nexti-----2分 EndSub 三、 界面设计------10分 PrivateSubForm_Click()------3分 Dimi%,sAsLong------2分 s=1------3分 Fori=1To20------3分 IfiMod5=0Then------3分 s=s*i-----3分 EndIf------2分 Nexti------2分 Prints------3分 EndSub VB上机综合测试题(八) 1、编写程序,打印如图所示图形。 (30分) 2、1—100之间自然数的平方和,程序参考界面如图所示: (30分) 3、找出在1~1000中同时满足被7除余5、被5除余3、被3除余2条件的数,界面自定。 (40分) 答案: 1评分标准: PrivateSubForm_Click()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+x^25分 NextI2分 Text1.Text=Str(sum)3分 EndSub2分 正确保存窗体文件1分 正确保存工程文件1分 3评分标准 设置控件和窗体属性5分 PrivateSubCommand1_Click()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个整数。 (30分) 提问: (1)、应该对窗体的什么事件进行编程? (2)、编写程序代码,实现上述功能。 答案: 一、 界面设计------5分 PrivateFunctionfact(nAsInteger)AsInteger-----4分 DimiAsInteger-----2分
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 上机 综合测试 十五
![提示](https://static.bdocx.com/images/bang_tan.gif)