VB上机综合测试题十五套Word文档下载推荐.docx
《VB上机综合测试题十五套Word文档下载推荐.docx》由会员分享，可在线阅读，更多相关《VB上机综合测试题十五套Word文档下载推荐.docx（38页珍藏版）》请在冰点文库上搜索。
Printaver------2分
三、
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分
Text2=m------2分
PrivateSubOption2_Click（）------1分
Fori=1Ton+2------2分
m=m*i------2分
VB上机综合测试题
（二）
1．设计如图所示界面，编程实现如下功能：
在文本框中输入平时成绩和考试成绩，单击“确定”按钮，将最终成绩显示到第三个文本框中，其中，平时成绩占最终成绩的30%，考试成绩占最终成绩的70%；
单击“清除”按钮，清除文本框中的内容；
单击“退出”按钮，关闭窗口。
（35分）
2．设计左图所示界面，编程实现如下功能：
单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中（见右图）（25分）。
3、使用提供素材设计如图所示界面，编程实现如下功能：
程序运行时太阳静止不动，单击“太阳升起”按钮时，太阳升起（以0.5s为时间间隔，太阳向右移动80，向上移动160）；
单击“停止升起”时，太阳静止不动。
PrivateSubCommand1_Click（）-----2分
Text3.Text=Val（Text1.Text）*0.3+Val（Text2.Text）*0.7-----7分
PrivateSubCommand2_Click（）------2分
Text1.Text="
"
------3分
Text2.Text="
Text3.Text="
PrivateSubCommand3_Click（）------2分
End------3分
PrivateSubCheck1_Click（IndesAsInteger）------2分
Text1.Text="
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分
Timer1.Enabled=False------3分
PrivateSubForm_Load（）------2分
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分
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分
密码错误,请重新输入!
Text1.SetFocus4分
EndIf4分
EndSub2分
二、输出图形（30分）
PrivateSubForm_Click（）2分
Fori=1To54分
**"
;
4分
Forj=1Toi4分
Printi;
Nextj2分
Print2分
NextI2分
三、计算球体积和表面积（40分）
PrivateSubCheck1_Click（）2分
r=Val（Text1.Text）2分
IfCheck1.Value=1Then3分
v=4*3.14159*r^3/33分
Text2.Text=v3分
Else1分
EndIf2分
PrivateSubCheck2_Click（）2分
IfCheck2.Value=1Then3分
s=4*3.14159*r^23分
Text3.Text=s3分
VB上机综合测试题（四）
一、在窗体上按下图放置两个标签和一个文本框，一个列表框和一个命令按钮，各控件的名称属性取默认值。
其他属性按下图进行设置。
当用户在文本框输入他的籍贯后，单击“添加籍贯”按钮时，能够将籍贯添加到列表框中。
双击列表框中的某一项时将该项删除。
（25分）
二、输入圆的半径，计算圆的面积。
要求自行设计界面，使用到的控件包括文本框，文字标签等。
三、定义一个下标上界为10的整型数组，并用随机函数为其赋值（值介于0-100）之间计算数组中所有偶数的数据的和，并用Msgbox函数输出。
Private
Sub
Command1_Click（）------2分
List1.AddItem
Text1.Text
------5分
End
List1_DblClick（）
List1.RemoveItem
List1.ListIndex------5分
Sub
界面-10分
ConstPIAsSingle=3.14------3分
DimrAsInteger,sAsSingle------5分
r=Val（Text1.Text）------5分
s=PI*r*r------5分
Text2.Text=s------5分
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分
Nexti------3分
MsgBox"
随机数中偶数之和为：
&
sum------5分
VB上机综合测试题（五）
一、在窗体上画两个名称分别为Text1、Text2的文本框，再画两个命令按钮，名称分别为C1、C2，标题分别为“复制”、“删除”。
程序运行时，在Text1中输入以下文本：
“最是那一低头的温柔，像一朵水莲花不胜凉风的娇羞，道一声珍重，道一声珍重，那一声珍重里有蜜甜的忧愁。
”要求多行显示。
并用鼠标拖拽的方法选择任意一行后，单击“复制”按钮，则选中的一行字符被复制到Text2中，若单击“删除”按钮，则被选择的字符从Text1中被删除，请编写两个命令按钮的Click事件过程完成上述功能。
（30分）
二、购买地铁车票，若乘1到4站，3元/位；
若乘5到9站，4元/位；
若乘10站以上，5元/位；
输入人数person、站数n，输出应付款pay。
三、从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。
界面设计----10分
PrivateSubC1_Click（）----3分
Text2.Text=Text1.SelText----7分
PrivateSubC2_Click（）----3分
Text1.SelText="
----7分
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分
=5----3分
z=4*x----3分
=1----3分
z=3*x----3分
EndSelect----1分
Text3.Text=z----2分
PrivateSubCommand2_Click（）----1分
Text1.Text="
----1分
Text2.Text="
Text3.Text="
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<
minThen----3分
min=x----2分
EndIf----2分
x=InputBox（"
Loop----2分
Print"
max="
max;
min="
min----4分
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分
单击“计算”按钮（即运行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分
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（"
）+13分
a（j）=a（j）+12分
EndIf
Nexti
Max=a
（1）2分
t=Chr（Asc（"
））3分
Fori=2To262分
Ifa（i）>
MaxThen2分
Max=a（i）2分
）+i-1）3分
Text1.Text=t2分
Text2.Text=Max2分
VB上机综合测试题（七）
1、在窗体上建立一个标签，其名称为Label1，窗体的标题为“设置标签属性”；
标签的位置为距窗体左边界500，距窗体顶边界300；
标签的标题为“等级考试”；
标签可以根据标题的内容自动调整大小。
请用代码列写出图片中对象的属性设置。
2、由键盘输入10个数，再逆序输出。
3、求1～20之间能被5整除的所有数的乘积。
Label1.Caption="
等级考试"
-----4-分
Form1.Caption="
设置标签属性"
Label1.Left=500-----4-分
Label1.Top=300-----4-分
Label1.AutoSize=True-----4分
界面设计------5分
Dima（1To10）AsInteger-----2分
OptionExplicit-----2分
PrivateSubCommand1_Click（）----2分
Dimi%-----2分
输入的10个数"
----2分
Fori=1To10-----2分
a（i）=Val（InputBox（"
输入第"
i&
个数"
））-----2分
Nexti-----2分
Printa（i）;
-----2分
Print:
Print-----2分
PrivateSubCommand2_Click（）-----2分
Dimi%----2分
逆序后的10个数"
-----2分
Fori=10To1Step-1----2分
----2分
PrivateSubForm_Click（）------3分
Dimi%,sAsLong------2分
s=1------3分
Fori=1To20------3分
IfiMod5=0Then------3分
s=s*i-----3分
Nexti------2分
Prints------3分
VB上机综合测试题（八）
1、编写程序，打印如图所示图形。
2、1—100之间自然数的平方和，程序参考界面如图所示：
3、找出在1～1000中同时满足被7除余5、被5除余3、被3除余2条件的数，界面自定。
1评分标准：
Dimi%,j%2分
PrintTab（15-i）;
Forj=1To（2*i-1）5分
*"
Nextj2分
Print2分
Endsub2分
正确保存窗体文件1分
正确保存工程文件1分
2评分标准：
设置控件和窗体属性5分
Dimi,x,sum&
Fori=1To1004分
x=1+x3分
sum=sum+x^25分
Text1.Text=Str（sum）3分
3评分标准
Dimi,x%2分
Fori=1To10004分
x=x+14分
IfxMod7=5AndxMod5=3AndxMod3=2Then8分
PrintStr（x）&
Space
（2）;
Next2分
正确保存窗体文件2分
正确保存工程文件2分
VB上机综合测试题（九）
1、编写一个函数计算1*2*…*n的值，函数名为fact（）（30分）
2、已知三角形的三条边，编写一个函数求其面积，函数名自命名。
（40分）
3、新建一个窗体，程序运行时，当用鼠标单击窗体任一地方，程序弹出Inputbox（）函数输入框。
当输完15个整数后，程序把刚输入的15个整数分3行在窗体上显示，每行5个整数。
（30分）
提问：
（1）、应该对窗体的什么事件进行编程？
（2）、编写程序代码，实现上述功能。
PrivateFunctionfact（nAsInteger）AsInteger-----4分
DimiAsInteger-----2分
升级会员 