Question

How to find the combination of three elements in an array whose sum is equal to N in VB.NET

Answer 1

Imports System

Public Class Program
    Public Shared Sub PrintThreeElements(ByVal arr As Integer(), ByVal N As Integer)
        Dim size As Integer = arr.Length

        For i As Integer = 0 To size - 1
            For j As Integer = i + 1 To size - 1
                For k As Integer = j + 1 To size - 1
                    If arr(i) + arr(j) + arr(k) = N Then
                        Console.Write(arr(i) & " " & arr(j) & " " & arr(k))
                        Return
                    End If
                Next
            Next
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Dim arr As Integer() = New Integer() {3, 2, 6, 4, 10, 5, 9, 7, 8, 12}
        Dim N As Integer = 24

        PrintThreeElements(arr, N)
    End Sub
End Class



' run:
'
' 3 9 12
'

 

70+ SQL courses for beginners and professionals