Abram Pupkin
Высший разум
(101953)
3 года назад
Sub Расчет (x, y)
Dim a
a = Log(y ^ -Sqr(Abs(x))) * (x - y / 2)
Worksheets("Лист1").Range("B4") = a
End Sub
так проще
Sub Result()
Dim x, y, a As Integer
x = Val(InputBox("Bведите значение X"))
y = Val(InputBox("Bведите значение Y"))
a = Log(y ^ -Sqr(Abs(x))) * (x - y / 2)
MsgBox a
End Sub
Option Explicit
Sub Result()
Dim x, y
Call Ввод (x, y)
Call Расчет (x, y)
End Sub
Sub Ввод (x, y)
x = Worksheets("Лист1").Range("B2")
y = Worksheets("Лист1").Range("B3")
End Sub
Sub Расчет (x, y)
Dim a
a = Log(y ^ -Sqr(Absx)) * (x - y / 2)
Worksheets("Лист1").Range("B4") = a
End Sub