血淋淋的vb解决思路

血淋淋的vb
新建窗体，复制粘贴如下代码，F5：

VB code

Dim blood(1000, 2), Amounty As IntegerPrivate Sub Form_Load()Me.Width = Screen.Width - Me.LeftMe.BackColor = vbWhiteMe.DrawWidth = 3Form1.ShowDoEventsRandomizeAmounty = 325For J = 1 To Amountyblood(J, 0) = Int(Rnd * Form1.Width)blood(J, 1) = Int(Rnd * Form1.Height)blood(J, 2) = 10 + (Rnd * 20)Next JDo While Not (DoEvents = 0)For LS = 1 To 10For I = 1 To AmountyOldX = blood(I, 0): OldY = blood(I, 1)blood(I, 1) = blood(I, 1) + blood(I, 2)If blood(I, 1) > Form1.Height Thenblood(I, 1) = 0: blood(I, 2) = 5 + (Rnd * 30)blood(I, 0) = Int(Rnd * Form1.Width)OldX = 0: OldY = 0End IfColoury = 8 * (blood(I, 2) - 10): Coloury = 60 + ColouryPSet (OldX, OldY), QBColor(4)PSet (blood(I, 0), blood(I, 1)), RGB(Coloury, Coloury, Coloury)Next INext LSMe.WindowState = 2LoopEndEnd Sub

[解决办法]
我果然很无聊
[解决办法]

探讨

新建窗体，复制粘贴如下代码，F5：
VB code
Dim blood(1000, 2), Amounty As Integer
Private Sub Form_Load()
Me.Width = Screen.Width - Me.Left
Me.BackColor = vbWhite
Me.DrawWidth = 3
Form1.Show
DoEvents
Randomize
Amoun……

[解决办法]
果然血流如注
[解决办法]



[解决办法]
流血流着流着就下雪了，这雪是六月下的吗？
[解决办法]
下回拍恐怖片找你……
[解决办法]

[解决办法]

[解决办法]
老大，我服了YOU!
[解决办法]
好恐怖啊……
[解决办法]

探讨

其实，大家按照下面的简单修改下就是一副完美的风花雪夜景了。
Me.BackColor = vbWhite 改为 Me.BackColor = 0
PSet (OldX, OldY), QBColor(4) 改为 PSet (OldX, OldY), QBColor(0)

[解决办法]
我很蛋疼啊, 等了10分钟,总算整个屏幕没有白线了.
[解决办法]

探讨

其实，大家按照下面的简单修改下就是一副完美的风花雪夜景了。
Me.BackColor = vbWhite 改为 Me.BackColor = 0
PSet (OldX, OldY), QBColor(4) 改为 PSet (OldX, OldY), QBColor(0)

[解决办法]
LZ 厉害^
[解决办法]
vb卸载了~~
[解决办法]
确实很无聊 ........我也是.....
[解决办法]
喜庆一点啥
[解决办法]
不要那么血淋淋的好吧
[解决办法]

[解决办法]

探讨

确实很无聊 ........我也是.....

------解决方案--------------------

good
[解决办法]
為什麼要這樣做呢?有什麼現實意義?