Could use some help... How would I sum an array... and yes i am a noob ^^

[jondubs]

I need to sum an array.

Private Function calculateAverage(ByVal averageIncomeDecimal) As Decimal
Dim totalIncomeDecimal As Decimal = 0
Dim totalLoopInteger As Integer = 0
For totalLoopInteger = 0 To famIncomeCountInteger
totalIncomeDecimal += familyIncomeDecimal(100)
totalLoopInteger += 1
Next totalLoopInteger

averageIncomeDecimal = totalIncomeDecimal / totalLoopInteger

So this is what I have...

[QVeen72]

Hi,

Change it to :

Dim totalIncomeDecimal As Decimal = 0
Dim i As Integer = 0
 
For i = 0 To famIncomeCountInteger
  totalIncomeDecimal =  totalIncomeDecimal + familyIncomeDecimal(i)
Next i
 
MsgBox totalLoopInteger 
 
 

Regards
Veena