visual-basic程序设计教程(第4版)实验答案[2]

《visual-basic程序设计教程(第4版)实验答案[2]》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、※声明：1.实验所属课本原件为《VisualBasic程序设计教程（第4版）（□主编龚沛曾□编者杨志强陆慰民谢步瀛）》；2.实验答案代码采用红色字体突出；3.仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故不作；4.教学平台上机实验、课本篇后实验，两者题目操作略有差异，作业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信；5.本文为作者原创，复制转载请注明出处；6.如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私信；7.浏览、复制、下载后请给作者一个合理的评价，感激不尽。实验1-1编制简单的欢迎界面程序。要

2、求：在屏幕上显示“欢迎学习VisualBasic”；在文本框Text1中输入姓名；单击命令按钮“你输入的姓名是”，在Label3标签显示在文本框中输入的姓名。程序运行效果如图2.1.1所示。程序以“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”。（如某同学的学号为A10414001，所完成的是实验2的第3题，那么程序文件名为“A10414001-2-3.frm”和“A10414001-2-3.vbp”）　图2.1.1实验1.1运行界面提示：(1)实验所用到的控件及属

3、性设置见表2.1.1。表2.1.1属性设置控件名属性Label1Caption="欢迎学习VisualBasic"；Font属性：字号为二号，字体为隶书，Aligment=2(居中)Label2Caption="请输入你的姓名"；Font属性：字体为楷体，有下划线Label3Caption=""，BorderStyle=1Text1Text=""Command1Caption="你输入的姓名是"(2)“欢迎学习VisualBasic”要在两行显示，只要将Label1控件的宽度缩小一些。PrivateSubCommand1_Click()Lab

4、el3.Caption=Text1.TextEndSub实验1-2模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表2.1.2，背景图形文件可以选择自己喜欢的，按钮上的图标可通过Windows搜索功能查找。以“学号-1-2”为项目名保存。表2.1.2属性设置控件名属性Form1Caption="实验1.2"；Picture：选择自己喜欢的图片Label1Caption="我开始学习程序设计"；FontSize=36；BackStyle=0Command1Caption=

5、""；Style=1；Picture="clock02.ico"；ToolTipText＝"自动"Command2Caption=""；Style=1；Picture="key04.ico"；ToolTipText＝"手动"Timer1Interval=0注：因为印刷错误，例题1.1中两个命令按钮的图形与事件过程代码不一致，需要调整。提示：自定义事件过程MyMove代码应调整为，可实现文字移动方向的改变SubMyMove()Label1.MoveLabel1.Left-50,Label1.TopIfLabel1.Left<0ThenLabel

6、1.Left=Form1.WidthEndSubSubMyMove()Label1.MoveLabel1.Left-50,Label1.TopIfLabel1.Left<0ThenLabel1.Left=Form1.WidthEndSubPrivateSubCommand1_Click()Timer1.Interval=200EndSubPrivateSubCommand2_Click()Timer1.Interval=0CallMyMoveEndSubPrivateSubForm_Load()Timer1.Interval=0EndSubP

7、rivateSubTimer1_Timer()CallMyMoveEndSub实验1-3编一个程序，在文本框中统计在该窗口上鼠标单击的次数，效果如图2.1.2所示。以“学号-1-3”为项目名保存。图2.1.2实验1.3运行界面提示：(1)对窗体编写两个事件：Form_Load事件中对文本框置初值为空；Form_Click事件对鼠标单击文本框计数。(2)对鼠标单击文本框计数计算为：Text1.Text=Val(Text1.Text)+1PrivateSubForm_click()Text1.Text=Val(Text1.Text)+1EndSu

8、bPrivateSubForm_Load()Text1.Text=""EndSub实验1-4按照教学篇例2.2对窗体三个事件过程（Load、Click、DblCli