单选题在窗体上画一个Timer1计时器控件和一个Shape1形状控件，并编写如下程序Private Sub Form_Load()Timer1．Interval=1000Timer1．Enabled=TmeEnd SubPrivate Sub Timer1_Timer()If Shape1．Shape=1 ThenShape1．Shape=3ElseShape1．Shape=1End IfEnd Sub运行程序，则看到的结果是

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

【正确答案】 A

【答案解析】解析：Interval属性用来设置计时器事件之间所间隔的毫秒数(ms)，每隔1000毫秒即每隔1秒产生一个Timer事件。当Shape属性设置形状控件的形状。在Timer事件中，如果形状控件的形状为正方形(即Shape为1)，形状控件形状变为圆形(即Shape为3)；故选项A正确，其他选项均错误。