Сибірська Регіональна школа бізнесу
Контрольна робота № 3
Записи та підпрограми
Дисципліна: Visual Basic for Application (VBA)
Виконав:
Спеціальність: ВО ОТ і АС
Група: Т-401
2005
У 3
На робочому листі Excel створити наступну таблицю:
Прізвище № маршрутаДліна маршрутаКолічество зупинок
Написати програму, в якій викликаються підпрограма-процедура, що зчитує цю таблицю з аркуша Excel, і підпрограма-функція, що обчислює загальну кількість зупинок по всіх маршрутах.
Рішення.
На робочому листі Excel створіть таблицю:
Прізвище № маршрутаДлінна маршрутаКолічество align = "justify"> microsoft 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