Question

How to find the k biggest values from an array in VB.NET

Answer 1

Imports System

Module Program

    Function PickMaxK(arr As Integer(), k As Integer) As Integer()
        Array.Sort(arr)
        Array.Reverse(arr)

        Dim result(k - 1) As Integer
        Array.Copy(arr, result, k)

        Return result
    End Function

    Sub Main()
        Dim arr() As Integer = {11, 2, 4, 9, 3, 6, 5, 1}
        Dim k As Integer = 3

        Dim result() As Integer = PickMaxK(arr, k)

        For Each n As Integer In result
            Console.Write(n & " ")
        Next
    End Sub

End Module


		
' run:
'
' 11 9 6 
'

 

70+ SQL courses for beginners and professionals