Задания по иформатике

[Denis07]

Помогите пож. выполнить задания в VBA по информатике:
1) Составить программу вычисления площади и периметра кругового сектора радиуса R и углом при вершине α(альфа) градусов.
2) Составить программу вычисления площади и периметра кругового кольца с радиусами R и r (r<R).

[DiemonStar]

Function Площадь#(ByVal R#, ByVal Alfa#, Optional ByVal LowR# = 0)
  Площадь = (Alfa * (R * R - LowR * LowR)) / 2
End Function

Function Периметр#(ByVal R#, ByVal Alfa#, Optional ByVal LowR# = 0)
  Периметр = Alfa * (R + LowR) + 2 * (R - LowR)
End Function

угол Alfa в радианах.