抢分问题

Question

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

Answer 1

方案一：
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

Answer 2

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