1、必做题:在每道题正确无误后保存为结果文件(*.exe),以自己的姓名加学号后两位进行命名,然后提交作业)
在窗体上添加三个图片框,并给第一个图片框和第二个图片框在窗体设计阶段通过picture属性添加图片,且设置它们的autosize属性为true,第三个图片框visible属性设置为false.当单击窗体时,图片框1和图片框2中地图形进行交换。素材图片如下所示:

程序设计思路提示:在程序设计中交换两个变量的操作是十分普通操作,通常引入第三个变量进行交换,这里交换两个图片框的图形也是类似。在界面设计时添加第三个图片框就是承担了中间变量的作用。
窗体设计界面图如下

窗体运行图及代码提示如下:


2、附加题(选做题,请有能力的同学完成下面的任务)
(1)设计要求: 在标题为“图片自动放大”的窗体Form1上,添加一个图像框Image1,能自动改变大小以适应图片,并在其中加载图片(1.jpg);然后再添加两 个标题分别为“放大”和“还原”的命令按钮Command1和Command2;最 后添加一个计时器Timer1,事件间隔时间为1秒,计时器处于非激活状态。
素材图片:

界面设计如图所示:


(2)运行要求: 程序运行时,单击“放大”按钮,每隔1秒图片放大一倍;单击“还原”按 钮,图片恢复到原始尺寸,并停止放大。 程序运行如图所示:


程序代码提示如下:
Dim h%, w%
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Image1.Width = w
Image1.Height = h
End Sub
Private Sub Form_Load()
w = Image1.Width
h = Image1.Height
End Sub
Private Sub Timer1_Timer()
Image1.Width = Image1.Width * 2
Image1.Height = Image1.Height * 2
End Sub