Dim k As Single
Private Sub Command1_Click() ‘開始演示
Timer1.Enabled=_____________
End Sub
Private Sub Command2_Click() ‘停止
Timer1.Enabled=_____________
End Sub
Private Sub Form_Load()
ScaleWidth=100
ScaleHeight=100
End Sub
Private Sub Timer1_Timer()
k=k+0.05
x=50+30*Cos(k)
y=50+15*Sin(k)
Form1. ____________
FillStyle=_____________
FillColor=vbRed
Circle(50,50),6,vbRed
FillStyle=_____________
Circle(50,50),30,,,,0.5
FillStyle=0
FillColor=vbBlue
Circle(x,y),2,vbBlue
End Sub
橫線部分不知道該怎麽弄