8-804-333-71-05
(бесплатно по РФ)
Диплом-центр.Ру - помогаем студентам в учёбе

У нас можно недорого заказать курсовую, контрольную, реферат или диплом

Главная / готовые работы / Отчеты по практике / Информатика

Условные операторы и программирование разветвления программы на VBA - Отчет по практике

Содержание

Лабораторная работа №10…3

Ход работы….….4

Контрольные вопросы….10

Вывод по проделанной работе…13

Введение (выдержка)

Лабораторная работа №10. Условные операторы и программирование разветвления программы на VBA

Цель работы: научиться на VBA: программировать разветвляющиеся вычисления с помощью инструкций IF-THEN-ELSE и SELECT CASE, а также устанавливать выборочный доступ к листам Excel по паролям

Порядок работы:

Уровень Примечание


А 1.На первых трех листах набрать «секретную» информацию. Защитить эти листы от записи в ячейки с помощью команд меню «Сервис» - «Защита» - «Защитить лист» и скрыть три первых листа (перед этим добавить лист 4) с помощью команд меню «Формат» - «Лист» - «Скрыть». Сохранить файл с «секретной» информацией на диске под именем LAB10ФИО.xls (при его открытии первые 3 листа должны быть не видны)

2.Через меню «Сервис-Макрос» вызвать редактор VBA, вставить модуль и набрать пример программы проверки пароля при автозагрузке файла с помощью инструкции IF-THEN-ELSE. Проверить и отладить ее работу в пошаговом режиме.

3. Поочередно открывать «секретный» файл LAB10ФИО.xls (при этом должен автоматически запрашиваться пароль). Показать, что при наборе пароля “LEVEL1” все три листа становятся видимыми с доступом к записи в ячейки, пароля” LEVEL2” – становится видимым лист 1 с доступом к записи в этот лист (лист 2 должен оставаться невидимым, а лист 3 – защищен от записи в ячейки), пароля” LEVEL3” – лист 1 появляется только для чтения ячеек. Любой другой пароль не должен показывать листы с «секретной» информацией. Максимум 30 баллов

4.Изменить программу доступа к листам по паролям в соответствии с вариантом индивидуального задания и добиться в правильности работы программы, проверяя ее в соответствии с п. 3.

В 5.Заменить инструкцию IF-THEN-ELSE на инструкцию SELECT CASE и добиться такой же работы программы. Пример найти в рекомендованной литературе (по ссылке, найденной в л.р.№2 и 3).

6.Изменить пароли “LEVEL1”, “LEVEL2”, “LEVEL3” на свои собственные и поставить пароль на саму программу. В отчете представить блок-схему разветвления программы по своему индивидуальному заданию. +40 баллов, если пройден уровень А

Основная часть (выдержка)

Индивидуальное задание: LEVEL1 – все три листа видимы, но защищены от записи, LEVEL2 – все три листа видимы и доступны для записи, LEVEL3 – видим, но защищен от записи только 3 лист

Пример программы:

Sub Auto_Open()

PassWord

End Sub

Sub PassWord()

Dim PassW As String

PassW = GetPassWord

If PassW = \"level1\" Then

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Sheet.Unprotect

Next

MsgBox \"Вы получили полный доступ\"

ElseIf PassW = \"level2\" Then

ActiveWorkbook.Worksheets(1).Visible = True

ActiveWorkbook.Worksheets(1).Unprotect

MsgBox \"Вы получили полный доступ к листу1\"

ElseIf PassW = \"level3\" Then ActiveWorkbook.Worksheets(1).Visible = True

MsgBox \" Вы получили доступ на чтение к листу1\"

Else

MsgBox \"Пароль неверен\"

End If

End Sub

Function GetPassWord()

