Sheets("Лист2").Cells(18 + i, 2) = cena(i)

Sheets("Лист2").Cells(18 + i, 15) = cena(i) * koll_n(i)

Next i 

'Здесь описан  алгоритм сравнения выручки и  выявления наиболее выгодной  для продажи модели.

For j = 1 To 12

Sheets("Лист2").Cells(29, 2 + j) = zar(j)

If zar(j) > zarpl Then zarpl = zar(j)

Next

‘ выявление максимальной выручки за год одной мдели

For i = 1 To 10

comb(i) = Sheets("Лист2").Cells(18 + i, 15)

If pic < comb(i) Then pic = comb(i) Else pic = pic

Next

‘выявление этой модели

For i = 1 To 10

If Sheets("Лист2").Cells(18 + i, 15) = pic Then num = i

Next 

'Ниже выводится  на лист с результатом работы  программы наименование наиболее  выгодной модели велосипеда и  годовой доход.

Sheets("Лист2").Select

Sheets("Лист2").Cells(29, 15) = zar(13)

Sheets("Лист2").Cells(31, 1) = "Годовой доход:"

Sheets("Лист2").Cells(31, 2) = zar(13)

Sheets("Лист2").Cells(32, 1) = "Прибыльная модель:"

Sheets("Лист2").Cells(32, 2) = Sheets("Лист2").Cells(18 + num, 1)

End Sub

6. Описание входных данных и результат вычислений

     Проверка  программы на всех единицах: 

Проверка на всех нулях:

Проверка на произвольных данных:

Исходные данные для задания № представлены на Рис.№1., решение – на Рис.2..

7. Список  использованной литературы

1. MS Office XP, 2003 Word, Excel, Access, Outlook, PowerPoint, FrontPage, MS Project/ А. К. Гультяев: Корона-Век, 2006
2. VBA. Практическое программирование/ Туркин Олег: Солон-пресс,2007
3. VBA/ Кузьменко В.Г.: Бином,2008.
4. Измерение, управление и регулирование с помощью макросов VBA в Word и Excel/ Берндт Г.-Й.: КОРОНА-Век, 2008
5. Информатика. Методические указания по выполнению практических работ в компьютерном классе (Access, Internet) / Гришин М.П., Юрасов А.Б. М.: МГИУ, 2003.
6. Информатика. Методическое пособие по выполнению практических работ в компьютерном классе (Word, Excel) / Гришин М.П. М.: МГИУ, 2005.
7. Информатика. Часть 1. Введение в информатику: учебное пособие / Гришин М.П., Иванов М.Н., Носова Т.К., Суворов С.В. М.: МГИУ, 2008.
8. Информатика. Часть 2. Программирование: Учебно-методическое пособие / Иванов М.Н., Суворов С.В. М.: МГИУ. 2006.
9. Моделирование с помощью Microsoft Excel и VBA. Разработка систем поддержки принятия решений/ Кристиан Олбрайт: Вильямс, 2005
10. Профессиональная разработка приложений Excel/ Стивен Буллен, Роб Боуви, Джон Грин: Вильямс, 2005
11. Самоучитель VBA/ Андрей Гарнаев: БХВ-Петербург,2004
12. Самоучитель программирования на VBA в Microsoft Office/В. Д. Хореев: Юниор, 2001
13. Электронные таблицы Microsoft Excel. Проблемы и решения/ Лори Анн Ульрих: Эком, 2002