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

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

admin2018-10-15  70
问题 窗体上有1个Timerl计时器，1个Shapel形状控件，还有下面程序代码：
Dim flag As Boolean
Private Sub Form_Load()
    flag=True
    Timer1．Enabled=True
    Timer1．Interval=1 000
End Sub
Private Sub Timerl_Timer()
    If flag Then
    Shape 1．Height=Shape 1．Height*2
    Shapel．Width=Shapel．Width*2
    Else
    Shapel．Height=Shapel．Height*0．5
    Shape 1．Width=Shape 1．Width*0．5
    End If
  flag=Not flag
End Sub
    执行程序所产生的效果是
选项 A、Shapel的尺寸在缩小到原来一半和恢复原状这2种状态间切换，每秒切换一次
B、Shapel的尺寸在扩大到原来2倍和恢复原状这2种状态间切换，每秒切换一次
C、Shapel的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换，每秒切换一次
D、Shapel的尺寸会不断扩大
答案B
解析 在计时器事件中会判断窗体级变量flag的值，如果为真则形状尺寸扩大一倍，否则缩小到一半。由于第一次开始计时器事件的时候flag的值为True，所以首先会将形状扩大一倍，然后第二次计时器事件将形状恢复原状。
转载请注明原文地址:https://www.kaotiyun.com/show/0TFp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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