Помогите)Вывести фамилии сотрудников,которые хотя бы 1 раз получали минимальную зарплату по предприятию за год.Вот код:но там че-то не так получается.а исправить я не могу(Помогите,пожалуйста)
Private Sub CommandButton3_Click()
Dim i, j As Integer
Dim min(12) As Double
Dim b(12) As Integer
Rem Нахождение минимального элемента в таблице
For j = 1 To 12
min(j) = Зарплата(1, j)
For i = 2 To 10
If Зарплата(i, j) < min(j) Then min(j) = Зарплата(i, j)
Next i
Next j
Rem b(j)-номер первой свободной строки в каждом столбце
For j = 1 To 12
b(j) = 12
Next j
Rem Сравниваем зарплаты с минимальной в каждом месяце
For i = 1 To 10
For j = 1 To 12
If Зарплата(i, j) = min(j) Then b(j) = b(j) + 1: Cells(b(j), j + 1) = Фамилия(i)
Next j
Next i
End Sub

а вот и программа вся- http://depositfiles.com/files/8ypik9g7u
посмотрите (IMG:style_emoticons/default/rolleyes.gif)

что такое Зарплата? Где этот массив (или чем это ещё является) определен?

Прошу прощения... в файлике всё есть, гляжу...

Сейчас оно выводит фамилию сотрудника, получившего минимум по месяцу.
Когда сдавать?

Там еще 2 задания,но с ними я справилась,а вот с этим не могу(

Когда сдавать?
Завтра разберусь, спать хочется...

Насчёт задания: фамилия должна выводиться, если у неё была хотя бы в одном месяце минимальная зарплата?
Или должна выводиться фамилия получившего годовой минимум?

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

Если ещё нужно будет - отпишитесь

Спасибо)Но я и так сдала)))Уже экзамен автоматом поставили)Ураааааааа!!!!

(IMG:style_emoticons/default/thumbsup.gif)

Молодчина))