已知三角形三个边的长度值,求三个角的大小

最新推荐文章于 2022-12-05 16:15:52 发布

northwolves

最新推荐文章于 2022-12-05 16:15:52 发布

阅读量5.3k

点赞数

分类专栏：其他技巧数字计算技巧文章标签： function command c string join

本文链接：https://blog.csdn.net/northwolves/article/details/772348

版权

数字计算技巧同时被 2 个专栏收录

97 篇文章 1 订阅

订阅专栏

其他技巧

32 篇文章 0 订阅

订阅专栏

没什么技术含量,一个余弦定理搞定:

Function angle(ByVal a As Double, ByVal b As Double, ByVal c As Double)
angle = (b * b + c * c - a * a) / (2 * b * c)
angle = Atn(-angle / Sqr(1 - angle * angle)) + 2 * Atn(1)
angle = Format(angle * 45 / Atn(1), "0.00") & "°"
End Function
Sub getangles(ByVal a As Double, ByVal b As Double, ByVal c As Double)
Dim x(6) As String
x(0) = "IF a=" & a
x(1) = " b=" & b
x(2) = " c=" & c
x(3) = "Then"
x(4) = "∠ABC=" & angle(b, c, a)
x(5) = "∠BAC=" & angle(a, b, c)
x(6) = "∠ACB=" & angle(c, a, b)
MsgBox Join(x, vbCrLf), vbInformation, "Result"
End Sub
Private Sub Command1_Click()
getangles 1, 2, 1.732
End Sub