将复数化为三角表达式与指数表达式，用Mathematica怎么实现?

第一问如果是版本10你可以看看AbsArg。版9的话：
{Abs@
#, Arg@#
} &[1 - Sqrt[3] I]

#1 Exp@#
2 & @@%

# Cos@HoldForm@#
2 + I
# Sin@HoldForm@#
2 & @@ %%
比较麻烦的其实是第二问，怎么利用化简函数把ArcTan@Tan@θ化掉一时想不出来，唉呀算了就这样吧反正约等于已经出来了：
Simplify[ComplexExpand[{Abs@
#, Arg@#
} &[1 + I Tan@θ],
TargetFunctions -> {Re, Im}], Pi < θ < 3 Pi/2]

#1 Exp@#
2 & @@ %

# Cos@HoldForm@#
2 + I
# Sin@HoldForm@#
2 & @@ %%