Линейные программы

В линейных программах выполняются расчеты по формулам и другие действия, не требующие разветвления процессов и их повторов.

Пример. Пусть требуется для x = 1,5 a = 3,75 m = 0.5 10^-4 вычислить значения переменных wиz по формулам:

Оформим Лист2 согласно образцу на рис 4.3:

Рис. 4.3. Образец оформления линейной программы на листе Excel

Для кнопки «Вычислить» напишем следующую процедуру:

Private Sub CommandButton1_Click()

Dim x As Single, a As Single, m As Single, w As Single, z As Single

x = Worksheets("Лист2").Range("c17")

a = Worksheets("Лист2").Range("c18")

m = Worksheets("Лист2").Range("c19")

w = 0.5 * Sqr(x * a * Abs(1 - m * m))

z = Cos(Log(Abs(w)) / (2 + w))

Worksheets("Лист2").Range("g25") = w

Worksheets("Лист2").Range("h25") = z