Math Probelm

Im trying to figure out a matmatical equation.

If i sent out a questionier to 50 people
and asked how they rated apples on a scale of 1 to 5
and the results came back like this

1 ---- 9
2 ---- 15
3 ---- 18
4 ---- 5
5 ---- 3


How do you determine what the average is?
ie, on average people rated apples 2.5
or whatever the number would be?

(1 * 9 + 2 * 15 + 3 * 18 + 4 * 5 + 5 * 3)/50

Excelent!

where in Wilmington are you?

Im in Newcastle? off of 141

shouldn't this be in the maths forum?

Quote:

---

Originally posted by axion_sa
shouldn't this be in the maths forum?

---

Probably...

I work in downtown Wilmington, Live outside of Philly.

Its VB Related.

Code:

---

Public Function AvgRating() as long

Dim rst as adodb.recordset
Dim lngSum as long


set rst = conn.open("Select Rate, CountOfRate From tblZ1")

While not rst.Eof = True
    lngSum = lngSum + (Val(rst.Rate) * Val(rst.CountOfRate))
    rst.movenext
Wend

lngSum = lngSum / 50

AvgRating = lngSum

rst.close
set rst = nothing

End Function

---