code300a.txt

VB大全（精华版）源代码

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

Public Function Time_Expired(ByVal Interval As String, ByVal StartTime As Date, ByVal EndTime As Date) As Long
  Time_Expired = DateDiff(Interval, StartTime, EndTime)
End Function

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

Public Sub Main()
  Dim StartTime As Date, Finish As Date
  Dim I As Integer
  Const Seconds = "s"

  StartTime = Time
  For I = 1 To 100
    Debug.Print I, I * 10
    Debug.Print Manip(I)
    Sleep Val(Sqr(Manip(I)))
  Next
  Finish = Time
  Debug.Print "Program took: "; Time_Expired(Seconds, StartTime, Finish); " seconds."
End Sub