2个回答
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询