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 vote395 views1 answer
Itextsharp landscape a4
BASIC
0 vote195 views1 answer
Basic murmur hash function
BASIC
0 vote405 views1 answer
Loop inner fiter()
BASIC
0 vote199 views2 answers
Python3 base64 encode basic authentication
BASIC
1 vote390 views2 answers
Install chrome
BASIC
0 vote211 views2 answers
Get next/previous record
BASIC
0 vote205 views1 answer
JsonFileWrapper
BASIC
0 vote206 views3 answers
JWT EM VBNET
BASIC
0 vote238 views1 answer
Vb.net printing set page size
BASIC
0 vote215 views10 answers
Convert c program to c++ online
BASIC