code160a.txt

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

Private Function String_Length(ChkString As String) As Integer
Dim I As Integer

  For I = 1 To Len(ChkString)
    String_Length = String_Length + 1
  Next
End Function

Public Sub Main()
   Dim Counter As Long, Dummy As Integer
   Dim StartTime As Date, EndTime As Date
   StartTime = Now

   For Counter = 0 To 100000
      Dummy = String_Length("1001 Visual Basic Programmer's Tips")
   Next
   EndTime = Now
   Debug.Print "Processing time: "; DateDiff("s", StartTime, _
     EndTime); " seconds."
End Sub