code299a.txt

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

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Function Time_Expired(ByVal Starttime As Long, _
    ByVal EndTime As Long) As Long
  Time_Expired = EndTime - Starttime
End Function

Public Function Manip(ByVal Incoming As Integer) As Long
  Manip = ((Incoming * 2) + 7) ^ 2
End Function

Public Sub Main()
  Dim Starttime As Long, Finish As Long 
  Dim I As Integer

 Starttime = Timer

  For I = 1 To 100
    Debug.Print I, I * 10
    Debug.Print Manip(I)
    Sleep Val(Sqr(Manip(I)))
  Next

  Finish = Timer
  Debug.Print "Program took: "; Time_Expired(Starttime, Finish); _
    " seconds."
End Sub