GetPassWord = LCase(InputBox(\"ВВЕДИ ПАРОЛЬ: \", \"PassWord\"))

End Function

Ход работы.

Задание А.

1.Для того, чтобы начать работу, необходимо открыть Excel, написать на первых трёх листах любую “секретную информацию”. (информацию, которую нужно будет скрыть и защитить)


Лист1 Лист 2 Лист 3

Рисунок 1.1. Запись информации на листах.

2. Защищаем эти листы от записи в ячейки с помощью команд меню «Сервис» - «Защита» - «Защитить лист».


Рисунок 1.2.Защита листов.

3. Добавить лист 4. После этого скрыть три первых листа, с помощью команд меню «Формат» - «Лист» - «Скрыть».


Рисунок 1.3.Скрытые листы.

4.Сохранить файл с «секретной» информацией на диске под именем LAB10КирилловаКС.xls (при его открытии первые 3 листа должны быть не видны)

5. Через меню «Сервис-Макрос» вызвать редактор VBA, вставить модуль

Рисунок 1.5.Вставка модуля.

6. Набираем пример программы проверки пароля при автозагрузке файла с помощью инструкции IF-THEN-ELSE.


Рисунок 1.6. Программа проверки пароля.

7. Проверить и отладить ее работу в пошаговом режиме.


Рисунок 1.7. Проверка работы.

8.Поочередно открывать «секретный» файл LAB10ФаттаховРР.xls (при этом должен автоматически запрашиваться пароль)

9. При наборе пароля “LEVEL1” все три листа становятся видимыми с доступом к записи в ячейки.


Рисунок 1.9. При пароле “LEVEL1”.

10. При наборе пароля” LEVEL2” – становится видимым лист 1 с доступом к записи в этот лист (лист 2 должен оставаться невидимым, а лист 3 – защищен от записи в ячейки).


Рисунок 1.10.При пароле “LEVEL2”.

11. При наборе пароля” LEVEL3” – лист 1 появляется только для чтения ячеек.


Рисунок 1.11. При пароле “LEVEL3”.

12. Любой другой пароль не должен показывать листы с «секретной» информацией.


Рисунок 1.12.Проверка другим паролем.

13.Изменяем программу доступа к листам по паролям в соответствии с вариантом индивидуального задания и добиваемся в правильности работы программы.


Рисунок 1.13.Изменение программы и её проверка.

Контрольные вопросы:

1.Какие управляющие структуры для разветвления программ VBA вы знаете?

Управляющими конструкциями языка программирования называются инструкции и группы инструкций, применение которых позволяет изменять по мере необходимости последовательность выполнения остальных инструкций программы.

В современных языках программирования управляющие конструкции подразделяются на ветвления и циклы. Ветвлением называется управляющая конструкция, позволяющая пропускать при выполнении те или иные группы инструкций в зависимости от значения условия. Циклом называется управляющая конструкция, позволяющая многократно повторять выполнение группы инструкций до наступления какого-либо события.

2. Для чего предназначена структура ELSEIF?

Оператор ветвления (условный оператор) - это структура, которая представляет собой простую форму проверки заданных условий, впоследствии чего выполняются определенные операторы.

Оператор If…Then…Else…End if имеет следующий синтаксис:

If условие Then 1й_оператор Else 2й_оператор

1й_оператор выполняется в том случае, когда заданное условие является истиной, если же условие не равняется истине – тогда выполняется 2й_оператор.

3.Чем отличается структура IF от структуры SELECT CASE?

Заключение (выдержка)

В ходе данной лабораторной работы мы научились на VBA: программировать разветвляющиеся вычисления с помощью инструкций IF-THEN-ELSE и SELECT CASE, а также устанавливать выборочный доступ к листам Excel

Информация о работе

Тип: Отчет по практике
Страниц: 17
Год: 2021
900 p.
Не подошла эта работа?

Узнайте стоимость написания
работы по Вашему заданию.
ПОСМОТРЕТЬ ЦЕНЫ
Оформление заявки БЕСПЛАТНО и
ни к чему не обязывает.
Закажите авторскую работу по Вашему заданию!
Контрольная работа
от 100 p.
cрок: от 1 дня
Реферат
от 600 p.
cрок: от 1 дня
Курсовая работа
от 1000 p.
cрок: от 3 дней
Дипломная работа
от 6000 p.
cрок: от 6 дней
Отчет по практике
от 1000 p.
cрок: от 3 дней
Решение задач
от 150 p.
cрок: от 1 дня
Лабораторная работа
от 200 p.
cрок: от 1 дня
Доклад
от 300 p.
cрок: от 2 дней
Заказать работу очень просто!
Вы оформляете заявку
Получаете доступ в лк
Вносите предоплату
Автор пишет работу
Получаете уведомление
о готовности
Вносите доплату
Скачиваете готовую
работу из лк
X
X