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 vote281 views1 answer
Theme leaf concatenate
BASIC
0 vote280 views1 answer
Basic murmur hash function
BASIC
0 vote290 views1 answer
New list VB
BASIC
0 vote286 views6 answers
C++ to c converter online
BASIC
0 vote253 views1 answer
Como colocar aspas duplas em vbnet
BASIC
0 vote241 views1 answer
How to dynamically change the font size of a button visual basic
BASIC
0 vote249 views1 answer
NÃO CONSIGO MANDAR UM POST EM VBNET USANDO POSTMAN
BASIC
0 vote308 views2 answers
Cmo ler o dado de um cliente ftp usando vbnet
BASIC
0 vote262 views3 answers
JWT EM VBNET
BASIC
0 vote284 views1 answer
How to open d drive using conda prompt
BASIC