code106a.txt

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

Public Sub Main()
  Dim Search_String, Searched_String As String
  Dim Current_Pos, Next_Pos, Total_Found As Integer

  Searched_String = "Jamsa Press books include 1001 Visual Basic Programmer's Tips"
  Search_String = "s"
  Next_Pos = 0
  Total_Found = -1
  Do
    Current_Pos = Next_Pos
    Total_Found = Total_Found + 1
    Next_Pos = InStr(Current_Pos + 1, Searched_String, Search_String)
  Loop Until Next_Pos = 0

  Debug.Print "The total number of occurrences of the string is:", Total_Found
End Sub