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 vote186 views1 answer
Trollbox
BASIC
0 vote233 views1 answer
Visual basic how to create a dynamic button
BASIC
0 vote365 views2 answers
Cmd cant change directory
BASIC
0 vote181 views1 answer
New list with inline elements vb
BASIC
0 vote195 views1 answer
Excel vba chck that the range is empty
BASIC
0 vote185 views1 answer
Freecodecamp basic algorithm scripting return largest numbers in arrays
BASIC
0 vote179 views1 answer
Microsoft Flight Simulator.
BASIC
0 vote191 views3 answers
JWT EM VBNET
BASIC
0 vote179 views1 answer
How to close form in vb.net
BASIC
0 vote243 views5 answers
Dos assign carriage return to variable
BASIC