5.3. Линейные программы. Расчет по формулам

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

Пример 5.3. Для значений x = 15, a = 3.75 и m = 0.5 ∙ 10^–4 вычислить значение z по следующим формулам:.

В первом варианте программы ввод исходных данных организован с клавиатуры, вывод – в окно сообщений:

Sub CommandButton1_Click()

Dim x As Single, a As Single, m As Single

Dim w As Single, z As Single

x = Val(InputBox("Введите x"))

a = Val(InputBox("Введите a"))

m = Val(InputBox("Введите m"))

w = 0.1 * x * a * (1 - m ^ 2)

z = Sin(w / (2 + w))

MsgBox (w) : MsgBox (z) ‘ два оператора на одной строчке

End Sub

Во втором варианте программы ввод данных организован из ячеек листа Excel, вывод – в ячейки листа. Используются объекты Range и Cells:

Sub CommandButton1_Click()

Dim x As Single, a As Single, m As Single

Dim w As Single, z As Single

a = Worksheets("Лист1").Range("B3")

m = Worksheets("Лист1").Range("B4")

w = 0.1 * x * a * (1 - m ^ 2)

z = Sin(w / (2 + w))

Worksheets("Лист1").Range("B8") = w

Worksheets("Лист1").Cells(2,9) = z

End Sub