已知一个正弦值,怎样用vb求其对应的角?
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/02 17:55:43
已知一个正弦值,怎样用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 Su
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 Su