Dim Snow(1000, 2), Amounty As IntegerPrivate 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 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 = 65 + Coloury PSet (OldX, OldY), QBColor(0) PSet (Snow(I, 0), Snow(I, 1)), RGB(Coloury, Coloury, Coloury) Next I Next LS Loop End End Sub大家帮帮忙吧，请帮我分段解释一下这些代码所代表的意思，十万火急啊！我知道这不应该发到这里，但因为老来这个吧看关于QQ的新闻，所以对这里各位的亲们比较熟悉。总之帮帮忙吧，谢谢了。

编程?真的不懂...只好默默地顶~~~

@@不懂,进来灌水