Задача 2.

Построить график функции на Листе 4 . Значения аргумента задать таким образом, чтобы получить на графике не менее 10 точек, а значения вычислялось по разным условиям (ветвям). Для вычислений использовать функцию if

.


Использование оператора Do…Loop
.

Оператор Do…Loop. Основная форма выполнения циклических действий с неизвестным числом повторений в VB. 3. Формат записи с предусловием (в строке Do): Do [{While | Until} условие на (продолжение|выход)] [повторяющиеся действия] [Exit Do] [ повторяющиеся действия] Loop 4. Формат записи с постусловием (в строке Loop): Do [ повторяющиеся действия] [Exit Do] [ повторяющиеся действия] Loop [{While | Until} условие на (продолжение|выход) Примеч.: Do –делать, While – пока, Until – до, Loop – петля, Exit - выход. Пример:.1) Do While X<10 X=X+1 Loop 2) Do Until X=10 X=X+1

Loop

 

Создать макрос, который производит умножение содержимого группы ячеек на фиксированное значение.

4.1. Перейдите в окно MS Excel. Сделайте текущим Лист2.

4.2.Заполните столбец А на 10строк любыми числами.

4.3. Заполните ячейку В1 числом 5.

4.4. Вызовите окно VBA.

4.5.В нем отражается код Листа1. Вызовите окно кода другого листа: в окне Project щелкните двойным щелчком Лист2.

4.6.Создайте процедуру Умножение(), в которой реализуйте следующий алгоритм. Разберитесь с каждой строкой.

4.7.В окне MSExcel разместите кнопку *, которой назначьте макрос Умножение(). Проверьте работу макроса.

4.8.При выполнении программа заполнила в столбце С не 10 строк, а 11. Все правильно, т.к. проверка в строке Loop указала, что Пока Х меньше или равно 10 – продолжать, вот при X = 10 она продолжила работу. В окне кода удалите равно. Переключитесь на Лист2 сотрите значения в столбце С. Проверьте работу кнопки.

4.9.В окне кода замените форму условия, т.е. в строке Loop условие замените на Until X=10 (т.е. продолжать до 10).

4.10.Проверьте результат работы кнопки.

4.11.Самостоятельно поэкспериментируйте с другими значениями и способами организации предусловия.

 

5. Процедура While…Wend.

5.1.Активизируйте Лист 3.

5.2.Заполните столбец А как п.3.2.

5.3.Организуем цикл, подобный макросу Умножение(). Для чего в окне VBA выделите и скопируйте в буфер текст Умножение(). Откройте окно кода Лист3 и вставьте из буфера процедуру.

5.4.Измените Do..Loop на While…Wend.

While X < 10

X = X + 1

Cells(X, 3) = Range("B1") * Cells(X, 1)

Wend