Задача 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