2. 计算机
  3. 窗体上有1个Timerl计时器，1个Shape1形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Form_Load() flag=True Timer1．Enab

窗体上有1个Timerl计时器，1个Shape1形状控件，还有下面程序代码： Dim flag As Boolean Private Sub Form_Load() flag=True Timer1．Enab

admin2015-08-28  74
问题 窗体上有1个Timerl计时器，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://www.kaotiyun.com/show/2ZQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)