Записи и подпрограммы
Сибирская Региональная школа бизнеса
Контрольная работа №3
Записи и подпрограммы
Дисциплина: Visual Basic for Application (VBA)
Выполнил:
Специальность: ПО ВТ и АС
Группа: Т-401
2005
В 3
- На рабочем листе Excel создать следующую таблицу:
Фамилия№ маршрутаДлина маршрутаКоличество остановок
- Написать программу, в которой вызываются подпрограмма-процедура, считывающая эту таблицу с листа Excel, и подпрограмма-функция, вычисляющая общее количество остановок по всем маршрутам.
Решение.
На рабочем листе Excel создайте таблицу:
Фамилия№ маршрутаДлинна маршрутаКоличество остановокИванов121005Петров212502Иголкин1501Сидоров3050025Плахов2100050Валиков14503Курчатов561252microsoft excel программа таблица
Порядок написания программы:
После первой фразы нажмите «Insert» и выберете «Procedure», затем в «Type» выберете «sub», а в «Score» - «Private».
После «end sub» снова нажмите Insert» и выберете «Procedure», затем в «Type» выберете «function», а в «Score» - «Private».
Программный код:ExplicitSub main()j As Integer, marshrut As Integerj = 1 To 4= Cells(1, j + 4)jSubFunction kam()i As Integer, ost As Integer= 0i = 2 To 8= ost + Cells(i, 4)i(9, 2) = "Общее количество остановок =": Cells(9, 4) = ost
End Function