Поможем написать учебную работу
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

Подписываем
Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Задание 1: Дана последовательность из n целых чисел. Найти минимальный и максимальный элементы в этой последовательности.
Порядок выполнения:
1.Запустить MS Excel, создать пустую рабочую книгу.
2. В ячейки таблицы ввести следующую информацию, согласно Рисунку 1, кроме ячеек F6 и F7, данные в них будут рассчитываться в макросе.
Рисунок 1 Результат работы макроса
3. Войти в пункт меню Сервис-Макрос- Редактор Visual Basic(Alt+F11) (Разработчик Visual Basic - для MS Excel2010).
4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.
5. В появившемся окне набрать текст программы, представленной ниже:
6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.
7. Используя команду меню Сервисы\Макрос\Макросы (Разработчик Макросы - для MS Excel2010), открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.
8. Изменить исходные данные в ячейках B4 - размер массива, в ячейках A7-A14 элементы массива (обратите внимание, что размер массива и количество введенных чисел должны совпадать!). Проверить правильность работы макроса.
Задание 2: Дана последовательность из n целых чисел. Найти количество и сумму чисел кратных x в этой последовательности. Число x вводится пользователем.
Порядок выполнения:
1.Запустить MS Excel, создать пустую рабочую книгу.
2. В ячейки таблицы ввести следующую информацию, согласно Рисунку 2, кроме ячеек F6 и F7, данные в них будут рассчитываться в макросе.
Рисунок 2 Результат работы макроса
3. Войти в пункт меню Сервис-Макрос- Редактор Visual Basic(Alt+F11) (Разработчик Visual Basic - для MS Excel2010).
4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.
5. В появившемся окне набрать текст программы, представленной ниже:
6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.
7. Используя команду меню Сервисы\Макрос\Макросы (Разработчик Макросы - для MS Excel2010), открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.
8. Изменить исходные данные и проверить правильность работы макроса.
Задание 3: Дана последовательность из n целых чисел. Найти количество отрицательных элементов с четным индексом. Отрицательные элементы с четным индексом выделить красным цветом в последовательности.
Порядок выполнения:
1.Запустить MS Excel, создать пустую рабочую книгу.
2. В ячейки таблицы ввести следующую информацию, согласно Рисунку 3, кроме ячейки F6, данные в ней будут рассчитываться в макросе. Красным цветом отдельные числа выделять также не надо.
Рисунок 3 Результат работы макроса
3. Войти в пункт меню Сервис-Макрос- Редактор Visual Basic(Alt+F11) (Разработчик Visual Basic - для MS Excel2010).
4. В окне Project explorer перейти по дереву проекта на ветвь VBAProject(имя книги)\Microsoft Excel objects\Эта книга, щелкнуть дважды по надписи “Эта книга”.
5. В появившемся окне набрать текст программы, представленной ниже:
6.Сохранить произведенные изменения, закрыть окно редактора Visual Basic и перейти в окно Microsoft Excel.
7. Используя команду меню Сервисы\Макрос\Макросы (Разработчик Макросы - для MS Excel2010), открыть окно Макрос. Выбрать созданный макрос и нажать на кнопку Выполнить.
8. Изменить исходные данные и проверить правильность работы макроса.