求高手注释，实在看不太懂！！

Question

Dim s, sj, cs, fs, sp, fw As Integer
Dim zm As String
Dim dz(100)  As IntegerPrivate Sub Form_KeyPress(Kb As Integer)
   zm = Chr$(Kb)
End SubPrivate Sub Form_Load()
  s = 20
  sj = 50
  Randomize
  For n = 0 To s - 1
      a(n).Top = 0
  Next n
  For n = 0 To s - 1
    B(m).Top = Form1.ScaleHeight
    B(m).Visible = False
  Next n
  fs = 0
  sp = 100
  a(0).Top = 1
  a(0).Visible = True
  x = Int(Rnd * 25) + 65
  a(0).Caption = Chr$(x)
  fw = Form1.ScaleWidth - 10
  y = Int(Rnd * fw) + 5
  a(0).Left = y
End SubPrivate Sub t1_Timer()
   If fs > 0 And fs Mod 200 = 0 Then
      sj = 50 - fs / 200
      If sj <= 0 Then sj = 1
   End If
   cs = cs + 1
   If cs >= sj Then
      For n = 0 To s - 1
         If a(n).Top = 0 Then
            a(n).Top = 1
            a(n).Visible = True
            x = Int(Rnd * 25) + 65
            a(n).Caption = Chr$(x)
            y = Int(Rnd * fw) + 5
            a(n).Left = y
            cs = 0
            Exit For
         End If
      Next n
   End If
   k = -1
   tp = -1
   For n = 0 To s - 1
       If a(n).Top >= 0 And a(n).Caption = zm And a(n).Top > tp Then
          k = n
          tp = a(n).Top
       End If
   Next n
   If k >= 0 Then
     For n = 0 To s - 1
       If Not B(n).Visible Then
         B(n).Top = Form1.ScaleHeight - 50
         B(n).Visible = True
         B(n).Left = a(k).Left
         B(n).Caption = a(k).Caption
         dz(n) = k
         zm = ""
         Exit For
       End If
    Next n
  End If
   
   For n = 0 To s - 1
      If a(n).Top > 0 Then
            a(n).Top = a(n).Top + sp
            If a(n).Top + a(n).Height >= Form1.ScaleHeight Then
               fs = fs - 10
               a(n).Top = 0
               a(n).Visible = False
            End If
      End If
   Next n
  For n = 0 To s - 1
      If B(n).Visible Then
         B(n).Top = B(n).Top - 5 * sp
         If B(n).Top <= a(dz(n)).Top + a(dz(n)).Height Then
               fs = fs + 10
               a(dz(n)).Top = 0
               a(dz(n)).Visible = False
               B(n).Top = Form1.ScaleHeight
               B(n).Visible = False
         End If
      End If
   Next n
Label1.Caption = Str$(fs)
End Sub

Answer 1

Dim s, sj, cs, fs, sp, fw As Integer
光看这一句就没兴趣再往下了. 楼主还是另找代码吧, 这代码不咋的

Answer 2

Dim s, sj, cs, fs, sp, fw As Integer=>Dim s As Integer, sj As Integer, cs As Integer, fs As Integer, sp As Integer, fw As Integer这才是正确的写法。