2. 计算机
  3. 窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码： Dim r As Single, flag As Integer Private Sub Form_Load()

窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码： Dim r As Single, flag As Integer Private Sub Form_Load()

admin2015-08-28  25
问题 窗体上有一个名称为Shape1并显示为圆的形状控件（其Width和Height属性值相等），一个名称为Timer1的计时器，并有下面程序代码：
Dim r As Single, flag As Integer
Private Sub Form_Load()
    r = Shape1.Width
    Timer1.Enabled = True
    Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
    If flag = 0 Then
        Shape1.Width = Shape1.Width - 10
        If Shape1.Width <= 100 Then
            flag = 1
        End If
    Else
        Shape1.Width = Shape1.Width + 10
        If Shape1.Width >= r Then
            flag = 0
        End If
    End If
End Sub
运行程序后产生的结果是
选项 A、圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复
B、圆一直在缩小
C、圆每隔0.5秒向右移动一次
D、圆每隔1秒向下移动一次
答案A
解析 Form_Load 过程中设定timer事件定时触发；在Timer1_Timer过程中，圆圈先变小后变大，然后退出。下一次timer事件触发时继续这个过程。因此，选A）。
转载请注明原文地址:https://kaotiyun.com/show/HzLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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