НМ
Наталья Махначева
Процедура
Sub V()
Dim r As Double
Dim h As Double
Dim v As Double
r = 12
h = 10
v = WorksheetFunction.Pi() * (r ^ 2) * h
MsgBox v
End Sub
Функция
Function dV(r as Double, h as Double) as Double
dv = WorksheetFunction.Pi() * (r ^ 2) * h
End Function