Question

How to find the maximum difference between two successive elements in an int array with VB.NET

Answer 1

Imports System

Public Class MaximumDifferenceBetweenTwoSuccessiveElementsInArray_VB_NET
    Public Shared Function MaximumGap(ByVal arr As Integer()) As Integer
        Dim gap As Integer = 0

        If arr.Length = 0 Then
            Return 0
        End If

        Array.Sort(arr)
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1 - 1
            Dim diff As Integer = arr(i + 1) - arr(i)

            If diff > gap Then
                gap = diff
            End If
        Next

        Return gap
    End Function

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = {1, 3, 5, 9, 11, 13}
	
        Console.WriteLine(MaximumGap(arr))
    End Sub
End Class



 
' run:
'
' 4
'

 

70+ SQL courses for beginners and professionals