Imports System
Public Class Program
Public Shared Sub PrintSubarrayWithSumEqualToN(ByVal arr As Integer(), ByVal N As Integer)
Dim size As Integer = arr.Length
For i As Integer = 0 To size - 1
Dim current_sum As Integer = arr(i)
If current_sum = N Then
Console.Write("Sum found at index: " & i)
Return
Else
For j As Integer = i + 1 To size - 1
current_sum += arr(j)
If current_sum = N Then
Console.WriteLine("Sum found between index " & i & " and " & j)
For k As Integer = i To j
Console.Write(arr(k) & " ")
Next
Return
ElseIf current_sum > N Then
Exit For
End If
Next
End If
Next
Console.Write("No subarray found")
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {2, 5, 8, 9, 1, 7, 12, 21, 19}
Dim N As Integer = 52
PrintSubarrayWithSumEqualToN(arr, N)
End Sub
End Class
' run:
'
' Sum found between index 6 and 8
' 12 21 19
'
