问检查字符串是否有相同的数字

EN

Sub Main()
    Dim a As String = "001111"
    Dim b As String = "1123134"
    Dim c As String = "1111"

    Console.WriteLine(CheckConsecutiveChars(a, 4)) 'True => Invalid Pin
    Console.WriteLine(CheckConsecutiveChars(b, 4)) 'False => Valid Pin
    Console.WriteLine(CheckConsecutiveChars(c, 4)) 'True => Invalid Pin
    Console.ReadLine()
End Sub


'maxnumber = maximum number of identical consecutive characters in a string
Public Function CheckConsecutiveChars(ByVal j As String, ByVal maxNumber As Integer) As Boolean

    Dim index As Integer = 0
    While ((index + maxNumber) <= j.Length)
        If (j.Substring(index, maxNumber).Distinct.Count = 1) Then
            Return True
        End If
        index = index + 1
    End While
    Return False

End Function

'maxnumber = maximum number of identical consecutive characters in a string
Public Function HasConsecutiveChars(ByVal j As String, ByVal maxNumber As Integer) As Boolean

    Dim result As Boolean = False
    Dim consecutiveChars As Integer = 1
    Dim prevChar As Char = "x"c

    For Each c in j
        If c = prevChar Then
            consecutiveChars += 1
            If consecutiveChars >= maxNumber Then
                result = True
                Exit For
            End If
        Else
            consecutiveChars = 1
        End If

        prevChar = c
    Next

    Return result

End Function