IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> VBA
marina2010
сообщение 10.6.2010, 17:26
Сообщение #1


Студент
**

Группа: Продвинутые
Сообщений: 68
Регистрация: 15.12.2009
Город: Саранск
Учебное заведение: ВУЗ



Помогите)Вывести фамилии сотрудников,которые хотя бы 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)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Vahappaday
сообщение 10.6.2010, 19:54
Сообщение #2


Аспирант
***

Группа: Продвинутые
Сообщений: 334
Регистрация: 26.4.2009
Город: Липецк
Учебное заведение: ЛГТУ
Вы: студент



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

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

Сейчас оно выводит фамилию сотрудника, получившего минимум по месяцу.
Когда сдавать?
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
marina2010
сообщение 10.6.2010, 20:12
Сообщение #3


Студент
**

Группа: Продвинутые
Сообщений: 68
Регистрация: 15.12.2009
Город: Саранск
Учебное заведение: ВУЗ



Цитата(Vahappaday @ 10.6.2010, 23:54) *

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

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

Там еще 2 задания,но с ними я справилась,а вот с этим не могу(
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Vahappaday
сообщение 10.6.2010, 20:28
Сообщение #4


Аспирант
***

Группа: Продвинутые
Сообщений: 334
Регистрация: 26.4.2009
Город: Липецк
Учебное заведение: ЛГТУ
Вы: студент



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

Насчёт задания: фамилия должна выводиться, если у неё была хотя бы в одном месяце минимальная зарплата?
Или должна выводиться фамилия получившего годовой минимум?
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
marina2010
сообщение 10.6.2010, 20:33
Сообщение #5


Студент
**

Группа: Продвинутые
Сообщений: 68
Регистрация: 15.12.2009
Город: Саранск
Учебное заведение: ВУЗ



Цитата(Vahappaday @ 11.6.2010, 0:28) *

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

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

которые хотя бы 1 раз получали минимальную зарплату по предприятию за год.Но нужно уже завтра.Но ничего завтра может сама преподавательница поможет)Спасибо,что посмотрели)Спокойной ночи)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Vahappaday
сообщение 11.6.2010, 7:26
Сообщение #6


Аспирант
***

Группа: Продвинутые
Сообщений: 334
Регистрация: 26.4.2009
Город: Липецк
Учебное заведение: ЛГТУ
Вы: студент



Если ещё нужно будет - отпишитесь
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
marina2010
сообщение 12.6.2010, 5:54
Сообщение #7


Студент
**

Группа: Продвинутые
Сообщений: 68
Регистрация: 15.12.2009
Город: Саранск
Учебное заведение: ВУЗ



Цитата(Vahappaday @ 11.6.2010, 11:26) *

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

Спасибо)Но я и так сдала)))Уже экзамен автоматом поставили)Ураааааааа!!!!
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
tig81
сообщение 12.6.2010, 6:22
Сообщение #8


Академик
********

Группа: Преподаватели
Сообщений: 15 617
Регистрация: 15.12.2007
Город: Украина, Запорожье
Учебное заведение: ЗНУ
Вы: преподаватель



(IMG:style_emoticons/default/thumbsup.gif)
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Vahappaday
сообщение 12.6.2010, 20:17
Сообщение #9


Аспирант
***

Группа: Продвинутые
Сообщений: 334
Регистрация: 26.4.2009
Город: Липецк
Учебное заведение: ЛГТУ
Вы: студент



Молодчина))
Пользователь в офлайнеКарточка пользователяОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия Сейчас: 28.4.2024, 21:41

Книжки в помощь: "Сборник заданий по высшей математике" Кузнецов Л.А., "Сборник заданий по высшей математике" Чудесенко В.Ф., "Индивидуальные задания по высшей математике" Рябушко А.П., и другие.




Зеркало сайта Решебник.Ру - reshebnik.org.ru