下雪代码

Dim Snow(1000, 2), Amounty As Integer

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

Unload Me

End Sub

Private Sub Form_Load()

Form1.BackColor = vbBlack

Form1.BorderStyle = 0

Form1.WindowState = 2

Form1.Show

DoEvents

Randomize

Amounty = 325

For j = 1 To Amounty

Snow(j, 0) = Int(Rnd * Form1.Width)

Snow(j, 1) = Int(Rnd * Form1.Height)

Snow(j, 2) = 10 + (Rnd * 20)

Next j

Do While Not (DoEvents = 0)

For LS = 1 To 10

For i = 1 To Amounty

OldX = Snow(i, 0): OldY = Snow(i, 1)

Snow(i, 1) = Snow(i, 1) + Snow(i, 2)

If Snow(i, 1) > Form1.Height Then

Snow(i, 1) = 0: Snow(i, 2) = 5 + (Rnd * 30)

Snow(i, 0) = Int(Rnd * Form1.Width)

OldX = 0: OldY = 0

End If

Coloury = 8 * (Snow(i, 2) - 10): Coloury = 60 + Coloury

PSet (OldX, OldY), QBColor(0)

PSet (Snow(i, 0), Snow(i, 1)), RGB(Coloury, Coloury, Coloury)

Next i

Next LS

Loop

End

本文来源：https://www.wddqw.com/doc/a0a7aafc3169a4517623a3d5.html