Private Function SumOfBiggest(Numbers() As Double, _
        NumberOfBiggest As Integer) As Double
 
        Array.Sort(numbers)
 
        Dim nc As Integer = numbers.Length
 
        NumberOfBiggest = Math.Min(NumberOfBiggest, nc)
        NumberOfBiggest = Math.Max(NumberOfBiggest, 1)
 
        Dim sum As Double = 0
        For i As Integer = nc - NumberOfBiggest To nc - 1
            sum += Numbers(i)
        Next i
 
        Return sum
End Function

Dim intArray(4) As Integer

 intArray(0) = CInt(Me.Label_Number1.Text)
 intArray(1) = CInt(Me.Label_Number2.Text)
 intArray(2) = CInt(Me.Label_Number3.Text)
 intArray(3) = CInt(Me.Label_Number4.Text)
 intArray(4) = CInt(Me.Label_Number5.Text)

 intArray.Sort()

Dim intResult As Integer
intResult = intArray(3) + intArray(4)
'Ergebnis der Ergebnistextbox zuweisen (Text einfüllen)
Me.TextBox_Result.Text = CStr(intResult)

Zitat:

bekomme aber bei dem Befehl "intArray.Sort()" eine Fehlermeldung.

System.Array.Sort(intArray)

Public Class Form1
 
    Dim arr(10) As Integer
    Dim i As Integer = 0
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        arr(0) = 6
        arr(1) = 9
        arr(2) = 7
        arr(3) = 5
        arr(4) = 1
        arr(5) = 3
        arr(6) = 4
        arr(7) = 2
        arr(8) = 8
        arr(9) = 0
 
        For i = 0 To 9
            lstOriginal.Items.Add(arr(i))
        Next
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        System.Array.Sort(arr)
 
        For i = 1 To 10
            lstSortiert.Items.Add(arr(i))
        Next
 
    End Sub
End Class

EALA FREYA FRESENA

EALA FREYA FRESENA

Dim myarr As Array = _
Array.CreateInstance(GetType(Integer), _
                     New Integer() {11, 17}, _
                     New Integer() {-5, -8})

EALA FREYA FRESENA

Zitat:

Danke Dir für Deine Erklärung! Da die meisten Arrays, die ich bisher brauchte, nicht vorher definiert waren, sondern einem Split entstammten, war mir die Dimensionierung irgendwie falsch in die Gehirnwindungen eingebrannt...