vb小程序vgc（vb小程序）

大家好，我是小新，我来为大家解答以上问题。vb小程序vgc，vb小程序很多人还不知道，现在让我们一起来看看吧！

Private WithEvents Timer1 As Timer

Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#

Private Sub Form_Load()

Me.Width = 4500: Me.Height = 4500

Me.Move (Screen.Width - Me.Width) 2, (Screen.Height - Me.Height) 2

Me.AutoRedraw = True

Me.Caption = "CBM666的万花筒"

Set Timer1 = Controls.Add("vb.timer", "Timer1")

Timer1.Interval = 10

End Sub

Private Sub Timer1_Timer()

Randomize

r = 340 * Rnd

If r <> 0 Then

r1 = 500

s = r * Rnd

b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)

For t = 1 To 10000

a1 = t * 3.1415926 / 180

a2 = (r1 / r) * a1

xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4

yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4

Me.PSet (xb, yb), b

Next t

End If

End Sub

本文到此讲解完毕了，希望对大家有帮助。