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

Question

已知任意三角形三边   如何求夹角   :
           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中要怎么样写才能算出角度呢

Answer 1

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