Câu lạc bộ Visual Basic

Code: Select all

'Hàm kiểm tra tần xuất xuất hiện trong chuổi , số lần xuất hiện trong chuổi
    Public Function numberofchar(arraychar As Char(), chardata As Char) As Integer
        If arraychar.Length = 0 Then
            Return 0
        End If
        If Len(chardata) = 0 Then
            Return 0
        End If
        Dim number As Integer = 0
        For Each chartemp As Char In arraychar
            If chartemp = chardata Then
                number += 1
            End If
        Next
        Return number
    End Function