求指导一个vb程序，最好能有详细的代码。

Dim N(10) As Integer, I As Integer

N(1) = 1

N(2) = 2

For I = 3 To 10

N(I) = N(I-1)N(I-1) - N(I-2)N(I-2)

Next I

'万花筒程序

'粘贴下面代码即可, 不用添加任何控件

Private WithEvents Timer1 As Timer

Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#

Private Sub Form_Load()

      MeWidth = 4500: MeHeight = 4500

      MeMove (ScreenWidth - MeWidth) \ 2, (ScreenHeight - MeHeight) \ 2

      MeAutoRedraw = True

      MeCaption = "CBM666的万花筒"

      Set Timer1 = ControlsAdd("vbtimer", "Timer1")

      Timer1Interval = 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  31415926 / 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

            MePSet (xb, yb), b

         Next t

      End If

End Sub

才10分哈，鸣```给你个思路吧，我也不指着你给我分了，大一的水平，不是大三的水平，这并不重要，大家学到的东西差不多，不过运用的程度却不一样，试着多用点自己学到的，会做出精彩的，比如多用点for一类的，看看自己的成果，MID多窗体，搞个登陆界面，用IF来判定。如果有条件自己查查API，试着连接ACCESS。祝你成功

deiphl7

>

以上就是关于求指导一个vb程序，最好能有详细的代码。全部的内容，包括:求指导一个vb程序，最好能有详细的代码。、介绍一个VB小的有趣的程序代码、求一个有创意的适合大一水平的VB程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！