Question

How to find the sum of the subarray which has the largest sum in VB.NET

Answer 1

Imports System
				
Public Module Module1
	public Function max_subarray_sum(arr() as Integer) As Integer
		Dim max_sum As Integer = 0
        Dim max_till_i As Integer = 0
  
		For i As Integer = 0 To arr.Length - 1
            max_till_i = max_till_i + arr(i)
            max_till_i = Math.Max(max_till_i, 0)
			max_sum = Math.Max(max_sum, max_till_i)
		Next
  
        return max_sum
	End Function
	Public Sub Main()
		Dim arr() As Integer = {1, -2, 2, -3, 4, -1, -1, 2, 3, -5, 4}  '  4 - 1 - 1 + 2 + 3 = 7
 
        Console.Write(max_subarray_sum(arr))
	End Sub
End Module



' run:
'
' 7
' 

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
    Public Shared Function max_subarray_sum(ByVal arr As Integer()) As Integer
        Dim sum As Integer = 0
        Dim max As Integer = arr(0)

        For Each val As Integer In arr
            sum += val
            max = Math.Max(sum, max)
            sum = Math.Max(sum, 0)
        Next

        Return max
    End Function

    Public Shared Sub Main()
        Dim arr As Integer() = {1, -2, 2, -3, 4, -1, -1, 2, 3, -5, 4}
	
        Console.Write(max_subarray_sum(arr))
    End Sub
End Class




' run:
'
'  7
'

 

70+ SQL courses for beginners and professionals