抢分问题

[ccone1111]

vb中有没有这样的函数，就是查找一个字符串中含有某个字符几次的函数，如wesdfwdfw 含有w数2个

[zhzhq800204]

Private Sub Command1_Click()
Dim s1 As String
Dim s2 As String
Dim Num As Integer
Dim i As Integer
Dim j As Integer
s1 = "wesdfwdfw"
s2 = "w"

Num = 0
i = Len(s1)
For j = 0 To i
If s2 = Mid(s1, j, 1) Then
Num = Num + 1
End If
Next i

End Sub

[韧恒]

方案一：
Private Sub Command1_Click()
Dim s1 As String
Dim s2 As String

s1 = "wesdfwdfw"
s2 = "w"

Debug.Print Len(s1) - Len(Replace(s1, s2, vbNullString))
End Sub

方案二:

Private Sub Command1_Click()
Dim s1 As String
Dim s2 As String

s1 = "wesdfwdfw"
s2 = "w"

Debug.Print UBound(Split(s1, s2))
End Sub