code135a.txt

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

Private Function Add_Em(A, B) As Single
  Add_Em = A + B
End Function

Public Sub Main()
  Dim I As Long
  Dim Result As Single

  Debug.Print "Working..."
  Debug.Print "Start Time: ", Time
  For I = 1 To 10000000
      Result = Result + I
  Next
  Debug.Print "End Time: ", Time

  Debug.Print "Working..."
  Debug.Print "Start Time: ", Time
  For I = 1 To 10000000
    Result = Add_Em(I, Result)
  Next
  
  Debug.Print "End Time: ", Time
End Sub