[问答题] 在考生文件夹下有工程文件djks030.vbp及窗体文件djks030.frm。根据下文的描述，编写相应的程序。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名为Image1的

[问答题] 在考生文件夹下有工程文件djks030.vbp及窗体文件djks030.frm。根据下文的描述，编写相应的程序。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有一个名为Image1的图像框，要求程序运行后，每用鼠标左键点击图像框一次，则图像框的高与宽都增加300；每用鼠标右键点击图像框一次，图像框的高与宽都减小300。窗体的高与宽为3500，图像框最大化时不允许超过窗体的大小，最小化时图像框的高与宽不小于500(高与宽的单位为twip)。程序运行时的窗口界面如下图所示。

参考答案：

第一步：启动VB，打开考生文件夹下的工程文件sjtC.vbp。第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：A Private Sub ImageA_MouseUp(Button As Integer, Shift As Integer, X AsSingle，Y As Single)B If Button=A ThenC If ImageA.Height＜CE00 Or ImageA.Width＜CE00 ThenD ImageA.Height=ImageA.Height+C00E ImageA.Width=ImageA.Width+C00F End IfG End IfH If Button=B ThenI If ImageA.Height＞E00 Or ImageA.Width＞E00 ThenA0 ImageA.Height=ImageA.Height-C00AA ImageA.Width=ImageA.Width-C00AB End IfAC End IfAD End Sub第三步：填写完毕，调试成功后，以原文件名保存。

问题解析:

根据题意，本题可以使用MouseUp事件也可以使用MouseDown事件。“Button=1”表示按下鼠标左键，“Buttor=2”表示按下鼠标右键。“Image1.Height＜3500 Or Image1.Width＜3500”表示条件Image1.Height＜3500与条件Image1.Width＜3500只要任一为True时就执行Then后面的语句。下面的程序代码与此类似。