code78a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim I, J As Integer

  For J = 1 To 3
    For I = 1 To 5
      Debug.Print I * J
    Next I
  Next J
End Sub