vb旋转木马代码

Const pi = 3.14159265

Dim n As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Dim i As Integer, j As Integer, k As Integer

i = 1000 * Cos(n * pi / 180) + 2000