Характеристика программы на языке VBA, которая вводит исходные данные, выполняет расчеты и вывод (стр. 2 из 2)

For i = 1 To 10

For j = 1 To 12

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

zar(j) = zar(j) + koll(i, j) * cena(i)

zar(13) = zar(13) + koll(i, j) * cena(i)

Next j

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)

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

For i = 1 To 10

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

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

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

For i = 1 To 10

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

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

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