已知任意三角形三条边求夹角

[goosen]

已知任意三角形三边 如何求夹角 :
A
/\
/ \
/ \
B /______\C

如∠ABC 已知 AB=50.23 BC=20.56 AC=30.5


'cosA=(b^2＋c^2－a^2)/2bc；
'cosB=(a^2＋c^2－b^2)/2ac；
'cosC=(a^2＋b^2－c^2)/2ab

这个公式在VB中要怎么样写才能算出角度呢

[goosen]

最后的结果要是:8度 159度 13度

[SYSSZ]

Private Sub Form_Load()
Dim a, b, c, X, Y, Z As Double
a = 50.23
b = 20.56
c = 30.5
X = (b ^ 2 + c ^ 2 - a ^ 2) / 2 * b * c
Y = (a ^ 2 + c ^ 2 - b ^ 2) / 2 * a * c
Z = (a ^ 2 + b ^ 2 - c ^ 2) / 2 * a * b
jA = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
jB = Atn(-Y / Sqr(-Y * Y + 1)) + 2 * Atn(1)
jC = Atn(-Z / Sqr(-Z * Z + 1)) + 2 * Atn(1)
End Sub

[goosen]

不行哦。
无效的调用过程or参数

[东方之珠]

数学基础挺好，会查数学用表，演绎莫出差错，水平无关电脑！