VB题，在线等

Dim s1, s2, c, b
c = 0
s1 = InputBox("第1个字符串", "请输入")
s2 = InputBox("第2个字符串", "请输入")
b = Len(s1)
For n = 1 To Len(s1)
If InStr(s1, s2) > 0 Then
s1 = Mid(s1, InStr(s1, s2) + 1, Len(s1) - InStr(s1, s2))
c = c + 1
End If
Next
MsgBox c

Dim S1,S2
S1=inputbox("S1","","")
S2=inputbox("S2","","")
t=0
num=-1
do
t=instr(t+1,S2,S1)
num=num+1
loop until t=0
msgbox num

这个是vbs的，保存了运行下，记得采纳啊。

举个例子，输入temp1 = "01234123412341234" 和temp2="12"想要知道temp2在temp1中的次数temp

Dim temp1 As String
Dim str() As String
Dim temp2 As String
Dim temp As String
temp1 = "01234123412341234"
temp2 = Mid(temp1, 2, 2)
str = Split(temp1, temp2)
temp = UBound(str)
可以得到了
一楼的亦可以，不过有点小错误
Dim S1,S2 <