Лекция: 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

End Sub

Здесь ввод исходных данных и вывод результата организован из ячеек рабочего листа и в ячейки рабочего листа.

Если использовать относительные ссылки, то эта же процедура может выглядеть следующим образом:

Private Sub CommandButton1_Click()

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

x = Worksheets(«Лист1»).Cells(17, 3)

a = Worksheets(«Лист1»).Cells(18, 3)

m = Worksheets(«Лист1»).Cells(19, 3)

w = exp(x) * a * (1 — m ^ 2)

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

Worksheets(«Лист1»).Cells(24, 7) = w

Worksheets(«Лист1»).Cells(24, 8) = z

End Sub

Можно организовать ввод данных с клавиатуры, а вывод результатов – в окно сообщений. Тогда процедура примет такой вид:

Private Sub CommandButton2_Click()

Dim x As Single, a As Single

Dim m As Single, w As Single

Dim z As Single

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

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

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

w = 0.5*Sqr(x*a*abs(1 — m * m))

z = cos(log(w)/( 2 + w))

MsgBox (“w=” & w )

MsgBox (“z=” & z )