2011.10.29万花规代码——笨巧果

Private Sub CommandButton1_Click()
Dim x(100000), y(100000)
Randomize
Xc = 330
Yc = 260
R1 = 200
r = Int(R1 * Rnd) + 1
s = Int(r * Rnd) + 1
a = Int(Rnd * 256)
b = Int(Rnd * 256)
c = Int(Rnd * 256)
ActivePresentation.SlideShowWindow.View.PointerColor = RGB(a, b, c)
  For t = 0 To 30000
    a1 = t * 3.14159265358979 / 180
    a2 = (R1 / r) * a1
    x(t) = Xc + (-(R1 - r) * Cos(a1) - s * Cos(a2 - a1))
    y(t) = Yc + ((R1 - r) * Sin(a1) - s * Sin(a2 - a1))
    If t > 0 Then ActivePresentation.SlideShowWindow.View.DrawLine x(t), y(t), x(t - 1), y(t - 1)
  Next t
End Sub
Private Sub CommandButton2_Click()
ActivePresentation.SlideShowWindow.View.EraseDrawing
End Sub