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

1 vote250 views1 answer
The terminal process failed to launch
BASIC
0 vote160 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
1 vote233 views4 answers
C code to java converter
BASIC
0 vote172 views10 answers
Convert c program to c++ online
BASIC
0 vote183 views1 answer
How to open d drive using conda prompt
BASIC
0 vote163 views1 answer
Vb.net printing set page size
BASIC
0 vote177 views1 answer
Hello world in basic
BASIC
6 votes107 views1 answer
Vs code unindent
BASIC
0 vote159 views1 answer
Trollbox
BASIC
0 vote152 views1 answer
New list with inline elements vb
BASIC