VB 字符串反向查找

Question

比如121231234
查找到最后一个“1”出现的位置：6

Answer 1

Private Sub Command1_Click()

Dim s As String, i As Integer

s = "121231234"

For i = Len(s) To 1 Step -1

   If Mid(s, i, 1) = "1" Then

      Print "最后一个1出现的位置：" & i

      Exit For

   End If

Next i

End Sub

Answer 2

可以使用 InStrRev 函数
参考 http://www.w3school.com.cn/vbscript/func_instrrev.asp