Sequnce function vb.net

    Private Function SequentialNumbers(ByVal input As String) As Boolean
        Dim numbers() As Int32 = Array.ConvertAll(input.ToCharArray(), Function(c) Convert.ToInt32(c))
        For index As Int32 = 0 To numbers.Length - 2
            For nestedIndex As Int32 = index + 1 To numbers.Length - 1
                If numbers(index) = numbers(nestedIndex) - 1 Then
                    Return True
                End If
            Next
        Next

        Return False
    End Function

Source: vbforums.com

Similar codes

0 vote172 views1 answer
Resttemplate authorization basic
BASIC
0 vote169 views1 answer
JsonFileWrapper
BASIC
0 vote175 views1 answer
Console.OutputEncoding c#
BASIC
0 vote161 views1 answer
Whats up
BASIC
0 vote164 views1 answer
Visual basic non modal message box
BASIC
0 vote171 views1 answer
How to round a number in visual basic
BASIC
0 vote170 views1 answer
Xolo themeforest
BASIC
0 vote176 views2 answers
Bash catch ctrl-c in a script
BASIC
0 vote261 views1 answer
Add firefox
BASIC
0 vote257 views10 answers
Convert c++ code to c online
BASIC