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 vote181 views1 answer
Hello world in basic
BASIC
1 vote253 views1 answer
The terminal process failed to launch
BASIC
0 vote230 views1 answer
How to remove characters from the end of a string visual basic
BASIC
2 votes244 views1 answer
Mongodb command remove by _id
BASIC
0 vote205 views1 answer
Add combobox in datagridview vb.net
BASIC
0 vote259 views1 answer
Curl with basic auth
BASIC
0 vote153 views4 answers
Online c++ to c converter
BASIC
-1 vote157 views4 answers
C++ code to c code converter
BASIC
1 vote258 views2 answers
Thymeleaf radio button
BASIC
0 vote254 views2 answers
Cmo ler o dado de um cliente ftp usando vbnet
BASIC