一拳超人小说:用VB制作满天星动画

Dim Snow(1000, 2), Amounty As Integer
Private Sub Form_Load()
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
Snow(I, 1) = Snow(I, 1) + Snow(I, 2)
If Snow(I, 1) > Form1.Height Then
Snow(I, 1) = 0: Snow(I, 2) = 2 + (Rnd * 30)
Snow(I, 0) = Int(Rnd * Form1.Width)
End If
Circle (Snow(I, 0), Snow(I, 1)), 15 * Rnd, RGB(255, 255, 255)
Next I
Form1.Cls
Next LS
Loop
End
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Unload Me
End Sub
希望你可以给我加分
GOOD LUCK
用软件改变世界,用代码书写人生,用思想创造未来!

一楼的好像不行，没反应。

一个Timer

Private Sub Form_Load()
Me.BackColor = vbBlack
End Sub

Private Sub Timer1_Timer()
Randomize Timer
Cls
For i = 1 To 1000
If i Mod 2 = 0 Then
clr = vbWhite
ElseIf i Mod 3 = 0 Then
clr = vbYellow
ElseIf i Mod 5 = 0 Then
clor = vbRed
End If
Me.PSet (Rnd * Me.Width, Rnd * Me.Height), clr
Next
End Sub

看下