Задание 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.