code103a.txt

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

Public Sub Main()
  Dim Title as String
  Dim Location as Integer

  Title = "1001 Visual Basic Programmer's Tips"
  Location = InStr(Title, "P") 
  If Location > 0 Then 
     Debug.Print "First occurrence of P is at offset ",Location
  Else
     Debug.Print "Character not found"
  End If
End Sub