code77a.txt

VB大全（精华版）源代码

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