窗体上有一个名称为Picturel的图片框和一个名称为Timer1的计时器控件,并有下面程序代码: Dim x%,V% Private Sub Form_Load() x=Picturel.Width*2 y=Picture

admin2016-08-24  28

问题 窗体上有一个名称为Picturel的图片框和一个名称为Timer1的计时器控件,并有下面程序代码:
    Dim x%,V%
    Private Sub Form_Load()
    x=Picturel.Width*2
    y=Picturel.Height*2
    Timer1.Enabled=True
    Timer1.Interval=100
    End Sub
    Private Sub Timer1 Timer()
    If Picturel.Width    Picturel.Width=Picturel.Width+3
    Picturel.Height=Picturel.Height+3
    End If
    End Sub
    程序运行后产生的效果是(    )。

选项 A、图片框尺寸不断变大,直到其高和宽都增加到原来的2倍为止
B、图片框尺寸不断变大,并一直增加下去
C、图片框尺寸不断变大,直到其高和宽都增加到原来的3倍为止
D、界面没有产生任何变化

答案A

解析 在所有程序之前定义了全局变量x和y,所以变量x和y的作用域为所有过程。在Form_Load事件过程中,对变量x和y进行了初始化,并启用了计时器控件,每隔100毫秒(0.1秒),触发一次计数器事件Tiimerl_Timer。在计时器事件中利用if语句判断图片的高度和宽度是否超过图像本身尺寸的2倍,若未超过,则将图片的高度和宽度分别增加3个twip单位。所以A选项正确。
转载请注明原文地址:https://kaotiyun.com/show/vYLp777K
0

最新回复(0)