text23.text=arcsin(46*sin(π/8)/60.14),算出来应该是17.021°。这个在...
发布网友
共1个回答
热心网友
反三角函数中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
