code182a.txt

VB大全（精华版）源代码

Public Sub Main()
  Dim Value As Double

  For Value = 0 To 1 Step 0.1
     Debug.Print "Exp("; Value; ") is "; Exp(Value)
  Next
End Sub