VB实验指导例题.docVIP

PAGE / NUMPAGES 实验A VＢ环境和可视化编程基础 1． (１）运行界面 （2）参考代码: Priｖate Suｂ　Coｍｍanｄ1_Ｃlick（） ptiｏn = tｅxt1。Tｅxt Ｅnd Sｕb 2.模仿教材例1。1，将事件过程中自上而下移动改为自右向左移动，也要考虑文字出窗体边界的情况。 (1)运行界面 （2）参考代码: Privatｅ Sｕb　Ｃoｍｍanｄ1_Ｃlick（） Tiｍer１．Iｎｔerval = 0 Ｃall　ｍｙmｏｖe End　Sub Sub mｙmovｅ（) Laｂｅl1．Movｅ Laｂel1．Lｅfｔ - 20 If Labｅl１．Ｌeft ＝　0 Tｈen Labeｌ１．Lｅft = Forｍ１。Ｗidtｈ Ｅnd Suｂ Ｐrｉｖａte Sub Ｃommａnd2_Clicｋ（) Tｉmer1。Interval　= ２00 End　Sub Pｒｉvａte Sub Timer1＿Tiｍｅｒ（) Caｌl myｍoｖe Ｅｎd　Suｂ 3．编写一程序，在文本框中统计在该窗口上鼠标单击的次数。 (1）运行界面： （２）编写代码： Ｐｒivａtｅ　Sub　Foｒｍ_Click（） Ｔext1 =　Val（Text1）　+　１ Enｄ Sub Ｐｒivate Sub Foｒm＿Ｌoad（） Tｅxt１．Teｘｔ ＝ ” Eｎｄ　Ｓub 4．代码: Privaｔｅ Sub Ｆorｍ＿Clｉck（） ptｉｏn = ”鼠标单击＂ Forｍ１.Pｉｃtuｒe　＝ LoadPiｃtuｒｅ（”d：\1．jｐｇ) End　Sｕb Private　Sub Fｏｒm＿DｂｌClick() ｐtion =　”鼠标双击” Form1．Pｉctｕre = ＬoａｄPiｃtuｒe（”ｄ：\2．jpg＂） Ｅｎd Sub Prｉｖate　Ｓｕb Form＿Loａd() Ｆoｒｍ1．Ｐiｃture　= ＬoadPｉctuｒe（”d：\3。jpg） Ｅnd Ｓｕb ５．命令按钮、字号、内容和格式的复制练习 (1）运行界面 （２)参考代码: Privａtｅ Sub Commaｎd1_Clｉck() Text1.FｏntＮaｍe =　”黑体 Ｔexｔ１.FｏntSizｅ ＝ ２5 Eｎd　Sub Pｒiｖate Sub Commanｄ２＿Clｉck(） Text2．Text =　Text１.ＳelTｅｘt Text2。ＦoｎtNａme　= Ｔｅxｔ１.FontNａmｅ Ｔexｔ2．FontSｉze = Tｅxt1．FonｔSizｅ Tｅxt1.SeｔFocｕｓ Eｎd Sub 实验Ｂ　 顺序结构 编一个华氏温度与摄氏温度之间转换的程序,要求用按钮实现转换。既单击“华氏转摄氏”按钮，则将华氏温度转换为摄氏温度;同样,单击“摄氏转华氏”按钮，则将摄氏温度转换为华氏温度。 代码: Private Ｓub Ｃoｍmａnd1_Cｌｉck（) Dｉm f！， c！ f ＝　Val(Tｅxt１．Teｘｔ） c ＝ 5 /　9 * （f － ３2) Text2.Text = Ｆoｒmａt（c， ＂0．00”) Eｎｄ Suｂ Ｐriｖaｔe Sub　Coｍmaｎｄ2_Click（) Dim　ｆ！,　c！ ｃ = Ｖal（Ｔeｘt２．Ｔｅｘｔ） ｆ = 9 / 5 ＊　c +　32 Ｔext１。Tｅxt = Foｒmat(f, ＂0.00＂) Ｅnd Ｓub （1）运行界面 （2)参考代码 Priｖaｔe Ｓub Cｏｍmand1_Ｃｌicｋ（） r =　Text１。Text ｐｔion　＝ Format（3.１4　＊ r　＊ r,　＂．00） Tｅxｔ１。SetFoｃus Enｄ　Ｓub Priｖａte　Sｕb Command2＿Click（） r ＝ Val(Ｔext１。Teｘt) ｐtｉon = Format(3．１4 ＊ 2　＊　r， ”。00） Text１。ＳｅｔFocuｓ Ｅｎd Ｓub Privatｅ Sub Tｅxt1_KeyＰｒｅsｓ（ＫeｙＡｓcii Ａｓ Intｅgeｒ) If KeyAsciｉ　=　１3　Then If Not　ＩｓNumeｒｉc（Texｔ1)　Then MｓgBox ＂输入有误，请重输入＂ Tｅxｔ1。SeｔFoｃus Text1.ＳｅlSｔaｒt = 0 Text１.SｅlLenｇｔh　= Lｅn(Texｔ1．Ｔexｔ） End If End　If Enｄ　Sub Priｖate Sub Text1_LoｓtＦocus（) Ｉf　Nｏt ＩsＮumerｉc（Tｅｘｔ1) Then MsｇBox ”输入有非数字字符,请重新输入”， ，　2—2” Tｅxt1.SetFoｃuｓ Tｅxt1。S