前半学期实验汇总.docx
- 文档编号:12364573
- 上传时间:2023-04-18
- 格式:DOCX
- 页数:30
- 大小:606.85KB
前半学期实验汇总.docx
《前半学期实验汇总.docx》由会员分享,可在线阅读,更多相关《前半学期实验汇总.docx(30页珍藏版)》请在冰豆网上搜索。
前半学期实验汇总
2012-2013学年第二学期前半学期实验内容汇总
第1次实验:
1-[实验1-1]----HelloWorld(sy1-1)
编程,实现文本框内容的变化。
具体要求如下:
(1)窗体的标题为“我的第一个VB程序”;
(2)单击“显示”按钮在文本框中显示“HelloWorld”;
(3)单击“清除”按钮清除文本框内容。
2-[实验1-2]----改变文本框背景颜色(sy1-2)
编程,实现文本框背景及文字颜色的变化。
具体要求如下:
(1)单击“红”按钮文本框背景变红色;
(2)单击“绿”按钮文本框背景变绿色;
(3)单击“蓝”色按钮文字颜色变蓝;
(4)单击“黄”色按钮文字颜色变黄。
3-[实验2-1]----改变背景颜色P35(sy2-1)
编程,设计一个“改变背景颜色”的程序,程序运行界面如图所示,具体要求如下:
(1)窗体的标题是“改变背景颜色”,固定边框;
(2)窗体中包含Command1、Command2和Command3三个命令按钮,标题分别为“红”、“绿”、“蓝”。
(3)运行时单击窗体上的“红”、“绿”、“蓝”三个按钮,可变换窗体的背景颜色。
4-[实验2-2]----改变字体P35(sy2-2)
编程,设计一个“字体改变”程序,程序运行界面如图所示,具体要求如下:
(1)窗体的标题是“字体改变”,包含一个标签Label1和6个命令按钮。
(2)6个命令按钮的标题分别为“字体变大”、“字体变小”、“加粗”、“标准”、“楷体”和“黑体”。
(3)标签框(Label1)的标题为“欢迎来到VB世界”。
(提示:
标签的标题是修改标签的Caption属性)
(4)单击“字体变大”按钮或“字体变小”按钮一次,标签框(Label1)字体变大或变小3个单位。
(5)单击“加粗”按钮时,字体加粗;单击“标准”按钮时,字体又由粗体变回标准(宋体、非粗、9号字大小)。
(6)单击“楷体”按钮时,字体变楷体;单击“黑体”按钮时,字体变黑体。
第2次实验:
1-【实例2-5】----窗体大小的变化和移动(SL2-5)P27
编程,实现窗体大小的变化和移动。
运行效果如图所示:
(1)5个命令按钮标题分别为“变大”、“变小”、“左移”、“上移”和“居中”
(2)单击“变大”按钮时,窗体的宽度和高度变为原来大小的两倍;
(3)单击“变小”按钮时,窗体宽度和高度变为原来大小的一半;
(4)单击“左移”和“上移”按钮时,窗体左移或上移100缇。
(5)不管窗体大小如何变化,“变大”按钮始终位于窗体左上角;“变小”按钮始终位于窗体右上角;“左移”按钮始终位于窗体左下角;“上移”按钮始终位于窗体右下角;“居中”按钮始终位于窗体的正中心。
2-【实验2-3】----改变位置(sy2-3)P36
编程,设计一个“改变位置”程序,程序运行界面如图所示:
(1)窗体的标题是“改变位置”,包含5个命令按钮Command1~Command5。
(2)Command1命令按钮的标题为“可移动按钮”,并且可以显示图形,及提示信息“可移动按钮”。
(3)Command2~Command5按钮标题分别为“上”、“下”、“左”、“右”。
(4)程序运行时单击“上”、“下”、“左”、“右”按钮可控制Command1的移动,每次移动100缇。
3-【实验2-4】----功能测试(sy2-4)P36
编程,设计一个“功能测试”程序,程序初始界面如下左图所示,具体要求如下:
(1)窗体的标题是“功能测试”,从上到下包含2个标签Label1和Label2、一个文本框Text1、2个命令按钮Command1和Command2。
(2)当用户在文本框中输入姓名,例如输入“张三”后,单击“确定”按钮,则程序的运行情况如下右图所示。
(3)单击“结束”按钮,结束程序运行。
4-【实验2-5】----测试Resize事件(sy2-5)
编程,设计一个“测试窗体的Resize事件”程序,程序初始界面如下左图所示,具体要求如下:
(1)窗体的标题为“测试窗体Resize事件”,包含1个文本框(Text1)、1个命令按钮(Command1)。
(2)用代码初始化文本框和命令按钮控件,要求:
文本框中显示“VisualBasic程序设计”,命令按钮标题为“结束”(提示:
可写在Form_Load事件中)。
(3)运行时,文本框及命令按钮能随窗体大小的调整而自动调整大小及位置,其中调整文本框使其:
Left=0,Top=0,宽度和高度都为窗体的一半;命令按钮:
始终位于窗体右下角位置。
(提示:
调整大小位置的代码写在Form_Resize事件中),程序运行结果如下右图所示。
(4)单击“结束”按钮,结束程序运行。
5-【实验2-6】----一个简单VB程序(sy2-6)补充
编程,设计一个“一个简单VB程序”程序,具体要求如下:
(1)添加二个标签、一个文本框、三个命令按钮(界面设计如下左图所示);
(2))Label1显示“你好!
请输入你的姓名”;
(3))初始运行界面如下中图如示;
(4))单击“确定”,显示如下右图,单击“继续”回到初始运行界面;
(5))单击“结束”退出程序运行。
第3次实验:
1-[实验3-1]设计一个加法器程序(sy3-1)
编程,设计一个“一个加法器程序”程序,具体要求如下:
(1)在窗体上从到下依次引入Text1、Text2两个文本框,两个文本框的对齐方式均为右对齐。
(2)在窗体上引入两个标签Label1、Label2。
将Label1用于显示“+”号,Label2用于显示两数的和。
(3)单击“=”按钮(Command1),将两个加数的和显示在下面一个标签(Label2)中。
(4)单击“清除”按钮(Command2),两个文本框及标签Label2的内容都被清空,同时第一个文本框获得焦点。
2-[实验3-3]设计一个简单计算器(sy3-3)
设计一个“简单计算器”。
程序运行效果如图所示。
具体要求如下:
(1)在窗体上从左到右依次引入Text1、Text2、Text3三个文本框。
(2)在窗体上引入1个标签Label1。
将Label1用于显示“=“号。
(3)在窗体上从左到右依次引入Command1、Command2、Command3、Command4。
单击按钮,分别实现加、减、乘、除功能,结果显示在Text3文本框中。
(4)Text3文本框锁定,不允许输入或修改其中的值。
3-[实验3-6]输出个、十、百位数(sy3-6)
编程,在文本框(Text1)中输入一个三位数,单击窗体后,在窗体中打印出该数字的个位数,十位数,百位数。
运行效果如图所示。
4-[实验3-7]设计一个收费程序(sy3-7)
设计一个商店的收费程序,使用者输入应付款和付款金额后,单击“找回”按钮,计算出找回多少钱,然后列出要找回的钱:
100元、10元、5元以及1元各多少张。
5-[实验3-4]日期函数的应用(sy3-4)
完成应用程序的设计,运行效果如图所示。
具体要求如下:
(1)按照下图所示,添加一个文本框和4个命令按钮。
(2)4个命令按钮,分别用于显示星期、年份、月份和日期。
(3)一个文本框,用于显示相应的信息。
6-[实验3-5]随机函数的应用(sy3-5)
编程,在文本框内输入任意字符串,例如“美丽的西子湖”,对字符串进行字体放大或缩小,下图是经过放大操作后的界面状态。
具体要求如下:
(1)按照下图所示在窗体上放置控件。
(2)单击“放大”按钮,将文本框中的字符串放大(字体放大),放大的倍数大小通过随机函数(Rnd)产生,范围在1~5倍内,倍数表达式为:
Int(Rnd*5+1)。
为了使每次运行时产生不同的放大倍数,程序初始时应执行RanDomize语句。
(3)同样,单击“缩小”按钮,进行缩小,缩小的倍数也通过上述方式产生。
(4)在做放大和缩小操作时,为了防止程序运行时错误(字体过大或过小),不应连续进行放大或缩小操作。
也就是在执行放大操作后,“放大”命令按钮应呈暗淡色(不可操作);同样在执行缩小操作后,“缩小”命令按钮应呈暗淡色,而“放大”命令按钮有效。
(5)单击“还原”按钮,字体大小恢复成初始状态,“放大”、“缩小”按钮也改变成可操作状态。
第4次实验:
1-[实验4-0]:
产生题目(sy4-0)
编一出题程序,单击产生题目按钮将在文本框内新增一道两位整数相加的题目,运行效果如下图所示。
2-[实验4-1]:
求平均成绩(sy4-1)
编写“求平均成绩”程序。
具体要求如下:
(1)通过输入对话框输入3个成绩,求平均成绩。
(2)单击窗体在窗体上输出结果,如图所示。
3-[实验4-2]:
收银(sy4-2)
编写“收银”程序。
具体要求如下:
(1)按照下图所示在窗体上放置控件。
(2)程序运行后,在前两个文本框中分别输入单价和购买数量,然后单击“计算”按钮,则在第3个文本框中输出应付金额。
(3)在第4个文本框中输入收款金额,单击“付款”按钮在第5个文本框中输出找回金额。
(4)文本框3和文本框5被锁定。
4-[实验4-3]:
温度转换(sy4-3)
编写“温度转换”程序。
具体要求如下:
(1)参照运行时界面完成界面设计,如图所示。
(2)在文本框中输入一摄氏(或华氏℉)温度,按“转换华氏”或“转换摄氏”按钮进行转换,结果显示在标签框2中。
(3)要求输入框只接受数字键(48~57)、负号(45)和小数点(46)。
对于非法键入用消息框进行提示并取消输入。
(4)提示:
摄氏华氏温度计算公式为:
华氏温度=9/5*摄氏温度+32。
5-[实验4-4]:
计算平均成绩(sy4-4)
新建一个工程,完成“计算平均成绩”应用程序的设计。
具体要求如下:
(1)按照下图所示在窗体上放置控件。
(2)在输入或修改单科成绩的同时计算平均分,即在"高数","英语"和"计算机"文本框内容发生改变时,就要立即重新计算平均分,并将计算结果在平均成绩文本框中显示。
(3)“平均成绩”文本框不允许编辑,即不能手工修改。
(4)各单科成绩框中只能输入数字,不能输入字母或汉字,否则不显示字母并发出错误提示音。
第5次实验:
1-[实验5-1]求最大数(sy5-1)P142
设计一个程序:
通过输入对话框输入3个数值,求其中的最大数并将其输出在窗体上,运行效果如下图所示。
2-[实验5-4]奇偶性(sy5-4)P143
编程,输入一个正整数,判断该数的奇偶性,结果显示在标签框2中,要求偶数蓝色显示,奇数红色显示。
3-[实验5-11]密码检验(sy5-11)补充
编程,当在文本框中输入密码“123456”,并按确定后,弹出对话框显示“欢迎光临!
”;如果输入的密码与“123456”不吻合,弹出对话框显示“密码不符,请再输入一遍!
”,同时清空文本框的内容,允许继续输入。
4-[实验5-12]求三角形面积(sy5-12)补充
编写计算三角形面积的程序,界面设计如图所示。
输入三边长度后,首先检验数据的有效性,对有效数据进行计算。
结果显示在第4个文本框中。
求面积公式:
其中p=(a+b+c)/2
5-[实验5-13]健康称(sy5-13)补充
“健康称”程序,界面设计如图所示。
具体要求如下:
(1)窗体的两个文本框,Text1用于输入身高,Text2用于输入体重。
(2)将文本框文字的对齐方式均设置为右对齐,最多接受3个字符。
(3)单击“健康状况”按钮(Command1),根据计算公式将相应的提示信息显示在标签Label5中。
计算公式为:
标准体重=身高-105;体重高于标准体重*1.1为偏胖,提示“偏胖,注意节食”;体重低于标准体重*0.9为偏瘦,提示“偏瘦,增加营养”;其他为正常,提示“正常,继续保持”。
6-[例5-16]密码校验(Li5-16)
设计一个简单的“密码验证”程序。
具体要求如下:
(1)在窗体上放置一个文本框、两个标签和一个命令按钮。
(2)密码输入到Text1中,以“*”为掩码,单击按钮进行密码验证。
(3)假设正确的密码为“123456”。
若密码输入正确,则Label2反馈信息“登陆成功”;若密码输错,则Label2提示当前输错了几次,一旦输入错误超过三次,则锁定Text1的内容和禁用Command1。
第6次实验:
1-[实验5-2]分段函数(sy5-2)P142
编制事件过程Command1_Click,执行该过程时调用Inputbox函数输入x,按下式计算y并以标签控件Label1显示结果,如图所示。
2-[实验5-3]分段函数(sy5-3)P142
编制Form_Click过程,在文本框1中输入x,按下式计算y并在文本框2中显示结果,如图所示。
3-[实验5-14]成绩等级(sy5-14)补充
编制Form_Click过程,在文本框中输入一学生成绩,在Label2中显示其等级。
评定办法是:
90~100分为“A”,80~89分为“B”,70~79分为“C”,60~69分为“D”,60分以下为“E”。
4-[实验5-8]求和(sy5-8)P143
编制Form_Click过程,求f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)的值。
5-[例5-25]水仙花数(Sl5-25)P126
编制Form_Click过程,显示出所有的水仙花数。
所谓水仙花数,是指一个3位数,其各位数字立方和等于该数字本身。
例如:
153是水仙花数,因为153=13+53+33。
6-输出图形(Sl5-26)P127
编制Form_Click过程,通过输入对话框输入行数,显示如下右图所示图形:
第7次实验:
1-[实验5-16]汽车跑动(sy5-16)补充
编写程序,实现以下功能
(1)单击“前进”按钮(Command1),Image1自左向右逐渐移动10缇,一直到窗体右边界。
同时“前进”按钮变“后退”按钮。
(2)单击“后退”按钮(Command2),Image1自右向左逐渐移动10缇,一直到窗体最左面。
同时“后退”按钮变“前进”按钮。
2-[实验5-7](sy5-7)P143
设s=1×2×3×…×n,求满足s≤4000条件时的最大n。
3-[实验5-9](sy5-9)P143
单击窗体,按照以下两种方式打印输出多项式1/1!
+3/2!
+5/3!
+…+(2n-1)/n!
的和。
(1)在窗体上添加1个文本框,在其中输入项数n,然后求前n项的和。
(2)在窗体上添加1个文本框,在其中输入最后一项的精度,如输入0.00001,表示当最后一项≤0.00001时不再进行累加。
4-[实验5-17]图形输出(sy5-17)补充
5-[实验5-16]九九乘法表(sy5-16)补充
编制Form_Click过程,在窗体上输出如下所示的九九乘法表。
6-[实验5-10]猴子吃桃子(sy5-10)P143
设计程序:
求解猴子吃桃子问题。
一只馋嘴猴子吃一堆桃子,每天吃当天桃子的一半,每次又忍不住多吃了一个,这样到了第x天只有一个桃子可吃了,求猴子最初共有多少桃子?
(例如,到了第7天)。
窗体界面参考右图:
第8次实验:
1-【实验5-19】求满足条件的数(sy5-19)补充
求1~1000之间所有能够被13整除的数。
(1)按每行10个输出满足条件的数和总个数。
(Command1_Click)
(2)只输出前面10个满足条件的数.(Form_Click)
PrivateSubCommand1_Click()
DimiAsInteger
Fori=13To1000Step13
Printi;
n=n+1
IfnMod10=0ThenPrint
Nexti
Print"n=";n
EndSub
PrivateSubForm_Click()
DimiAsInteger
Fori=13To1000Step13
Printi;
n=n+1
Ifn=10ThenExitFor
Nexti
Print"n=";n
EndSub
2-【实验5-20】求同构数(sy5-20)补充
编制Command1_Click过程,用以找出1—100之间所有的同构数。
所谓同构数是指一个数出现在它的平方数的右端,如25在25平方625的右端,则25为同构数。
利用数字转字符再取出右端字符的方法进行判断。
PrivateSubForm_Click()
DimiAsInteger
Dimx1AsString,x2AsString
Fori=1To100
x1=Trim(Str(i))
x2=Trim(Str(i*i))
IfRight(x2,Len(x1))=x1Then
Printi;"是同构数"
EndIf
Next
EndSub
3-【实验5-6】判断素数(sy5-6)P143
编制Form_Click过程,在窗体上输出100以内的所有素数,5个一行。
PrivateSubForm_Click()
DimnAsInteger,iAsInteger
Forn=2To100
k=Int(Sqr(n))
Fori=2Tok
IfnModi=0ThenExitFor
Nexti
Ifi>kThen
Form1.Printn;
m=m+1
IfmMod5=0ThenPrint
EndIf
Nextn
EndSub
4-【例5-30】硬币取法(Li5-30)P134
有1分、2分、5分硬币若干枚,从中取出20枚硬币使其总值为60分,求出取法的数量以及每一种取法的1分、2分、5分硬币个数。
运行效果如下图所示:
PrivateSubForm_Click()
Dimx%,y%,z%,m%,n%
Forx=0To20
Fory=0To20
Forz=0To20
m=x+2*y+5*z
Ifm=60Andx+y+z=20Then
Print"1分:
";x,"2分:
";y,"5分:
";z
n=n+1
EndIf
Nextz
Nexty
Nextx
Print"总共有:
";n;"种取法"
EndSub
5-【实验5-21】换零钞(sy5-21)补充
将一张面值为100元的人民币等值换成100张5元、1元和0.5元的零钞,要求每种零钞不少于1张,问有哪几种组合?
PrivateSubForm_Click()
Dimx%,y%,z%,n%
DimmAsSingle
Print"五元","一元","五角"
Forx=1To20
Fory=1To100
Forz=1To200
m=5*x+y+0.5*z
Ifm=100Andx+y+z=100Then
Printx,y,z
n=n+1
EndIf
Nextz
Nexty
Nextx
Print"总共有:
";n;"种取法"
EndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 学期 实验 汇总
![提示](https://static.bdocx.com/images/bang_tan.gif)