Записи и подпрограммы

Записи и подпрограммы

Сибирская Региональная школа бизнеса

Контрольная работа №3

Записи и подпрограммы

Дисциплина: Visual Basic for Application (VBA)

Выполнил:

Специальность: ПО ВТ и АС

Группа: Т-401

2005

В 3

1. На рабочем листе Excel создать следующую таблицу:

Фамилия№ маршрутаДлина маршрутаКоличество остановок

1. Написать программу, в которой вызываются подпрограмма-процедура, считывающая эту таблицу с листа 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