Public  Type Requirement
    Budget As  Double 
    AvgSalary As  Double 
    MinSalary As  Double 
    GDP As  Double 
    Population As Integer
    TAC As Integer
    Ficility As  Boolean 
    PSP As Integer
End Type
...........................................
 Public  Function GetAverageRequirement(rq() As Requirement) As Requirement
    Dim a As Requirement, i As Integer, na As Integer
    a.AvgSalary =  0 
    a.Budget =  0 
    a.Ficility = False
    a.GDP =  0 
    a.MinSalary =  0 
    a.Population =  0 
    a.PSP =  0 
    a.TAC =  0 
    na = UBound(rq)
     For  i =  1  To UBound(rq)
        a.AvgSalary = a.AvgSalary + rq(i).AvgSalary / na
        a.Budget = a.Budget + rq(i).Budget / na
         If  rq(i).Ficility Then a.Ficility = True
        a.GDP = a.GDP + rq(i).GDP / na
        a.MinSalary = a.MinSalary + rq(i).MinSalary / na
        a.Population = a.Population + rq(i).Population / na
        a.PSP = a.PSP + rq(i).PSP / na
        a.TAC = a.TAC + rq(i).TAC / na
    Next
    GetAverageRequirement = a
End Function

 double [] Budget;

Reqiurement r;
r.Budget[] =  0 ;