code88a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim Count as Integer

  Count = 1
LoopStart:
  Debug.Print Count
  Count = Count + 1
  If Count <= 100 Then Goto LoopStart
End Sub