问a = InStr(num, str2, key)为什么出错？在线等。。。

Question

Dim key As String
    Dim num As Integer
    Dim a As Integer
        a = 0
        num = 0
        key = Text2.Text
        Do
            a = InStr(a, str2, key)
            If a <> 0 Then
                num = num + 1
            End If
        Loop While a <> 0
        MsgBox ("一共出现了" & num & "  次")－－－－－－－－－－－－
为什么一直说 a = InStr(a, str2, key)出错？？提示 无效的过程调用或参数???急。。

Answer 1

InStr 函数只能从 1 开始查找，不能从 0 开始

Answer 2

这代码，毛病太多，我帮你改改！Dim key As String
Dim num As Integer
Dim a As Integer
Dim i As Integer
num = 0
key = Text2.Text
i = Len(key)
a = InStr(1, str2, key)
Do While a > 0
    num = num + 1
    a = InStr(a + i, str2, key)
Loop
MsgBox "一共出现了" & num & "  次"