VisualBasic程序设计教程第版实验答案

※声明：

1.实验所属课本原件为《Visual Basic程序设计教程（第4版）（□

主编龚沛曾□编者杨志强陆慰民谢步瀛）》；

2.实验答案代码采用红色字体突出；

3.仅提供课本前七个实验的代码，之后的实验上课考试均不涉及故

不作；

4.教学平台上机实验、课本篇后实验，两者题目操作略有差异，作

业以前者要求为准，故以下答案代码为前者代码，如对后者代码有所需求请私信；

5.本文为作者原创，复制转载请注明出处；

6.如果对代码有所疑问，或者略感繁琐想直接要已完成实验，请私

信；

7.浏览、复制、下载后请给作者一个合理的评价，感激不尽。实验1-1

编制简单的欢迎界面程序。

要求：在屏幕上显示“欢迎学习Visual Basic”；在文本框

Text1中输入姓名；单击命令按钮“你输入的姓名是”，在

Label3标签显示在文本框中输入的姓名。

“学号-1-1.frm”和“学号-1-1.vbp”文件名保存。以后每个实验项目的命名规则都是如此，即“学号-实验号-实验题目”“”和“”）

Private Sub Command1_Click()

Label3.Caption = Text1.Text

End Sub

实验1-2

模仿教学篇例1.1，将事件过程中的自上而下移动改为自右向左移动，同时考虑文字超出窗体边界的情况。各个控件及

End Sub

Sub MyMove()

Label1.Move Label1.Left - 50, Label1.Top

If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub

Private Sub Command1_Click()

Timer1.Interval = 200

End Sub

Private Sub Command2_Click()

Timer1.Interval = 0

Call MyMove

End Sub

Private Sub Form_Load()

Timer1.Interval = 0

End Sub

Private Sub Timer1_Timer()

Call MyMove

End Sub

实验1-3

“学号-1-3”为项目名保存。

图2.1.2 实验1.3运行界面

提示：

(1) 对窗体编写两个事件：Form_Load 事件中对文本框置初

值为空；Form_Click事件对鼠标单击文本框计数。

(2) 对鼠标单击文本框计数计算为：

Text1.Text=Val(Text1.Text)+1

Private Sub Form_click()

Text1.Text = Val(Text1.Text) + 1

End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

实验1-4

按照教学篇例2.2对窗体三个事件过程（Load、Click、

DblClick）编程，在3个事件中装入不同的图片（自己选择）；

在属性窗口练习鼠标指针改变：MousePointer（值为99，用户自定义）、MouseIcon为Key04.ico图标文件，练习窗体图标（Icon）、边框线类型（BorderStyle）、最大化按钮和最小化按钮的改变，运行观察其效果。以“学号-1-4”为项目名保存。

提示：

例题中Form_Resize事件可以不考虑，Picture属性设置中注意图片文件有后缀名，运行测试前需要先保存项目名，保证图片文件和程序文件在同一个文件夹下，否则会出现图片找不到的错误提示。

Private Sub Form_Click()

Caption = "单击窗体"

Picture = LoadPicture(App.Path + "\p2.jpg")

Print "欢迎使用VB"

End Sub

Private Sub Form_DblClick()

Cls

Caption = "双击窗体"

Picture = LoadPicture(App.Path + "\p3.jpg")

Print "结束使用VB"

End Sub

Private Sub Form_Load()

Caption = "装入窗体"

Picture = LoadPicture(App.Path + "\p1.jpg")

Print "装入图片"

End Sub

实验1-5

Text2.FontName=Text1.FontName实现

Private Sub Command1_Click()

Text1.FontName = "隶书"

Text1.FontSize = 25

End Sub

Private Sub Command2_Click()

Text2 = Text1.SelText

Text2.FontName = Text1.FontName

Text2.FontSize = Text1.FontSize

End Sub

实验1-6

图片缩小、还原的设置。

“学号-1-6”为项目名保存。

图2.1.4 实验1.6运行界面

要求：

（1）单击“缩小一半”按钮，图片纵、横均缩小一半。

（2）单击“还原”按钮，图片与初始装入时同大。

提示：为了实现还原效果，要做以下3件事。

（1）必须在事件过程外，即程序代码最上方声明窗体级变量：