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

实验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

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”为项目名保存。 图2.1.3 实验1.5运行界面 表2.1.3 属 性 设 置 控件名 Form1 Label1 属 性 Caption=\实验1.5\ Caption=\输入文本 复制文本\ Text1 Text=\功能强大，但要下功夫学习才能学好\；MultiLine=True；ScrollBar=2 Text2 Command1 Command2 要求： Text=\；MultiLine=True Caption=\隶书25磅\ 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 = \隶书\ 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）必须在事件过程外，即程序代码最上方声明窗体级变量： Dim h%,w% ‘用户输入的变量声明语句

（2）在Form1_Load事件中保存图像控件的初始值： w=Image1.Width

h=Image1.Height

（3）在Command2_Click事件中还原为初始值： Image1.Width=w Image1.Height=h

缩小一半Command1_Click事件请读者自行完成。 思考：若要设置图片放大效果，如何修改代码？ Dim h%, w%

Private Sub Command1_Click() Image1.Width = Image1.Width * 0.5 Image1.Height = Image1.Height * 0.5 End Sub

Private Sub Command2_Click() Image1.Width = w Image1.Height = h End Sub

Private Sub Form_Load()