操作题
2. 在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34.ico”和“Misc37.ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Misc37.ico文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34.ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】【操作步骤】
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
参考答案
Private Sub Command1_Click()
Image1.Picture =LoadPicture(App.path&"\Hisc 34.ico") '加载图片
End Sub
Private Sub Command2_Click()
Image1.Picture =LoadPicture(App.path&"\Misc37.ico")
End Sub
Private Sub Command3_Click()
Set Image1.Picture=Nothing '清除Image1中的图片
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】LoadPieture()函数的书写格式要正确，图片文件的路径也要用双引号标识正确。
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表。
| 控件 | 属性 | 设置值 | ||||||||||||||||||||||
| 图像框 | Name | Image1 | ||||||||||||||||||||||
| BorderStyle | 1 | |||||||||||||||||||||||
| Stretch | Ture | |||||||||||||||||||||||
| 命令按钮1 | Name | Command1 | ||||||||||||||||||||||
| Caption | 红桃 | |||||||||||||||||||||||
| 命令按钮2 | Name | Command2 | ||||||||||||||||||||||
| Caption | 黑桃 | |||||||||||||||||||||||
| 命令按钮3 | Name | Command3 | ||||||||||||||||||||||
| Caption | 清除 | |||||||||||||||||||||||
参考答案
Private Sub Command1_Click()
Image1.Picture =LoadPicture(App.path&"\Hisc 34.ico") '加载图片
End Sub
Private Sub Command2_Click()
Image1.Picture =LoadPicture(App.path&"\Misc37.ico")
End Sub
Private Sub Command3_Click()
Set Image1.Picture=Nothing '清除Image1中的图片
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】LoadPieture()函数的书写格式要正确，图片文件的路径也要用双引号标识正确。
【答案解析】[考点] 本题考点有：图像框的Name、Stretch、BorderStyle和Picture属性，LoadPicture()函数以及命令按钮的Name和Caption属性。
通过图像框的Name、Stretch和BorderStyle属性设置图像框的名称、自动调整以及是否有边框。通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。通过LoadPicture()函数实现图片的加载、转换和清除。
通过图像框的Name、Stretch和BorderStyle属性设置图像框的名称、自动调整以及是否有边框。通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。通过LoadPicture()函数实现图片的加载、转换和清除。