loading晨曦制作
要求：程序中不得使用变量，每个事件过程中只能写一
条语句。
注意：存盘时必须存放在考生文件夹中，工程文件名为
“sit2.vbp”，窗体文件名为“sjt2.frm”。
解答：
Private Sub HScroll1_Scroll() Timer1.Interval = HScroll1.Value
End Sub
第 21 页 共 23
页
晨曦制作
Private Sub Timer1_Timer() Image1.Visible = Not Image1.Visible
End Sub
题目：在名为Form1的窗体上绘制两个图像框，名称分别为Pic1和Pic2，宽度和高度均为1500，通过属性窗口把图像文件tp1.jpg放入Pic1中，把图像文件tp2.jpg放入Pic2中；再绘制一个名为Cmd1的命令按钮，标题为\图片交换\，如图1-4所示。编写适当的事件过程，使得在运行时，如果单击窗体，则交换两个图像框中的图像。注意不允许使用第三
个图像框。
Private Sub Form_Click() Dim pic As Object Set pic = Image1.Picture Image1.Picture = Image2.Picture
Image2.Picture = pic
End Sub
第 22 页 共 23
页
晨曦制作
第 23 页 共 23
页