高考问答九尾一个打五个:帮我写个报警彩灯程序
来源：百度文库 编辑：高考问答 时间：2024/04/29 03:42:26
Dim p As Boolean
Private Sub Form_Load()
p = 1
End Sub
Private Sub Timer1_Timer()
Shape1.BackColor = RGB(Switch(p, 255, Not p, 0), Switch(p, 0, Not p, 255), 0)
Shape1.BorderColor = RGB(Switch(p, 255, Not p, 0), Switch(p, 0, Not p, 255), 0)
Shape2.BorderColor = RGB(Switch(p, 0, Not p, 255), Switch(p, 255, Not p, 0), 0)
Shape2.BackColor = RGB(Switch(p, 0, Not p, 255), Switch(p, 255, Not p, 0), 0)
p = Not p
End Sub