Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Лабораторная работа. Занятие 1. VBA.
Задание 1: Ввести с клавиатуры 2 числа. Увеличить большее из низ на 1, если числа равны, вывести соответствующее сообщение. Блок-схема решения задачи:
Порядок выполнения программной реализации задачи: 1.Запустить MS Excel, создать пустую рабочую книгу. 2. В ячейки таблицы В1 и В2 занести числовые данные. 3. Войти в пункт меню Разработчик – Visual Basic - (Alt+F11). Если вкладка меню Разработчик отсутствует, то ее необходимо добавить в меню Файл ® Параметры ® Настроить л енту
4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”. 5. В появившееся окно необходимо ввести программный код решения задачи. 6. Сохранить произведенные изменения в формате «книга Excel с поддержкой макросов», закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel. 7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить. 8. Проверить правильность работы макроса. 9. Тестирование программного кода. Вести в ячейки другие числа, например, 7 и 9. Удалить значение и ячейки для вывода результата. Перейти в окно редактора макроса и открыть код. Установить курсор перед оператором IF, затем выбрать пункт меню Debug ® Toggle Breakpoint (точка остановки выполнения программного кода). Точку прерывания можно установить на любой строке программного кода. Запустим программный код выбрать пункт меню Run ® Run Sub Программа прекратит выполняться в точке прерывания. Если навести курсор на переменную x или y, то увидим значение, которое содержится в этой переменной. Нажав клавишу F8 программный код будет выполняться пошагово. Т.к. веденные числа не равны, то первое условие не будет выполняться и программа перейдет на проверку следующего условия. Следующие условие также не будет выполняться и программа перейдет на последнюю ветку условия Else (в противном случае), выполнив команду этого условия. После выполнения всех строк кода в ячейку В4 будет выведен результат. Задание 2: Вывести таблицу умножения для указанного пользователем числа.
Порядок выполнения: 1.Запустить MS Excel, создать пустую рабочую книгу. 2. В ячейку таблицы A1 ввести текст “Таблица умножения на: ”, в ячейку A2 целое число. 3. Войти в пункт меню Разработчик – Visual Basic. 4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”. 5. В появившемся окне набрать текст программы, представленной ниже: 6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel. 7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить. 8. Проверить правильность работы макроса. Удалить выведенный результат, установить точку остановки на цикле FOR и после выполнения каждой команды цикла перейти на лист Excel для просмотра результата выполнения команды.
Задание 3: Подсчитать количество положительных четных чисел среди десяти, вводимых пользователем.
Порядок выполнения: 1.Запустить MS Excel, создать пустую рабочую книгу. 2. В ячейки таблицы A1: A10 занести числовые данные.. 3. Войти в пункт меню Разработчик – Visual Basic. 4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”. 5. В появившемся окне набрать текст программы, представленной ниже:
6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel. 7. Используя команду меню Разработчик – Макросы, открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить. 8. Проверить правильность работы макроса.
Самостоятельно: Написать программу для решения системы уравнений: Значение Х вводится произвольно в ячейку B1, результат вычисления Y вывести в ячейку B9.
|