Visual Basic массивы!!!!!!!!!!!

[Ольга93]

Ребят, помогите пожалуйста, преподаватель не хочет объяснять ни в какую...

В двухмерном массиве хранится информация о зарплате 18 человек за каждый месяц года (в первом столбце - зарплата за январь, во втором - за февраль и тд). Составить программу для расчета средней зарплаты за любой месяц
спасибо заранее...

[gsg]

Function sal()

Dim arr(12, 18) As Integer
Dim month As Integer
Dim i As Integer
Dim salary As Double

'ввести данные в массив
month = InputBox("Введите месяц")
For i = 1 To 18
    salary = salary + arr(month, i)
Next i

salary = salary / i
MsgBox "средняя зарплата = " & salary


End Function

[Ольга93]

спасибо огромнейшее !!!!!!!!!!!!!!