code77a.txt

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

Public Sub Main ()
  Dim I%, Result%, Value as Integer

  Result = 0
  Value = 1
  For I = 0 to 100
    Debug.Print I
    I = I - 1
    Result = Value * I   
  Next
  Debug.Print "Result: ", Result
End Sub