问答题
在名称为Form1的窗体上添加一个名称为Image1的图像框，有边框，并可以自动调整装入图片的大小以适应图像框的尺寸；再添加三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“红桃”、“黑桃”、“清除”。在考生文件夹下有两个图标文件，其名称分别为“Misc34.ico”和“Misc37.ico”。程序运行时，单击“黑桃”按钮，则在图像框中显示黑桃图案(Mist37.ico文件)；单击“红桃”按钮，则在图像框中显示红桃图案(Misc34.ico文件，如图所示)；单击“清除”按钮则清除图像框中的图案。请编写相应控件的Click事件过程，实现上述功能。
【正确答案】[操作步骤]
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表。
步骤2：打开代码编辑窗口，在指定位置编写如下代码。
Private Sub Command1_Click ()
Image1.Picture=LoadPicture (App.path& "/Misc 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：调试并运行程序，关闭程序后按题目要求存盘。
步骤1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表。
| 控件 | 图像框 | 命令按钮1 | 命令按钮2 | 命令按钮3 | |||||
| 属性 | Name | BorderStyle | Stretch | Name | Caption | Name | Caption | Name | Caption |
| 设置值 | Image1 | 1 | True | Command1 | 红桃 | Command2 | 黑桃 | Command3 | 清除 |
Private Sub Command1_Click ()
Image1.Picture=LoadPicture (App.path& "/Misc 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：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】[考点] 本题考点有：图像框的Name、Stretch、BorderStyle和Picture属性，LoadPicture()函数以及命令按钮的Name和Caption属性。
[解析] 通过图像框的Name、Stretch和BorderStyle属性设置图像框的名称、自动调整以及是否有边框。通过命令按钮的Name和Caption属性设置命令按钮的名称和标题。通过LoadPicture()函数实现图片的加载、转换和清除。
LoadPicture()函数的书写格式要正确，图片文件的路径也要用双引号标识正确。