和排序程序基本一样，只是把外循环或内循环（具体改那个因排序方法而定）的次数改为5就行了

Function GetSum(V() As Long, ByVal n As Integer) As Long
    'V要求和的数组，前n位之和
    Dim i As Long
    Dim k() As Long
    Dim minValue As Long, maxValue As Long
    Dim tmp As Long
    
    minValue = V(LBound(V))
    maxValue = minValue
    For i = LBound(V) To UBound(V)
        If V(i) < minValue Then minValue = V(i)
        If V(i) > maxValue Then maxValue = V(i)
    Next i
    
    ReDim k(minValue To maxValue)
    For i = LBound(V) To UBound(V)
        k(V(i)) = k(V(i)) + 1
    Next i
    
    For i = maxValue To minValue Step -1
        Do While k(i) > 0 And n > 0
            tmp = tmp + i
            k(i) = k(i) - 1
            n = n - 1
            If n = 0 Then Exit For
        Loop
    Next i
    GetSum = tmp
    
End Function

'测试：
Private Sub Command1_Click()
    Dim lng(9) As Long
    Dim i As Long
    
    Randomize
    For i = 0 To 9
        lng(i) = Rnd * 10
        Debug.Print lng(i);
    Next
    Debug.Print
    Debug.Print GetSum(lng, 5)
    
End Sub

以上方法适合于整数数组