怎麼計算一個字符串中子串的數量

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函數直接求得字符串的長度。