在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序( )。 Private Sub Form_Load( ) Timer1.Interva1=1000 Timer1.Enab

admin2020-05-11  22

问题 在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序(        )。
    Private Sub Form_Load(  )
       Timer1.Interva1=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/I7Tp777K
0

最新回复(0)