' 题目:窗体中有一个红色方框和一个计时器控件。程序运行时每隔半秒,方框的颜色交替变为黄色和红色(黄色值为 &HFFFF& ;红色值为 &HFF& );若单击鼠标右键,则停止变色;若单击鼠标左键,则方框左上角移到鼠标点击的位置处(如样张所示)。 Private Sub Form_Load() Timer1.Enabled = True '**********SPACE********** Timer1.Interval = 【 1 】 End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then '**********SPACE********** Shape1.Left = 【 2 】 Shape1.Top = Y End If If Button = 2 Then '**********SPACE********** Timer1.Enabled = 【 3 】 End If End Sub Private Sub Timer1_Timer() '**********SPACE********** If Shape1.BackColor = 【 4 】 Then Shape1.BackColor = &HFFFF& Else Shape1.BackColor = &HFF& End If End Sub