code160b.txt

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

Private Function String_Length(ChkString As String) As Integer
  if Len(ChkString) > 1  Then
     String_Length = 1 + String_Length(Right(ChkString, _
       Len(ChkString) - 1))
   else
     String_Length = 0
   End If
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