Drop lowest value from Array and Resize array - VB 2003

[wartech]

Hey Everyone!
My goal is to to reaverage the grades after the lowest has been dropped. I am working with a five element array. I would like to find the lowest value in the array and remove it from the array then resize the array with the elements that remain.
Since I have sorted the array, I know that I would like to remove the first element in the array since it is the lowest. Below is the code that I have tried but cannot get it to work.

Thanks for your help!
Julian

Sub theArray()
For i As Integer = 1 To 5
Console.WriteLine("Enter grade: " & i)
grades(i) = Console.ReadLine
sum = grades(i) + sum
Next
Array.Sort(grades)
average = sum / UBound(grades)
End Sub
' i was using this code to replace the first element with nothing
'then reaverage the grade with only 4 grades instead of five

Sub DropLowest()
grades(1) = Nothing
newAverage = sum / UBound(grades) - 1
End Sub

[kmoorman]

Julian,

Is this a homework assignment?

Kerry Moorman

[jguy]

This looks like something I did when I was learning to program! ;-)

What are you getting for the value @ DropLowest()?

[Phil Weber]

Why not simply subtract the value of the lowest grade from sum, then divide sum / (UBound(grades) - 1) ?

[wartech]

Thanks for the replies. Yes it is for an assignment for one of my classes. It was added in to the assignment, if we wanted to do it. The value i get from the dropLowest() is not what i get when i manually add the 4 grades and divide by 4.


Thanks Phil I will try that approach!!