主题：[求助]如何查找给定的子字符串在一个字符串中出现的次数

 这个问题需要定义一个规则。怎样算一次。

 比如 aa 在 aaaabbb中，算2次，还是算3次？

Dim str As String = "aabbbccaa"
Dim s As String = "aa"
Dim count As Integer = 0
Dim i As Integer = 0
Do While 1
    i = str.IndexOf(s)
    If i < 0 Then
        Exit Do
    End If
    str = str.SubString(i + s.Length)
    count = count + 1
Loop
output.Show(count)