Question

vb如何查找指定字符串的个数?

例如abbcccd里,如何知道里面有几个c?

Answer 1

Dim str As String
Dim n As Integer
str = "abbcccd"
n = Len(str) - Len(Replace(str, "c", ""))

Answer 2

Private Sub Command1_Click()
Dim s As Integer
For i = 1 To Len(Text1)
If Mid(Text1, i, Len(Text2)) = Text2 Then
s = s + 1
End If
Next
Print s & "个" & Text2
End Sub