【单选题】窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码:Dim flag As BooleanPrivate Sub Form_Load() flag = True Timer1.Enabled = True Timer1.Interval = 1000End SubPrivate Sub Timer1_Timer() If flag Then Shape1.Height = ...
【单选题】窗体上有1个Timer1计时器,1个Shape1形状控件,还有下面程序代码: Dim flag As Boolean Private Sub Form_Load() flag = True Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() If flag Then Shape1.Heigh...