问a = InStr(num, str2, key)为什么出错？在线等。。。
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)出错？？
提示 无效的过程调用或参数???
急。。。。。
问题点数：20、回复次数：2Top
1 楼wzzwwz（皮皮鲁）回复于 2005-04-02 20:25:14 得分 10
InStr 函数只能从 1 开始查找，不能从 0 开始Top
2 楼homezj（小吉）回复于 2005-04-02 22:05:53 得分 10
这代码，毛病太多，我帮你改改！
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 & " 次"Top
