已知一个正弦值,怎样用vb求其对应的角?

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/27 23:18:42

已知一个正弦值,怎样用vb求其对应的角?
已知一个正弦值,怎样用vb求其对应的角?

已知一个正弦值,怎样用vb求其对应的角?
Private Sub Command1_Click()
Dim a As Double
Dim jd As String
a = Val(InputBox("请你输入正弦值"))
If Abs(a) < 1 Then
jd = Atn(a / Sqr(-a * a + 1)) / Atn(1) * 45 & "°"
ElseIf a = 1 Then
jd = 90 & "°"
ElseIf a = -1 Then
jd = -90 & "°"
Else
jd = "输入数值不符"
End If
MsgBox jd
End Sub