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

admin2020-04-18  18

问题 在窗体上画一个Timer1计时器控件和一个Shape1形状控件,并编写如下程序(    )。
Private Sub Form_Load()
Timer1.Interval=1000
Timer1.Enabled=True
End Sub
Private Sub Timerl_Timer()
If Shape1.Shape=1Then
Shape1.Shape=3
Else
Shape1.Shape=1
End If
End Sub
运行程序,则看到的结果是(    )。

选项 A、交替显示正方形和圆形,每秒交替一次
B、交替显示矩形和椭圆形,每秒交替一次
C、显示正方形,每秒闪烁一次
D、显示椭圆形,每秒移动一次

答案A

解析 Interval属性用来设置计时器事件之间所间隔的毫秒数(ms),每隔1000毫秒即每隔1秒产生一个Timer事件。当Shape属性设置形状控件的形状。在Timet事件中,如果形状控件的形状为正方形(即Shape为1),形状控件形状变为圆形(即Shape为3);故选项A)正确,其他选项均错误。
转载请注明原文地址:https://kaotiyun.com/show/XiTp777K
0

最新回复(0)