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

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. Опишите алгоритмы накопления сумм и произведений. Что такое рекуррентная формула?