2. 计算机
  3. 在窗体上画一个Timer1计时器控件和一个Shape1形状控件，并编写如下程序 Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Pri

在窗体上画一个Timer1计时器控件和一个Shape1形状控件，并编写如下程序 Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub Pri

admin2020-04-18  37
问题 在窗体上画一个Timer1计时器控件和一个Shape1形状控件，并编写如下程序
Private Sub Form_Load()
    Timer1.Interval = 1000
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    If Shape1.Shape = 1 Then
        Shape1.Shape = 3
    Else
        Shape1.Shape = 1
    End If
End Sub
运行程序，则看到的结果是
选项 A、交替显示正方形和圆形，每秒交替一次
B、交替显示矩形和椭圆形，每秒交替一次
C、显示正方形，每秒闪烁一次
D、显示椭圆形，每秒移动一次
答案A
解析 Interval属性用来设置计时器事件之间所间隔的毫秒数（ms），每隔1000毫秒即每隔1秒产生一个Timer事件。当Shape属性设置形状控件的形状。在Timer事件中，如果形状控件的形状为正方形（即Shape为1），形状控件形状变为圆形（即Shape为3）；故选项A正确，其他选项均错误。
转载请注明原文地址:https://kaotiyun.com/show/XfTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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