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)出错??提示 无效的过程调用或参数???急。。
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)出错??提示 无效的过程调用或参数???急。。
解决方案 »
- 如何实现控件按一下陷阱去,再按一下凸出来?
- 圆和平面的切点
- 如何使用shell调用Winrar压缩及解压缩文件
- 我不懂!所以我问!100分,进来就拿去!
- VBA单元格问题!十分容易!
- vb如何引用某个.txt文件中某两个字符之间或某几行之间的语句!
- Access 发送邮件的问题,急等!!!
- 请问,在VB中,怎样使用ADO控件把图片存到存到ACCESS数据源中???拜托,我急于知道答案。
- 我要如何才能简单的让窗口右上角的关闭按钮失效?
- DBGrid有没有Rows属性(VB6)?如何运行中给DBGrid增加一行?
- Win98 下写的程序到了 Win2K 或者 WinXP 下面运行出现字体不正常?
- adodc 与datagrid 连接,用一个text 文本框来search 请高手指教一下,谢谢!
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 & " 次"