窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码: Dim flagAs Boolean Private Sub Form_Load() flag=True Timer1.Enabled=True Time

admin2017-11-23  28

问题 窗体上有1个Timer1计时器,1个Shapel形状控件,还有下面程序代码:
Dim flagAs Boolean
Private Sub Form_Load()
    flag=True
    Timer1.Enabled=True
    Timer1.Interval=1000
End Sub
Private Sub Timer1_Timer()
    If flag Then
       Shape1.Height=Shape1.Height*2
       Shape1.Width=Shape1.Width*2
    Else
        Shape1.Height=Shape1.Height*0.5
        Shape1.Width=Shape1.Width*0.5
    End If
  flag=Not flag
End Sub
    执行程序所产生的效果是

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

答案B

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

最新回复(0)