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 vote361 views1 answer
Como colocar aspas duplas em vbnet
BASIC
0 vote458 views1 answer
Loop inner fiter()
BASIC
0 vote379 views1 answer
Pmatplotlib draw a square with a magenta dotted line and pentagon markersython matplotlib overlaped
BASIC
1 vote450 views2 answers
Install chrome
BASIC
0 vote406 views1 answer
Floppy disk drive +arduino
BASIC
0 vote418 views1 answer
New list VB
BASIC
-1 vote366 views4 answers
C++ code to c code converter
BASIC
0 vote472 views1 answer
VBA Initialise/Initialize String/Number Array (not variant)
BASIC
0 vote407 views2 answers
Bash catch ctrl-c in a script
BASIC
0 vote381 views1 answer
Excel vba chck that the range is empty
BASIC