Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.43
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.43

Рассмотрим еще один пример применения цикла Do-Loop Until - для расчета корня уравнения F(x) = 0 методом Ньютона с выводом на рабочем листе промежуточных результатов ([2]).

Пусть требуется найти корни уравнения х3 -Зх + 1 = 0.

Запишем следующую программу для решения этой задачи:

Программирование в среде Visual Basic for Applications

Function F(x)

F = xA3-3*x + l л уравнение f (x) =x3-3x+l = 0 End Function

Function DF(x)

DF = 3*x/"2-3 л производная функции f(x)

End Function

Sub MN()

eps = Cells (2, 4).Value Range ("A3:C1000").Clear x = Cells (2, 1).Value 06113(2, 2).Value = F(x) Cells(2, 3).Value = DF(x) i = 3 Do

xO = x

x = x - F (x) /DF (x)

Cells (i, 1)/Value = x

Cells (i, 2)/Value = F(x)

Cells (if 3)/Value = DF(x)

i = i + 1 Loop Until Abs(x - xO) <= eps i = i - 1

Set Reg = Range(Cells(i, 1), Cells(i, 2)) Reg. Font. Size = 14 'Размер символов Reg. Interior.Colorlndex = 6 Л Цвет символов End Sub

Функция DF вычисляет значение производной функции F. Точность вычислений введена в ячейку D2, а начальное приближение - в ячейку А2 рабочего листа. Найденные значения (корень и значение функции) выводятся шрифтом повышенного кегля, причем фон ячеек окрашен в желтый цвет.

Существуют следующие операторы безусловного выхода из блока:

• Exit Do - выход из цикла Do-Loop,

• Exit For - выход из цикла For-Next,

• Exit Function - выход из функции Function,

• Exit Sub - выход из процедуры Sub,

• Exit Property - выход из процедуры Property.

11. Панель инструментов «Элементы управления»

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

Панель инструментов Элементы управления (рис. 11.1), обычно содержит следующие кнопки:

• Выбор объектов.

• Надпись.

• Поле.

• Поле со списком.

• Список.

• Флажок.

• Переключатель.

• Выключатель.

• Рамка.

• Кнопка.

• Набор вкладок.

• Набор страниц.

• Полоса прокрутки.

• Счетчик.

• Рисунок.

• ЯегЕс1к.


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta