'角度为弧度 Private Function xx(a As Double, angB As Double, b As Double) Dim x As Double x = a * Sin(angB) / b xx = Atn(x / Sqr(-x * x + 1)) End FunctionPrivate Sub Form_Load() MsgBox xx(3, 1.3, 5) End Sub
请问楼主问的是哪一个正弦定理, S=(a*b*sin(C))/2,还是别的公式? 建议先翻一下数学书.然后搞弧度转角度搞清楚:1 rad=57.3度 PI=3.1415926 PI 对应 180度 180/3.1415926=57.3
Private Function xx(a As Double, angB As Double, b As Double)
Dim x As Double
x = a * Sin(angB) / b
xx = Atn(x / Sqr(-x * x + 1))
End FunctionPrivate Sub Form_Load()
MsgBox xx(3, 1.3, 5)
End Sub
S=(a*b*sin(C))/2,还是别的公式?
建议先翻一下数学书.然后搞弧度转角度搞清楚:1 rad=57.3度
PI=3.1415926 PI 对应 180度 180/3.1415926=57.3