text23.text=arcsin(46*sin(π/8)/60.14),算出来应该是17.021°。这个在...

发布网友 发布时间：2024-10-24 09:36

我来回答

共1个回答

热心网友 时间：2024-11-07 02:00

反三角函数中VB中提供了Atn (反正切)，其他的需要用自定义函数来推导。最后算出来的结果是弧度，需要转成角度。结果是17.020度
Private Sub Command1_Click()
Const pi = 3.1415926
text23.text=ArcSin(46 * Sin(pi / 8) / 60.14) * 180/pi
End Sub
Function ArcSin(X As Double) As Double
Dim Temp As Double
If X = 0 Then
Temp = 0
Else
Temp = Atn(X / Sqr(1 - X * X))
End If
ArcSin = Temp
End Function