怎么计算一个字符串中子串的数量

int子串数量 = 0 If txt文本框.Text.Length > 0 Then If txt子串.Text.Length > 0 Then Dim int起始位置 As Integer = 0 Dim int终止位置 As Integer = txt文本框.Text.Length If txt文本框.Text.Contains(txt子串.Text) Then Do While txt文本框.Text.Substring(int起始位置).Contains(txt子串.Text) int起始位置 = txt文本框.Text.IndexOf(txt子串.Text, int起始位置) + txt子串.Text.Length int子串数量 += 1 Loop Else int子串数量 = 0 End If End If End If lbl子串数量.Text = "子串数量：" & int子串数量

strlen函数直接求得字符串的长度。