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 vote212 views1 answer
How to capture link cefsharp
BASIC
0 vote219 views1 answer
API Key Authentication, Basic , Pasword Grant, Client Credentials
BASIC
0 vote278 views1 answer
How to dynamically change the font size of a button visual basic
BASIC
0 vote184 views1 answer
New list with inline elements vb
BASIC
0 vote202 views10 answers
Convert c program to c++ online
BASIC
0 vote190 views1 answer
Trollbox
BASIC
0 vote191 views1 answer
Xolo themeforest
BASIC
0 vote195 views1 answer
Script to add value of 2 coulms of grid and show result in 3rd column
BASIC
0 vote196 views1 answer
Console.OutputEncoding c#
BASIC
2 votes366 views1 answer
Vb string to int32
BASIC