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

呵呵，这样简单点：

Dim s1 As String = "aabbbccaaaa"
Dim s2 As String = "aa"
Dim s3 As String = s1.Replace(s2,"")
Dim cnt = (s1.Length - s3.Length) / s2.Length
MessageBox.show(cnt & "次")