Помощь - Поиск - Пользователи - Календарь
Полная версия: VBA > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
marina2010
Помогите)Вывести фамилии сотрудников,которые хотя бы 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
посмотрите rolleyes.gif
Vahappaday
что такое Зарплата? Где этот массив (или чем это ещё является) определен?

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

Сейчас оно выводит фамилию сотрудника, получившего минимум по месяцу.
Когда сдавать?
marina2010
Цитата(Vahappaday @ 10.6.2010, 23:54) *

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

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

Там еще 2 задания,но с ними я справилась,а вот с этим не могу(
Vahappaday
Когда сдавать?
Завтра разберусь, спать хочется...

Насчёт задания: фамилия должна выводиться, если у неё была хотя бы в одном месяце минимальная зарплата?
Или должна выводиться фамилия получившего годовой минимум?
marina2010
Цитата(Vahappaday @ 11.6.2010, 0:28) *

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

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

которые хотя бы 1 раз получали минимальную зарплату по предприятию за год.Но нужно уже завтра.Но ничего завтра может сама преподавательница поможет)Спасибо,что посмотрели)Спокойной ночи)
Vahappaday
Если ещё нужно будет - отпишитесь
marina2010
Цитата(Vahappaday @ 11.6.2010, 11:26) *

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

Спасибо)Но я и так сдала)))Уже экзамен автоматом поставили)Ураааааааа!!!!
tig81
thumbsup.gif
Vahappaday
Молодчина))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2024 Invision Power Services, Inc.