窗体上有1个Timerl计时器,1个Shapel形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Timer l_Timer( ) Private Sub Form_Load0 Ifflag Then f

admin2015-11-24  52

问题 窗体上有1个Timerl计时器,1个Shapel形状控件,还有下面程序代码:
Dim flag As Boolean Private Sub Timer l_Timer(     )
Private Sub Form_Load0 Ifflag Then
flag=TrueShapel.Height=Shapel.Height*2
Timerl.Enabled=TrueShapel.Width=Shapel.Width*2
Timerl.Interval=1000Else
End SubShapel.Hei

选项 A、Shapel的尺寸在缩小到原来一半和恢复原状这2种状态间切换,每秒切换一次
B、Shapel的尺寸在扩大到原来2倍和恢复原状这2种状态间切换,每秒切换一次
C、Shapel的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换,每秒切换一次
D、Shapel的尺寸会不断扩大

答案B

解析 在计时器事件中会判断窗体级变量flag的值,如果为真则形状尺寸扩大一倍,否则缩小到一半。由于第一次开始计时器事件的时候flag的值为True,所以首先会将形状扩大一倍,然后第二次计时器事件将形状恢复原状。
转载请注明原文地址:https://kaotiyun.com/show/mkLp777K
0

最新回复(0)