《Visual-Basic程序设计教程(第4版)实验答案》由会员分享，可在线阅读，更多相关《Visual-Basic程序设计教程(第4版)实验答案（129页珍藏版）》请在金锄头文库上搜索。
1、声明:1. 实验所属课本原件为Viual Bac程序设计教程（第4版) （主编 龚沛曾 编者杨志强 陆慰民 谢步瀛） ;2. 实验答案代码采用红色字体突出 ；3. 仅提供课本前七个实验的代码,之后的实验上课考试均不波及故不作 ;4. 教学平台上机实验、课本篇后实验，两者题目操作略有差别，作业此前者规定为准，故如下答案代码为前者代码，如对后者代码有所需求请私信 ；5. 本文为作者原创，复制转载请注明出处 ;6. 如果对代码有所疑问，或者略感繁琐想直接要已完毕实验,请私信 ；7. 浏览、复制、下载后请给作者一种合理的评价，感谢不尽 。实验-编制简朴的欢迎界面程序。 规定：在屏幕上显示“欢迎学习Vs
2、uBaic”；在文本框et中输入姓名;单击命令按钮“你输入的姓名是”,在Labl3标签显示在文本框中输入的姓名。 程序运营效果如图.1.所示。程序以“学号-1.frm”和“学号1-1.vbp”文献名保存。后来每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”。(如某同窗的学号为A4400,所完毕的是实验2的第3题，那么程序文献名为“A10414001-3.rm”和“A144001-2-3.b”） 图2.1.1 实验.1运营界面提示: (1） 实验所用到的控件及属性设立见表2.1.1。表2.11属 性 设 置控件名属 性Lb1Capon=欢迎学习Vsual Baic；Fn属性：字号为二
3、号,字体为隶书,Aligmen2(居中）Lbelti=请输入你的姓名；ont属性:字体为楷体,有下划线Label3Caption，BrdrSte1Txt1Textomand1ption=你输入的姓名是(2) “欢迎学习Viual Basic”要在两行显示,只要将Lae1控件的宽度缩小某些。Privae bommand_ic()Lbel3aption = et1.tndSb实验1-2模仿教学篇例11，将事件过程中的自上而下移动改为自右向左移动,同步考虑文字超过窗体边界的状况。各个控件及属性窗口的设立见表.1.2,背景图形文献可以选择自己喜欢的，按钮上的图标可通过Windo搜索功能查找。以“学号-
4、2”为项目名保存。表2.1.2 属 性 设 置控件名属 性ForCaptio实验1.2;ctu：选择自己喜欢的图片Label1aption我开始学习程序设计;FotSie=3；akStl=0CmmandCai;Stle1；Picure=clok02.co；oolTipe自动CadCaptn=；Sty；Pitue=key0.ico；ToolTipText=手动Time1Interval=注:由于印刷错误，例题11中两个命令按钮的图形与事件过程代码不一致，需要调节。提示: 自定义事件过程Myve代码应调节为,可实现文字移动方向的变化ub MyMove()Labe1.Moveabel1.t - 50
5、, abeTopf Labl1.Le 规定：(1) ommand1:使得Text的字体和字号根据命令按钮显示的规定变化(2） ommnd2:规定将Tex1选中的内容及其格式复制到Text2。选中的内容通过Tx1的SelText属性获得提示:为使ext2文本框保持ext1中的字符格式，通过Tet2.FotSize=Tet1.FontSize和ext2.ontNameText.ntNme实现Prive Sub Comand1_Cli(）ext1.FontNa = 隶书ext1.FontSie = 25En uriat Sub Cmmad2_lic()ext2= Text1.elTextext2.F
6、ontNam = Txt1.FontaeT2.FontSize= Txt1.otE Sub实验-6图片缩小、还原的设立。窗体上放置一种Image图像控件和两个命令按钮。mge图像控件装入自己喜欢的图片，设立Seth属性为Tre,使得图片随着图像控件的大小而变,如图.1.4所示。以“学号-6”为项目名保存。图2.14 实验6运营界面规定:()单击“缩小一半”按钮,图片纵、横均缩小一半。（2)单击“还原”按钮，图片与初始装入时同大。提示:为了实现还原效果，要做如下3件事。（1)必须在事件过程外，即程序代码最上方声明窗体级变量:im h%，w% 顾客输入的变量声明语句(2)在Form_oa事件中保存
7、图像控件的初始值:w=Img.Wihh=mag1Hght（3）在Comad2Clik事件中还原为初始值：mage1.WthwImage1.Heighh缩小一半Command1_Cick事件请读者自行完毕。思考:若要设立图片放大效果,如何修改代码？Di %, w%Prvae Sub Comman1_Click(）ImagWidt = mae1.Widt .5ImageHeigt= mage1.Height*0.5n ubPrivate Su Command2_Cli()mage1Widt = Ima.eigthSbPrivaeSForm_Lod()w = Imag1Wthh = Imag1Heg
8、htEnd ub实验21随机生成个正整数，其中一种位数，1个2位数，1个3位数，计算它们的平均值,保存两位小数，运营界面如图2.1所示。图2.1实验.运营界面提示:(1）随机数生成某范畴内的正整数公式为Int(nd范畴基数)其中范畴=数的上限-下限+1，基数=数的下限。例如,要生成2位数，语句为nt(Rd*(910+1)+10)=In(Rn90+10)（2)保存两位小数，运用Fort函数,形式为orma（要显示的数值, 0.00 ）。Privat Sub Commandlck()xt1.Text Int（d 9 1）Te2.ext= Int(Rn * + 1)ex3.Text= Int(Rnd + 100)End SubPivte ubComand_Ci（）ext.Tx = orat(al(Tex1.Text) + Val(Text.Text)+Vl(Txt3.Tet) / 3, 000)End SubPrivte SubCmand_Clik()ext1.ex = Text2.Tet ex3.Text = Tex
