Visual Basic程序设计教程第版实验答案DOC

《Visual Basic程序设计教程第版实验答案DOC》由会员分享，可在线阅读，更多相关《Visual Basic程序设计教程第版实验答案DOC（119页珍藏版）》请在文档大全上搜索。

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

2、欢迎学习Visual Basic”；在文本框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) 实验所用到的控件及属性设置见表2.1.1。 属 性 设 置控件名属 性Label

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

4、3.Caption = Text1.TextEnd Sub实验1-2模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及属性窗口的设置见表2.1.2，背景图形文件可以选择自己喜欢的，按钮上的图标可通过Windows搜索功能查找。以“学号-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代码应调整为，可实现文字移动方向的改变Sub MyMove()Label1.Move Label1.Left - 50, La

6、bel1.TopIf Label1.Left < 0 Then Label1.Left = Form1.WidthEnd SubSub MyMove()Label1.Move Label1.Left - 50, Label1.TopIf Label1.Left < 0 Then Label1.Left = Form1.WidthEnd SubPrivate Sub Command1_Click()Timer1.Interval = 200End SubPrivate Sub Command2_Click()Timer1.Interval = 0Call MyMoveEnd SubP

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

8、Text1.Text = Val(Text1.Text) + 1End SubPrivate Sub Form_Load()Text1.Text = ""End Sub实验1-4按照教学篇例2.2对窗体三个事件过程（Load、Click、DblClick）编程，在3个事件中装入不同的图片（自己选择）；在属性窗口练习鼠标指针改变：MousePointer（值为99，用户自定义）、MouseIcon为Key04.ico图标文件，练习窗体图标（Icon）、边框线类型（BorderStyle）、最大化按钮和最小化按钮的改变，运行观察其效果。以“学号-1-4”为项目名保存。提示：例题

9、中Form_Resize事件可以不考虑，Picture属性设置中注意图片文件有后缀名，运行测试前需要先保存项目名，保证图片文件和程序文件在同一个文件夹下，否则会出现图片找不到的错误提示。Private Sub Form_Click()Caption = "单击窗体"Picture = LoadPicture(App.Path + "p2.jpg")Print "欢迎使用VB"End SubPrivate Sub Form_DblClick()ClsCaption = "双击窗体"Picture = LoadPict

10、ure(App.Path + "p3.jpg")Print "结束使用VB"End SubPrivate Sub Form_Load()Caption = "装入窗体"Picture = LoadPicture(App.Path + "p1.jpg")Print "装入图片"End Sub实验1-5命令按钮、字号、内容和格式的复制练习，效果如下图所示。有关控件及属性参见下表。以“学号-1-5”为项目名保存。图2.1.3 实验1.5运行界面 属 性 设 置控件名属 性Form1Caption=&q

11、uot;实验1.5"Label1Caption="输入文本 复制文本"Text1Text="VB功能强大，但要下功夫学习才能学好"；MultiLine=True；ScrollBar=2Text2Text=""；MultiLine=TrueCommand1Caption="隶书25磅"Command2Caption="复制=>"要求：(1) Command1：使得Text1的字体和字号根据命令按钮显示的要求改变(2) Command2：要求将Text1选中的内容及其格式复制到Tex