从键盘输入字符串s1和字符串s2，编写程序统计字符串s1中出现字符串s2的次数。要求使用Do···Loop语句

Answer 1

Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
Do Until InStr(a, b) = 0
n = n + 1
a = Right(a, Len(a) - InStr(a, b) - Len(b) + 1)
Loop
Text3.Text = n
End Sub
就这段语句 text1 是 s2 text2 是 s1 text3 是 计算的结果 我试过的 没问题的 粘贴过去就可以用了！！！有疑问再联系我！！！！

Answer 2

看下这样可以不
Option Explicit
Private Function s2在s1的次数(s1 As String, s2 As String) As Long
Dim s2len As Long, i As Long, a As Long, SCount As Long
s2len = Len(s2)
a = 1
Do
i = InStr(a, s1, s2)
If i Then a = s2len + i: SCount = SCount + 1
Loop While i
s2在s1的次数 = SCount
End Function
Private Sub Form_Load()
Dim s1 As String, s2 As String
s1 = "135213543215"
s2 = "3"
Me.Caption = s2在s1的次数(s1, s2)
End Sub