'command1 command2 timer label1
Dim Y!, A!, X!, T!, X1, Y1
Private Sub Form_Load()
Form1.BackColor = QBColor(0)
Label1.ForeColor = QBColor(12)
Label1.BackColor = QBColor(0)
Label1.Caption = "神奇宇宙"
Command1.Caption = "运行"
Command2.Caption = "结束"
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Me.FillColor = RGB(255, 255, 0)
Me.FillStyle = 0
Me.Circle (3000, 2000), 150
End Sub
Private Sub Timer1_Timer()
A = 2200
Me.FillColor = RGB(0, 0, 0)
Me.ForeColor = RGB(0, 0, 0)
Me.Circle (X, Y), 80
Me.FillStyle = 1
Me.ForeColor = QBColor(14)
Me.Circle (3800, 2000), A, , , , 0.5
Me.FillStyle = 0
Me.FillColor = QBColor(14)
Me.ForeColor = QBColor(14)
T = T + 3.14159 / 40
X = A * Cos(T / 10) + 3800
Y = A * Sin(T / 10) / 2 + 2000
Me.Circle (X, Y), 80
A = 180
Me.FillColor = RGB(0, 0, 0)
Me.ForeColor = RGB(0, 0, 0)
Me.Circle (X1, Y1), 30
Me.FillStyle = 0
Me.FillColor = QBColor(15)
Me.ForeColor = QBColor(15)
T = T + 3.14159 / 40
X1 = A * Cos(T / 1) + X
Y1 = A * Sin(T / 1) + Y
Me.Circle (X1, Y1), 30
End Sub
Private Sub Command2_Click()
End
End Sub
Dim Y!, A!, X!, T!, X1, Y1
Private Sub Form_Load()
Form1.BackColor = QBColor(0)
Label1.ForeColor = QBColor(12)
Label1.BackColor = QBColor(0)
Label1.Caption = "神奇宇宙"
Command1.Caption = "运行"
Command2.Caption = "结束"
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
Me.FillColor = RGB(255, 255, 0)
Me.FillStyle = 0
Me.Circle (3000, 2000), 150
End Sub
Private Sub Timer1_Timer()
A = 2200
Me.FillColor = RGB(0, 0, 0)
Me.ForeColor = RGB(0, 0, 0)
Me.Circle (X, Y), 80
Me.FillStyle = 1
Me.ForeColor = QBColor(14)
Me.Circle (3800, 2000), A, , , , 0.5
Me.FillStyle = 0
Me.FillColor = QBColor(14)
Me.ForeColor = QBColor(14)
T = T + 3.14159 / 40
X = A * Cos(T / 10) + 3800
Y = A * Sin(T / 10) / 2 + 2000
Me.Circle (X, Y), 80
A = 180
Me.FillColor = RGB(0, 0, 0)
Me.ForeColor = RGB(0, 0, 0)
Me.Circle (X1, Y1), 30
Me.FillStyle = 0
Me.FillColor = QBColor(15)
Me.ForeColor = QBColor(15)
T = T + 3.14159 / 40
X1 = A * Cos(T / 1) + X
Y1 = A * Sin(T / 1) + Y
Me.Circle (X1, Y1), 30
End Sub
Private Sub Command2_Click()
End
End Sub
![](https://imgsa.baidu.com/%CE%DE%C1%C4%CB%A3%CB%A3%BF%E1/pic/item/69f73c45e4edd629cffca3ec.jpg)