Hvordan søke i en matrise etter høyeste tall? [LØST]

[Gr0v]

Jeg har lagd følgende program

 

Dim vare(4) As String, gjennomsnitt, pris(4), sum, i, høyeste, laveste As Integer

       For i = 0 To 4
           vare(i) = InputBox("Hva er vare nr." & i + 1)
       Next i

       For i = 0 To 4
           pris(i) = InputBox("Hva er prisen på " & vare(i) & "?")
       Next

       For i = 0 To 4
           sum = sum + pris(i)
       Next i
       MsgBox("Summen av prisen på matvarene er " & sum)

       gjennomsnitt = sum / 5
       MsgBox("Gjennomsnittet er " & gjennomsnitt)

 

Hvordan finner jeg den høyeste regisrerte prisen i pris()-matrisen?

Endret 6. april 2008 av Gr0v

[Gr0v]

Oi, jeg fikk det visst til selv.