Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a, b As String, c As Integer
a = InputBox("input a string", , "abcdefg")
b = InputBox("find string", , "g")
c = a.IndexOf(b) + 1
MsgBox(c)
End Sub
温馨提示:答案为网友推荐,仅供参考