单选题 窗体上有一个名称为Shape1并显示为圆的形状控件(其Width和Height属性值相等)，一个名称为Timer1的计时器，并有下面程序代码：Dim r As Single，flag As Integer Private Sub Timer1_Timer()Private Sub Form_Load() If flag=0 Thenr=Shape1．Width Shape1．Width=Shape1．Width-10Timer1．Enabled=True If Shape1．Width＜=100 ThenTimer1．Interval=500 flag=1End Sub End IfElseShape1．Width=Shape1．Width+10If Shape1．Width＞=r Thenflag=0End IfEnd IfEnd Sub运行程序后产生的结果是
【正确答案】 A
【答案解析】解析：本题在计时器的Timer事件中，如果flag为0，让圆的宽度逐渐减小，一直到100以下，将flag置为1；如果nag为1，让圆的宽度逐渐增大，一直到大于原来的宽度r则将flag置为0；则圆逐渐缩小，再逐渐增大，然后再逐渐缩小，依此往复。