请老师帮忙公式有关问题

请老师帮忙公式问题
请各位前辈，老师帮帮忙。

=SQRT(C3^2+D3^2)*COS(((E6-B6)*PI()/180)+ACOS(C3/SQRT(C3^2+D3^2)))
=SQRT(C3^2+D3^2)*SIN(((E6-B6)*PI()/180)+ACOS(C3/SQRT(C3^2+D3^2)))
=-SQRT(C10^2+D10^2)*SIN(((E10-B10)*PI()/180)+ATAN(-C10/D10))
=SQRT(C10^2+D10^2)*COS(((E10-B10)*PI()/180)+ATAN(-C10/D10))

上面得公式在VB里面如何表达，好像老是出错啊，

[解决办法]

VB code

Private Sub Form_Load()a1 = SQRT(C3 ^ 2 + D3 ^ 2) * Cos(((E6 - B6) * PI() / 180) + ACOS(C3 / SQRT(C3 ^ 2 + D3 ^ 2)))a2 = SQRT(C3 ^ 2 + D3 ^ 2) * Sin(((E6 - B6) * PI() / 180) + ACOS(C3 / SQRT(C3 ^ 2 + D3 ^ 2)))a3 = -SQRT(C10 ^ 2 + D10 ^ 2) * Sin(((E10 - B10) * PI() / 180) + ATAN(-C10 / D10))a4 = SQRT(C10 ^ 2 + D10 ^ 2) * Cos(((E10 - B10) * PI() / 180) + ATAN(-C10 / D10))