帮我解释一下这个 VB 代码？和那些相关函数，谢谢！

来源：百度知道编辑：UC知道时间：2024/07/06 21:01:52

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

这样的长代码还是不要问的好，没有人会有时间给你写一大堆东西，然后你还不甚了了，最好是能问到具体的地方，如果你是真的一点基础都没有的话，最好还是学习一下，这样问是很累的。

设置计时器控件

帮我解释一下这个代码? 请大家帮我解释一下这段代码（VB）那位高手帮我解释一下这些VB代码啊. 帮解释一下VB中的排序代码帮我解释一下这个VB循环条件的意思麻烦帮我解释一下这个代码的意思谁帮我逐句解释一下这个JAVA的代码？谢谢谁能帮我解释一下这个代码大家帮我改一下这个VB代码帮我解释一下ASP代码