Автор: Анастасия Никифорова, 28 Августа 2010 в 14:09, курсовая работа
Описание и выведенние переменных с использованием программы VBA
1. Задание на курсовую работу
В течение пяти дней (рабочая неделя) рабочий изготавливает детали семи различных типов. Известно количество изготовленных им деталей за каждый день и стоимость изготовления одной детали каждого типа (стоимость изготовления детали не меняется).
Написать программу, которая вводит данные, выполняет расчет и выводит на экран:
исходные данные в виде таблицы, где перечислены наименования деталей, стоимость изготовления, количество деталей, изготовленных за каждый день;
количество деталей каждого типа, изготовленных за неделю;
заработок за каждый день;
день с наибольшим заработком.
For j = 1 То 5
Sheets("Результат").Сеlls(22, 2 + j) = zar(j)
If zar(j) > zarpl Then
zarpl = zar(j)
den = j
End If
Next
'Ниже выводится на лист с результатом работы программы заработок рабочего за неделю, день максимального заработка и сколько он заработал в этот день.
Sheets("Результат").Сеlls(22,
Sheets("Результат").Сеlls(23,
Sheets("Результат").Сеlls(23,
Sheets("Результат").Сеlls(24,
Sheets("Результат").Сеlls(24,
Sheets("Результат").Сеlls(24,
Sheets("Результат").Сеlls(24,
End Sub
6. Описание входных
данных и результат
вычислений
Проверка
программы на всех единицах:
Проверка на всех нулях:
Проверка на произвольных данных:
Исходные данные для задания № представлены на Рис.№1., решение – на Рис.2..