Свойства объектов управления

Элемент управления	Значение свойства:
	Caption	Name
CommandButton	Старт	CommandButton1
ListBox		ListBox 1
CommandButton	Выход	CommandButton1

Идентификаторы

Переменная или константа	Тип	Идентификатор
Независимая переменная h	вещественная (Single)	h
Зависимая переменная x	вещественная (Single)	x
Зависимая переменная p	вещественная (Single)	s
Зависимая переменная i	вещественная (Integer)	i

Листинг программного кода

Private Sub CommandButton1_Click()

Dim i As Integer

Dim x As Single

Dim h As Single

ListBox1.Clear

x = 0

p = 1

h = 0.3

For i = 1 To 17

p = p * (1.5 - Sin(x ^ 2)) ^ 2

ListBox1.AddItem (" x= " + Format(x, " 0.00") + " p=" + Format(p, " 0.00000"))

x = x + h

Next i

End Sub

Private Sub CommandButton2_Click()

End

End Sub

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

1. Дайте определение циклического вычислительного процесса, его четырёх основных частей, раскройте их содержание. Что такое переменная цикла?

2. Организация циклических вычислительных процессов с заданным числом повторений с помощью оператора For ... Next. Синтаксис оператора For ... Next. Какой оператор проверяет условие завершения цикла? Правила использования оператора For ... Next.

3. Организация итерационных циклических вычислительных процессов с помощью операторов If, Do ... Loop, While ... Wend. Синтаксис операторов Do ... Loop, While ... Wend.

4. Что такое вложенный цикл? Правила вложения циклов.

5. Опишите алгоритмы накопления сумм и произведений. Что такое рекуррентная формула?

Лабораторная работа № 6

Программирование итерационных циклических вычислительных процессов. Элементы управления: Рамка, Флажок, Переключатель

Цель работы: изучение принципов построения итерационных циклических вычислительных процессов.

В тех случаях, когда нет возможности указать начальное и конечное значения переменной цикла, используют циклы типа Do-Loop.

Для таких циклов возможны 4 варианта записи:

условие True в начале цикла Do While <условие> <инструкции, исполняемые в цикле> Loop	условие False в начале цикла Do Until <условие> <инструкции, исполняемые в цикле> Loop
условие True в конце цикла Do <инструкции, исполняемые в цикле> Loop While <условие>	условие False в конце цикла Do <инструкции, исполняемые в цикле> Loop Until <условие>

В число инструкций, исполняемых в цикле, может быть включена инструкция Exit Do, если из цикла надо выйти «досрочно», например, при выполнении какого-нибудь дополнительного условия. Заметим, что Do While означает Выполнять пока… Do Until означает Выполнять пока не … Другими словами, вместо Do Until можно написать Do While Not. В некоторых случаях эти проверки удобнее ставить в конец цикла (Loop – цикл, дословно – «петля»).

Задание: в соответствии с заданным вариантом создать приложение для вычисления суммы членов бесконечного сходящегося ряда — 2—iⁿ ,учитывая слагаемые, превышающие по модулю погрешность ε. Предусмотреть вывод значения первого из отброшенных членов ряда, его номер и значение суммы для значений погрешности ε: 10^-3, 10^-5,10^-7. Для выбора величины погрешности использовать объект OptionButton. Для ввода значения х воспользоваться объектом TextBox. При выводе значения суммы учесть погрешность s, с которой она была вычислена.