问题 问答题

在考生文件夹下有工程文件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 Then

C If ImageA.Height<CE00 Or ImageA.Width<CE00 Then

D ImageA.Height=ImageA.Height+C00

E ImageA.Width=ImageA.Width+C00

F End If

G End If

H If Button=B Then

I If ImageA.Height>E00 Or ImageA.Width>E00 Then

A0 ImageA.Height=ImageA.Height-C00

AA ImageA.Width=ImageA.Width-C00

AB End If

AC End If

AD End Sub

第三步:填写完毕,调试成功后,以原文件名保存。

解析:

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

选择题
单项选择题