code105a.txt

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

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

  Searched_String = "Jamsa Press books include 1001 Visual Basic Programmer 's Tips"
  Search_String = "s"
  Next_Pos = 0
  Do
    Current_Pos = Next_Pos
    Next_Pos = InStr(Current_Pos + 1, Searched_String, Search_String)
  Loop Until Next_Pos = 0
  Debug.Print "The last occurrence of the string is at position", Current_Pos
End Sub