Dim S As String = "12345654321" MsgBox(InStr(S, "3")) '返回3 MsgBox(InStrRev(S, "3")) '返回9 MsgBox(S.IndexOf("3")) '返回2 MsgBox(S.LastIndexOf("3")) '返回8