资 源 简 介
VB6.0 判断指定字符串出现的次数,判断字符串A在字符串B中出现的次数,使用了VB的Mid函数来判断,如图所示的运行效果,单击按钮即可查看运行结果。代码验证判断部分,采用for循环遍历判断,代码如下:
Dim j As Integer
j = 0
For i = 1 To Len(Text1)
If Mid(Text1, i, Len(Text2)) = Text2 Then
j = j + 1
End If
Next i
Label2.Caption = "出现" & j & "次"