Imports System
Public Class Program
Public Shared Sub findTripletsWith0Sum(ByVal arr As Integer())
Dim found As Boolean = False
Dim size As Integer = arr.Length
For i As Integer = 0 To size - 2 - 1
For j As Integer = i + 1 To size - 1 - 1
For k As Integer = j + 1 To size - 1
If arr(i) + arr(j) + arr(k) = 0 Then
Console.WriteLine(arr(i) & " + " & arr(j) & " + " & arr(k))
found = True
End If
Next
Next
Next
If found = False Then
Console.Write("Not found")
End If
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {1, 0, 3, 2, -1, -2, -3, 4}
findTripletsWith0Sum(arr)
End Sub
End Class
' run:
'
' 1 + 0 + -1
' 1 + 2 + -3
' 0 + 3 + -3
' 0 + 2 + -2
' 3 + -1 + -2
' -1 + -3 + 4
'
