code88a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 10 行

Public Sub Main()
  Dim Count as Integer

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