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 vote478 views1 answer
Visual basic constructor
BASIC
1 vote496 views1 answer
Itextsharp landscape a4
BASIC
0 vote401 views1 answer
Visual basic non modal message box
BASIC
0 vote400 views1 answer
Visual basic excel freeze first row
BASIC
0 vote385 views1 answer
Wussup
BASIC
0 vote419 views1 answer
How to remove characters from the end of a string visual basic
BASIC
0 vote395 views1 answer
How to simulate tail in dos/cmd without tail
BASIC
1 vote462 views1 answer
How to make vbs error message box
BASIC
0 vote376 views1 answer
Watch starward ascii command
BASIC
0 vote385 views1 answer
Remove button selection outline visual basic
BASIC