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

admin2015-08-28  32

问题 窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:
    Dim flag As 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

解析 Form_Load 过程中设定timer事件定时触发,定时时间为1秒;在Timer1_Timer过程中,Shape1形状的尺寸在扩大到原来2倍和恢复原状,然后退出。下一次timer事件触发时继续这个过程。因此,选B)。
转载请注明原文地址:https://jikaoti.com/ti/MkJ0FFFM
0

最新回复(0)