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 vote132 views1 answer
Dos assign command output to variable (when output is a single line)
BASIC
1 vote205 views2 answers
Thymeleaf radio button
BASIC
0 vote126 views1 answer
Watch starward ascii command
BASIC
0 vote132 views1 answer
Whatv are additional library files in c
BASIC
0 vote128 views1 answer
JsonFileWrapper
BASIC
0 vote124 views1 answer
Theme leaf concatenate
BASIC
1 vote209 views1 answer
The terminal process failed to launch
BASIC
1 vote193 views2 answers
Install chrome
BASIC
0 vote132 views1 answer
Split to arraylist vb.net
BASIC
0 vote212 views1 answer
VBA Initialise/Initialize String/Number Array (not variant)
BASIC