Imports System
Public Class Program
Public Shared Sub findAllPairs(ByVal arr As Integer(), ByVal sum As Integer)
Dim found As Boolean = False
For i As Integer = 0 To arr.Length - 1 - 1
For j As Integer = i + 1 To arr.Length - 1
If arr(i) + arr(j) = sum Then
Console.WriteLine("arr[" & i & "](" & arr(i) & ") + " & "arr[" & j & "](" & arr(j) & ")")
found = True
End If
Next
Next
If Not found Then
Console.WriteLine("Pair not found")
End If
End Sub
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {2, 4, 1, 5, 6, 8, 1}
Dim sum As Integer = 10
findAllPairs(arr, sum)
End Sub
End Class
' run:
'
' arr[0](2) + arr[5](8)
' arr[1](4) + arr[4](6)
'
