Imports System
Public Class [MyClass]
Public Shared Function isPairWithAGivenSum(ByVal arr As Integer(), ByVal sum As Integer) As Boolean
Dim size As Integer = arr.Length
For i As Integer = 0 To size - 1
For j As Integer = 0 To size - 1
If i = j Then
Continue For
End If
If arr(i) + arr(j) = sum Then
Console.WriteLine("i = " & i & " j = " & j)
Return True
End If
If arr(i) + arr(j) > sum Then
Exit For
End If
Next
Next
Return False
End Function
Public Shared Sub Main(ByVal args As String())
Dim arr As Integer() = New Integer() {3, 5, 6, 8, 9, 12, 13, 15}
Dim sum As Integer = 17
Console.Write(isPairWithAGivenSum(arr, sum))
End Sub
End Class
' run:
'
' i = 1 j = 5
' True
'
