Question

vb的声明部分怎么是老是只能写一行，按回车后就到横线下面了,,,求指点啊

Answer 1

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      ’指的时间是0.01秒
End Sub
Private Sub Timer1_Timer()
     Randomize                   ’启动随机数

     r = 340 * Rnd      
     If r <> 0 Then                   ’判断r是否等于0 
        r1 = 500
        s = r * Rnd                     ‘0到r-1范围内随机取任何数
        b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)    ’RGB指的是红，，蓝。他们的颜色的深浅度
        For t = 1 To 10000         ‘循环从1 到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                 ’在坐标（xb,yb)画出随机图案用随机颜色
        Next t
     End If
End Sub

Answer 2

这个你不用担心，你在第2行继续，横线会自动下移！

Answer 3

继续在下面写其他声明就可以了，会自动到横线上面的