VB里，已知s1和s2字符串,请统计s2字符串在s1里出现的次数。分别用Mid函数和Instr函数
展开全部
Dim num As Long
Dim p As Long
s1 = "abcaca"
s2 = "a"
Do While True
p = InStr(1, s1, s2)
If p = 0 Then
Exit Do
Else
num = num + 1
s1 = Mid(s1, p + 1)
End If
Loop
MsgBox "共出现" & num & "次"
Dim p As Long
s1 = "abcaca"
s2 = "a"
Do While True
p = InStr(1, s1, s2)
If p = 0 Then
Exit Do
Else
num = num + 1
s1 = Mid(s1, p + 1)
End If
Loop
MsgBox "共出现" & num & "次"
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
