Редактор VBA. Оператор цикла с условием.

Цель работы:

· познакомиться с алгоритмом типа «цикл», оператором цикла с условием;

· получить навыки создания программного модуля с использованием оператора цикла с условием Do-Loop.

Теоретическая часть

Рамочные служебные слова Do – «делать», «выполнять», Loop – «оборот».

Это универсальный оператор цикла для выполнения наборов инструкций (операторов) неопределённое (произвольное) число раз в зависимости от результата текущего анализа внутреннего условия. имеется четыре формата записи, которые можно разделить на две группы.

Первая группа – повторение инструкций, пока (While) условие имеет значение истина (True)

Вариант 1 первой группы: проверка условия до входа в цикл (рис. 58)

 

 

Рис. 58. Оператор цикла с условием

 

 

В этом варианте возможно, что цикл не будет выполняться ни разу, если условие сразу ложь.

Вариант 2 первой группы: проверка условия на выходе из цикла

Do

Тело цикла

Loop While условие

 

В этом варианте цикл будет выполняться хотя бы один раз.

Вторая группа – повторение инструкций, до тех пор, когда (Until)) условие примет значение истина.

Вариант 1 второй группы: проверка условия до входа в цикл

Do Until условие

Ложь

Тело цикла

Loop

 

В этом варианте возможно, что цикл не будет выполняться ни разу, если условие сразу истина.

Вариант 2 второй группы: проверка условия на выходе из цикла

Do

Тело цикла

Loop Until условие

 

В этом варианте цикла будет выполняться хотя бы один раз.

Оборудование, инструменты и приборы

 

ПЭВМ, программное обеспечение Microsoft Office (Excel 2007).

 

Варианты заданий

Составить алгоритм, эскиз окна формы и программный код для решения задач, приведенных в таблице 3.4.

 

Таблица 3.4

Варианты заданий

№ варианта	Задание
	Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму пробега на 10% от нормы предыдущего дня. В документе «Пробег дня 20 км» реализовать проект (сконструировать форму и набрать программу), в котором определить, через сколько дней спортсмен будет пробегать в день больше 20 км. Рекомендации. 1. Имена переменных, используемых в программе, назначать русскими словами, а не абстрактными латинскими буквами. 2. Переменная, обозначающая счётчик дней, должна быть целого типа (Integer); другие переменные – вещественного типа одинарной точности (Single).
	Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму пробега на 10% от нормы предыдущего дня. В документе «Сумма пробега 100 км» реализовать проект, в котором определить, через сколько дней спортсмен пробежит суммарный путь 100 км. Рекомендации. 1. Имена переменных, используемых в программе, назначать русскими словами, а не абстрактными латинскими буквами. 2. Переменная, обозначающая счетчик дней, должна быть целого типа (Integer); другие переменные – вещественного типа одинарной точности (Single).
	Найти сумму значений функции f(x)=(x^2/2-1)/x для х=2, 4, 8, 16.
	Сколько чисел последовательности 1, 4, 7, 10, … нужно взять, чтобы их сумма превысила 100? Вывести величину последнего слагаемого и сумму.

 

 

Продолжение табл. 3.4

	Вычислить сумму .
	Найти произведение значений функции x= при а= 2, 4, 6, 8, 10.
	Найти сумму значений функции F(x)= , которые меньше 3. Расчёт выполнить на отрезке (-3; 2) с шагом 0,2.
	Найти произведение нечетных чисел от 41 до 89.
	Некто захотел подковать свою лошадь и обратился к кузнецу с просьбой взять с него подешевле. Кузнец предложил: «Заплати мне только за гвозди, которых я затрачу 24 штуки. За первый гвоздь заплати четверть рубля, за второй – половину рубля, за третий – один рубль и т.д. Все время удваивая плату за каждый следующий гвоздь.» Сколько стоит последний гвоздь и какова сумма платежа?
	Вычислить сумму 1*2+2*3+3*4+4*5+…+(n-1)*n, если дано натуральное число n>2.
	Определить, сколько чисел последовательности 2, 4, 6, 8, … нужно взять, чтобы их сумма превысила 100. Вывести величину последнего слагаемого и суммы.
	Некто продаёт свою лошадь по числу гвоздей на подковах, которых у неё 16. За первый гвоздь продавец просит 1 рубль, за второй – 2 рубля, и всегда за каждый следующий – вдвое больше, чем за предыдущий. Во сколько оценена лошадь?
	Найти произведение четных чисел от 50 до 100.
	Вычислить значение суммы S=х+2х^2+3х^3+4х^4+…+ nх^nпри х и n, вводимых с клавиатуры и отличных от нуля.
	Вывести произведение элементов последовательности bn= при n=3, -1, 1/3, -1/9.
	Вычислить 28 элементов последовательности kn= , начиная с 5-го элемента.
	Одноклеточная амёба каждые три часа делится на 2 клетки. Определить, сколько амёб будет чере3, 6, 9, 12,… 24 часа.
	Составить программу, которая запрашивает пароль (например, четырёхзначное число) до тех пор, пока он не будет правильно введен.
	Вычислить значения функции y=x^3+bx-с при х=2, 4, 6.

 

 

