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

admin2020-02-27  25

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

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

答案A

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

最新回复(0)