单选题窗体上有1个Timer1计时器，1个Shapel形状控件，还有下面程序代码：Dim flagAs BooleanPrivate Sub Form_Load() flag=True Timer1．Enabled=True Timer1．Interval=1000End SubPrivate Sub Timer1_Timer() If flag Then Shape1．Height=Shape1．Height*2 Shape1．Width=Shape1．Width*2 Else Shape1．Height=Shape1．Height*0．5 Shape1．Width=Shape1．Width*0．5 End If flag=Not flagEnd Sub 执行程序所产生的效果是

A、 Shape1的尺寸在缩小到原来一半和恢复原状这2种状态间切换，每秒切换一次
B、 Shape1的尺寸在扩大到原来2倍和恢复原状这2种状态间切换，每秒切换一次
C、 Shape1的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换，每秒切换一次
D、 Shape1的尺寸会不断扩大

【正确答案】 B

【答案解析】解析：在计时器事件中会判断窗体级变量nag的值，如果为真则形状尺寸扩大一倍，否则缩小到一半。由于第一次开始计时器事件的时候nag的值为True，所以首先会将形状扩大一倍，然后第二次计时器事件将形状恢复原状。