Продолжение табл. 3.4

 

	Задана последовательность чисел 3, 5, 6, 8, 9, 11, 15, 16, 20, 21. Вычислить суммы пар чисел: первого и десятого, второго и девятого,…, пятого и шестого.
		Вычислить произведение целых нечетных чисел от m до n (m<n).
		Вычислить значение многочлена z=3x^5-x^4+6x^3-2x^2+7x+5 при одном значении x.
		Задана последовательность из n чисел: 3, 4, 7, 8, -9,12… определить сумму положительных элементов этой последовательности.
		Найти сумму всех n-значных чисел (1≤n≤4).
		Найти сумму всех n-значных чисел, кратных k (1≤n≤4).
		Сумма геометрической прогрессии вычисляется как сумма следующего ряда: Вычислить сумму при =1 и =1/2 с допустимой погрешностью =0.0001, т.е. должно быть Проверочное значение
		Вычислить значение числа (основание натурального логарифма) как сумму ряда с погрешностью, не превышающей 0,000001.
		Вычислить значение функции при как сумму ряда с погрешностью, не превышающей 0,000001.
		Вычислить значение функции при как сумму ряда с погрешностью, не превышающей 0,000001.
		Вычислить значение функции при как сумму ряда с погрешностью, не превышающей 0,001.

Порядок выполнения работы

1.Создать Excel-документ и сохранить его в бригадной папке под именем “Сумма чисел”.

2.Запустить редактор VBA и вставить в рабочее поле форму проекта.

3.Задать имя проекта “Проба Do_Loop”.

4.Задать заголовок на форме “Суммирование ряда целых чисел от 1 до 5”.

5.Создать в форме командную кнопку с именем “CmdРешение” и надписью “Пуск”.

6.Создать в форме надпись (метку) “Сумма”, а под ней – текстовое поле для вывода результата (имя поля оставить стандартным TextBox1).

7.Создать следующий программный модуль:

 

Private Sub CmdРешение_Click()

 

Dim s As Integer, i As Integer

s=0 ‘Начальное значение суммы

i=1 ‘Начальное значение ряда чисел

 

Do While i<=5

s=s+I ’Накопление суммы

i=i+1 ’Задание очередного числа

Loop

TextBox1.Text=s

End Sub

 

8.Сохранить разработанный проект и выполнить созданную программу.

9.Закрыть редактор VBA и подготовить для дальнейшей работы 3 копии исходного файла "Сумма чисел” под именами “While в конце”, ”Until в начале”, ”Until в конце”.

10.Открыть последовательно подготовленные копии исходного файла, выполнить необходимые изменения в тексте исходной программы, поставив служебные слова While и Until, как указано, в имени файла, выполнить измененные программы и сохранить их при успешном выполнении.

11.Создать два Excel-документа и сохранить их в бригадной папке под именами «Пробег дня 20 км» и «Сумма пробега 100 км».

12.Начать реализацию расчёта двух показателей тренировок спортсмена-бегуна.

13. В конце работы самостоятельно реализовать проект по варианту, заданному преподавателем.

14. Завершить работу щелчком ЛКМ на пункте «Завершение сеанса <имя группы>».

Содержание отчета

Отчет должен содержать:

· номер, название и цель работы;

· краткую теоретическую часть, включающую описание формата оператора цикла с условием;

· результаты выполнения работы согласно заданию, выданному преподавателем, а именно: текст составленных программ с пояснениями к ним, структуру окна формы задачи, описание действий по выполнению программ, результаты выполнения программы;

· заключение по работе.

Контрольные вопросы

 

1. Синтаксис оператора цикла с условием.

2. До каких пор продолжается выполнение цикла Do While … Loop?

3. До каких пор продолжается выполнение цикла Do Until … Loop?

4. С помощью какого оператора реализуется преждевременный выход из цикла?

5. Где в цикле Do While … Loop размещается условие?

 

 

ЛАБОРАТОРНАЯ РАБОТА № 18