VB期末上机练习题.docx
- 文档编号:30376495
- 上传时间:2023-08-14
- 格式:DOCX
- 页数:22
- 大小:281.90KB
VB期末上机练习题.docx
《VB期末上机练习题.docx》由会员分享,可在线阅读,更多相关《VB期末上机练习题.docx(22页珍藏版)》请在冰豆网上搜索。
VB期末上机练习题
2011VB专科期末上机练习题
1、求10个三位正整数中的偶数之和,正整数用随机函数Rnd产生,或由InputBox函数输入。
2、求10个三位正整数中的奇数之和,正整数用随机函数Rnd产生,或由InputBox函数输入。
3、编写程序,打印如图1所示图形。
图1
4、1—100之间自然数的平方和,程序参考界面如图2所示:
图2
5、输入时间(小时、分和秒)然后使用输出消息框输出总计多少秒。
使用文本框输入数据,使用消息框输出计算结果,程序运行界面如图3、4所示:
图3图4
6、找出在1~1000中同时满足被7除余5、被5除余3、被3除余2条件的数,界面自定。
7、编程,输入x,求下列分段函数f(x)的值。
用InputBox函数输入x,计算结果f(x)输出到Text控件。
8、设计一个函数计算器,程序界面如图5所示,其功能要求如下:
1.单击“InputBox”按钮,弹出一对话框,提示输入姓名,当用户输入后,再将输入的内容显示在文本框中;
2.单击“Date”按钮在文本框中显示系统日期;
3.单击“Sin、Asc”按钮,将文本框中的数据作为函数的输入参数,同时在文本框中显示函数值。
图5
9、设计一个函数计算器,程序界面如图6所示,其功能要求如下:
4.单击“MsgBox”按钮,将文本框中的内容通过一信息框显示出来;
5.单击“Time”按钮在文本框中显示系统时间;
6.单击“Sqr、Chr”按钮,将文本框中的数据作为函数的输入参数,同时在文本框中显示函数值。
图6
10、编写程序:
输入x、y、z三个数,按从小到大的次序显示,界面自定。
11、新建一个工程,完成“添加与删除”程序的设计,具体要求如下:
1.窗体的标题为“添加与删除”,固定边框;
2.程序界面如图7所示。
在窗体中引入一个文本框(Text1),在文本框的下面引入一个列表框(List1),列表框中内容有四项,分别为“Word、Excel、PowerPoint、Outlook”;
3.单击“添加”按钮(Command1),将文本框中的内容加入列表框中的第一项,如果文本框中没有内容,则给出提示“没有内容,不予添加!
”;
4.单击“删除”按钮(Command2),将选中表项删除,如果没有选择要删除的表项,则给出提示“请选择要删除的项目!
”。
图7
12、新建一个工程,完成“加法器”程序的设计,具体要求如下:
1.窗体的标题为“加法器“,固定边框;
2.程序界面如图8所示。
在窗体上从上到下依次引入Text1、Text2、Text3三个文本框,三个文本框的对齐方式均为右对齐;
3.上面两个文本框用于输入加数,要求不接受非数字键;
4.下面一个文本框用于显示和,要求不能对其进行编辑操作;
5.单击“=“按钮(Command1),将两个加数的和显示在下面一个文本框中;
6.单击“清空“按钮(Command2),三个文本框内容都被清空,同时第一个文本框获得焦点。
图8
13、新建一个工程,完成“字体设置”程序的设计,程序界面如图9所示,具体要求如下:
1.窗体的标题为“字体设置”,固定边框;
2.窗体的上边有一个文本框(Text1),文字内容为“心想事成”;
3.文本框下面的左边有一个标签(Label1),标题为“字体:
”,标签下面是一个简单组合框(Combo1),有三项内容,分别是“宋体、黑体、楷体”,单击时对文本框的字体进行设置;
4.文本框下面的右边有一个标签(Label2),标题为“大小:
”,标签下面是一个简单组合框(Combo2),有八项内容,分别是“10、12、16、20、24、36、48、72”,单击时对文本框的文字大小进行设置。
图9
14、新建一个工程,完成“格式设置”程序的设计,程序界面如图10所示,具体要求如下:
1.窗体的标题为“格式设置”,固定边框;
2.窗体的上边有一个文本框(Text1),文字内容为“心想事成”,Font:
宋体、常规、三号;
3.文本框下面的左边有一个标签(Label1),标题为“对齐:
”,标签下面是一个简单组合框(Combo1),有三项内容,分别是“左对齐、居中、右对齐”,单击时对文本框的对齐方式进行设置;
4.文本框下面的右边有一个标签(Label2),标题为“字型:
”,标签下面是一个简单组合框(Combo2),有四项内容,分别是“常规、斜体、粗体、粗斜体”,单击时对文本框的字型进行设置。
图10
15、新建一个工程,完成“调色板”程序的设计,程序界面如图11所示,具体要求如下:
1.窗体的标题为“调色板”,固定边框;
2.窗体上有一个“三原色配比与预览”的框架(Frame1),框架内从上到下有三个水平滚动条,滚动条的取值范围均为0-255,并相应地用标签控件标注“红、绿、蓝”,在框架内的右边还有一个长方形形状控件(Shape1),填充色为黑色、填充样式为实心;
3.在窗体的底部引入标签,并在属性窗口中将它的标题设为“坚持就是胜利”,字体设为“楷体GB-2312”,大小为“二号”,标签格式设置为在窗体中水平居中对齐,标签的大小随显示内容自动调整;
4.拖动三个滚动条的滚动框来选择红、绿、蓝三原色的配色取值,并通过形状控件的填充色动态显示调色效果;
5.单击“应用“按钮(Command1),将调配好的颜色应用为标签(坚持就是胜利)的文字颜色。
图11
PrivateSubCommand1_Click()
Label4.ForeColor=Shape1.FillColor
EndSub
PrivateSubForm_Load()
Fori=0To2
HScroll1(i).Min=0
HScroll1(i).Max=255
HScroll1(i).SmallChange=5
HScroll1(i).LargeChange=20
Next
EndSub
PrivateSubHScroll1_Change(IndexAsInteger)
SelectCaseIndex
Case0
Shape1.FillColor=RGB(HScroll1(i),HScroll1
(1),HScroll1
(2))
Case1
Shape1.FillColor=RGB(HScroll1(0),HScroll1(i),HScroll1
(2))
Case2
Shape1.FillColor=RGB(HScroll1(0),HScroll1
(1),HScroll1(i))
EndSelect
EndSub
PrivateSubHScroll1_Scroll(IndexAsInteger)
SelectCaseIndex
Case0
Shape1.FillColor=RGB(HScroll1(i),HScroll1
(1),HScroll1
(2))
Case1
Shape1.FillColor=RGB(HScroll1(0),HScroll1(i),HScroll1
(2))
Case2
Shape1.FillColor=RGB(HScroll1(0),HScroll1
(1),HScroll1(i))
EndSelect
EndSub
16、新建一个工程,完成“改变字号”程序的设计,程序界面如图12所示,具体要求如下:
1.窗体的标题为“改变字号”;
2.窗体中有以下控件:
一个标签框、一个文本框、一个水平滚动条;
3.根据滚动框的位置改变标签内显示文字的字号,字号取值范围:
8-72。
图12
17、新建一个工程,完成“点餐”程序的设计,程序界面如图13所示,具体要求如下:
1.窗体的标题为“点餐”;
2.窗体中有以下控件:
一个框架控件作为容器,内有三个复选框,对应三个文本框、三个标签框、一个命令按钮;
3.选择所需套餐种类及份数,单击确定按钮后计算所需的钱,并用消息框显示。
图13图14
18、新建一个工程,完成应用程序的设计,具体要求如下:
1.按照图11所示在窗体上放置按钮和控件;
2.在两个列表框控件的list中输入一些内容;
3.单击“<”按钮时,把list2中选中的一项放到list1中,并且在list2中删除该项;
4.单击“<<”按钮时,把list2中所有的项放到list1中,并且清空list2;
5.单击“>”按钮时,把list1中选中的一项放到list2中,并且在list1中删除该项;
6.单击“>>”按钮时,把list1中所有的项放到list2中,并且清空list1;
7.单击“结束”按钮时,退出应用程序。
图15
19、新建一个工程,完成“收款计算”程序的设计,具体要求如下:
1.按照图16所示在窗体上放置控件;
2.窗体上有三个文本框,上面两个分别用于输入商品单价和商品数量,单击“计算”,将应付款显示在最下面一个文本框中;
3.最下面一个文本框(应付款)不能直接输入;
4.单击“清除”按钮,三个文本框内容被清空,同时第一个文本框获得焦点。
图16
20、新建一个工程,完成应用程序的设计,具体要求如下:
1.如图17所示,在窗体上放置一个水平滚动条、一个标签框和一个命令按钮;
2.滚动条状态发生改变时,标签上的文字可以左右移动,文字移动范围等于滚动条的范围。
图17
21、新建一个工程,完成应用程序的设计,具体要求如下:
1.按照图18所示在窗体上放置控件;
2.4个单选按钮分别用于显示星期、年份、月份和日期;
3.选中某个单选按钮时,在文本框中显示当天对应的日期信息;
4.单击“结束”命令该按钮时,退出应用程序。
图18
22、新建一个工程,完成“计算平均成绩”应用程序的设计,具体要求如下:
1.按照图19所示在窗体上放置控件;
2.在输入或修改单科成绩的同时计算平均分,即在"高数"、"英语"和"计算机"文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在“平均成绩”文本框中显示;
3.“平均成绩”文本框不允许编辑,即不能手工修改;
4.各单科成绩文本框中只能输入数字,不能输入字母或汉字,否则给出错误提示。
图19
23、设计一个秒表模拟程序,按下“开始”按钮,屏幕显示当前时间;按下“结束”按钮,屏幕显示结束时间和持续时间;按下“退出”按钮,结束程序。
图20
24、设计一个用来控制文本框中信息格式的程序,界面如图21所示:
图21
25、新建一个工程,完成“字幕闪烁”程序的设计,程序界面如图22所示,具体要求如下:
1.窗体的标题为“字幕闪烁”,固定边框;
2.在属性窗口中将标签(Label1)的标题设为“祝您考试成功”,字体设置为“宋体”、“粗体”、“二号”,文字颜色为“红色”,格式设置为水平居中对齐;
3.单击“开始”按钮(Command1),标签文字在定时器控制下自动交替以红蓝两种颜色显示,同时“开始”按钮变为“停止”按钮;
4.单击“停止”按钮,标签文字停止闪烁,同时“停止”按钮变为“开始”按钮;
5.定时器(Timer1)的时间间隔为0.3秒。
图22
26、新建一个工程,完成“字幕滚动”程序的设计,程序界面如图23所示,具体要求如下:
1.窗体的标题为“字幕滚动”,固定边框;
2.在属性窗口中将标签(Label1)的标题设为“祝您考试成功”,字体设置为“宋体”、“粗体”、“二号”,文字颜色为“红色”;
3.单击“开始”按钮,标签文字在定时器控制下自动地从左向右移动,移动速度为每个时间间隔右移100缇。
当标签移动到窗体外时,再从窗体的左边进入,同时“开始”按钮变为“停止”按钮;
4.单击“停止”按钮,标签“祝您考试成功”文字停止滚动,同时“停止”按钮变为“开始”按钮;
5.定时器(Timer1)的时间间隔为0.1秒。
图23
27、新建一个工程,完成“字幕放大”程序的设计,程序界面如图24所示,具体要求如下:
1.窗体的标题为“字幕放大”,固定边框;
2.单击“开始”按钮(Command1),标签“欢迎光临”(Label1)文字在定时器控制下字号自动增加2,同时“开始”按钮变为“停止”按钮;
3.单击“停止”按钮,标签“欢迎光临”文字停止放大,同时“停止”按钮变为“开始”按钮;
4.要求标签文字在放大时保持水平居中;
5.定时器(Timer1)的时间间隔为0.2秒。
图24
28、新建一个工程,完成“改变大小”程序的设计,程序界面如图25所示,具体要求如下:
1.窗体的标题为“改变大小”,固定边框;
2.窗体上引入一个红色的圆形形状控件(Shape1),圆的直径为3400Twips;
3.窗体的下面有一个水平滚动条(Hscroll1),将它的最大值设置为与圆的直径相同,初始值为最大值,SmallChange和LargeChange均为100Twips;
4.水平滚动条的下面有两个标签控件,左边标签(Label1)的标题为“圆的直径为:
”,右边标签(Label2)的标题为“3400”,两个标签均为固定边框;
5.改变滚动条的值可以控制圆形直径,同时在标签Label2中动态显示圆的直径;
6.要求圆形直径在变化时要保持圆心位置不变。
图25
29、新建一个工程,完成“作图”程序的设计,程序界面如图26所示,具体要求如下:
1.窗体的标题为“作图”,固定边框;
2.窗体的右边是一个图片框(Picture1),用于显示图形;
3.单击“坐标系”按钮(Command1),将图片框的坐标系统设置为原点在中央,x轴[-10,10],y轴[-10,10],并在图片框中画出该坐标系统示意图;
4.单击“扇形”按钮(Command2),在图片框中画一个圆心在原点,半径为5,圆周为红色,线宽为2,内部为绿色,起始角为π/6,终止角为5π/6的扇形;
5.单击“结束”按钮(Command3),程序结束运行。
图26
30、新建一个工程,完成“绘制图形”程序的设计,具体要求如下:
1.窗体的标题为“绘制图形”,固定边框;
2.按照图27所示在窗体上放置控件;
3.窗体左侧为图片框(Picture1),用于绘制指定图形;
4.首先在右侧框架(Frame1)中选择绘图颜色,接着在下方框架(Frame2)中选择图形种类,最后在图片框中绘制相应图形;
5.用输入对话框输入所需参数,如绘制圆时,输入圆心坐标与半径;
6.单击“结束”按钮(Command1),程序结束运行。
图27
31、新建一个工程,完成“倒计时”程序的设计,具体要求如下:
1.参照图28完成界面设计。
2.窗体的左边有一个框架Frame1,标题为“选择时间”;框架内有一组单选按钮控件数组,从上到下为Option1(0)、Option1
(1)、Option1
(2),标题分别为“1分钟”、“5分钟”、“10分钟”。
默认选择为1分钟。
3.标签Label1,用于显示倒计时的剩余的时间。
4.单击“开始计时”按钮(Command1)后,程序根据选择的时间开始倒计时,同时命令按钮变为不可使用,框架也不可使用。
5.当剩余时间到0分0秒时,改为显示“时间到!
”。
6.定时器Timer1的时间间隔为1秒。
图28
32、某公司对员工的工资进行调整:
若原有工资大于等于1000元,增加工资35%;若小于1000元大于等于800元,则增加工资25%;若小于800元,则增加工资15%。
请根据用户输入的原有工资,计算出增加后的工资。
图29
33、设计一个“家电提货单”管理程序,程序运行界面如下图所示。
具体要求如下:
1.单击“确定”后,根据选择的内容将清单及总价在列表框中列出。
2.“清除”按钮用于清空列表框中的项目。
3.所有文本框只接受数字。
图30
PrivateSubCheck1_Click()
Text1.Enabled=True
EndSub
PrivateSubCheck2_Click()
Text2.Enabled=True
EndSub
PrivateSubCheck3_Click()
Text3.Enabled=True
EndSub
PrivateSubCheck4_Click()
Text4.Enabled=True
EndSub
PrivateSubCheck5_Click()
Text5.Enabled=True
EndSub
PrivateSubCommand1_Click()
t1=Val(Text1)
t2=Val(Text2)
t3=Val(Text3)
t4=Val(Text4)
t5=Val(Text5)
IfCheck1.Value=1ThenList1.AddItem"彩电"&t1&"台"
IfCheck2.Value=1ThenList1.AddItem"微波炉"&t2&"台"
IfCheck3.Value=1ThenList1.AddItem"电冰箱"&t3&"台"
IfCheck4.Value=1ThenList1.AddItem"DVD"&t4&"台"
IfCheck5.Value=1ThenList1.AddItem"空调"&t5&"台"
tz=t1+t2+t3+t4+t5
hj=t1*3580+t2*660+t3*1850+t4*2880+t5*5500
List1.AddItem"共:
"&tz&"台"&""&"合计金额:
"&hj
EndSub
PrivateSubCommand2_Click()
List1.Clear
EndSub
PrivateSubForm_Load()
Text1.Enabled=False
Text2.Enabled=False
Text3.Enabled=False
Text4.Enabled=False
Text5.Enabled=False
EndSub
PrivateSubList1_Click()
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
PrivateSubText3_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
PrivateSubText4_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
PrivateSubText5_KeyPress(KeyAsciiAsInteger)
IfKeyAscii<48OrKeyAscii>57ThenKeyAscii=0
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 期末 上机 练习题
![提示](https://static.bdocx.com/images/bang_tan.gif)