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

admin2020-04-18  17

问题 在窗体上画一个Timerl计时器控件和一个Shapel形状控件,并编写如下程序(    )。
    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/zwTp777K
0

最新回复(0)