# Drop lowest value from Array and Resize array - VB 2003

Printable View

• 11-08-2006, 02:51 AM
wartech
Drop lowest value from Array and Resize array - VB 2003
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
• 11-08-2006, 10:00 AM
kmoorman
Julian,

Is this a homework assignment?

Kerry Moorman
• 11-08-2006, 10:21 AM
jguy
This looks like something I did when I was learning to program! ;-)

What are you getting for the value @ DropLowest()?
• 11-08-2006, 11:12 AM
Phil Weber
Why not simply subtract the value of the lowest grade from sum, then divide sum / (UBound(grades) - 1) ?
• 11-08-2006, 03:19 PM
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!!