窗体上有1个Timer1计时器，1个Shape1形状控件，还有下面程序代码： Dim flag As Boolean Private Su

b Form_Load() flag = True Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private 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 flag End Sub 执行程序所产生的效果是_______________。

A、Shape1形状的尺寸在缩小到原来一半和恢复原状这2种状态间切换，每秒切换一次

B、Shape1形状的尺寸在扩大到原来2倍和恢复原状这2种状态间切换，每秒切换一次

C、Shape1形状的尺寸在缩小到原来一半和扩大到原来2倍这2种状态间切换，每秒切换一次

D、Shape1形状的尺寸会不断扩大