Visual-Basic程序设计教程(第4版)实验答案

图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

word文档 可自由复制编辑

实验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 + \Print \欢迎使用VB\End Sub

Private Sub Form_DblClick() Cls

word文档 可自由复制编辑

Caption = \双击窗体\

Picture = LoadPicture(App.Path + \Print \结束使用VB\End Sub

Private Sub Form_Load() Caption = \装入窗体\

Picture = LoadPicture(App.Path + \Print \装入图片\End Sub

实验1-5

命令按钮、字号、内容和格式的复制练习，效果如下图所示。有关控件及属性参见下表。以“学号-1-5”为项目名保存。

word文档 可自由复制编辑

图2.1.3 实验1.5运行界面 表2.1.3 属 性 设 置 控件名 Form1 Label1 Text1

属 性

Caption=\实验1.5\

Caption=\输入文本 复制文本\

Text=\功能强大，但要下功夫学习才能学好\；MultiLine=True；ScrollBar=2

Text2

Text=\；MultiLine=True

Command1 Caption=\隶书25磅\Command2 Caption=\复制=>\要求：

(1) Command1：使得Text1的字体和字号根据命令按钮显示的要求改变

(2) Command2：要求将Text1选中的内容及其格式复制到Text2。选中的内容通过Text1的SelText属性获得 提示：

为使Text2文本框保持Text1中的字符格式，通过Text2.FontSize=Text1.FontSize和Text2.FontName=Text1.FontName实现

Private Sub Command1_Click() Text1.FontName = \隶书\

word文档 可自由复制编辑

Text1.FontSize = 25 End Sub

Private Sub Command2_Click() Text2 = Text1.SelText

Text2.FontName = Text1.FontName Text2.FontSize = Text1.FontSize End Sub

实验1-6

图片缩小、还原的设置。

窗体上放置一个Image图像控件和两个命令按钮。Image图像控件装入自己喜欢的图片，设置Stretch属性为True，使得图片随着图像控件的大小而变，如图2.1.4所示。以“学号-1-6”为项目名保存。

word文档 可自由复制编辑