I haven't started on mode yet, it seems harder. But this is what I've gotten so far for median. I'm not very good at math so I'm starting to confuse myself with what I'm trying to do lol.
CODE
Private Function medianFunc(ByVal arr As ArrayList)
arr.Sort()
Dim median As Double
If arr.Count() Mod 2 = 0 Then
'odd number of items
median = arr.Count() \ 2
Return arr(median)
Else
'even number of items
median = (arr(arr.Count() \ 2) + arr(1 + arr.Count() \ 2)) / 2
Return median
End If
Oh, side question, do I have to have "as integer" after the (byval arr as arraylist) part? It doesn't give me an error so I'm not sure?
The example I'm using for this is "6, 6, 8, 8, 10, 21"
and it keeps giving me 6 as an answer.
And I'm getting confused when I should use / or \ for dividing.
| 