VB编制角度（度,分,秒）转为弧度的子函数

来源：学生作业帮助网编辑：作业帮时间：2024/04/29 19:01:41

VB编制角度（度,分,秒）转为弧度的子函数
VB编制角度（度,分,秒）转为弧度的子函数

VB编制角度（度,分,秒）转为弧度的子函数
Public Function RAD(ByVal DEGREE As String) As Double
Rem具有测试DEGREE的前面是否带有"+"或"-"号的功能
Dim G As String
Dim G1 As Double
Dim d As Boolean
Dim DEG11 As Double
Dim DEG12 As Double
Dim DEG13 As Double
DEGREE = DEGFORMAT(DEGREE)
G = Left(Trim(Left(DEGREE,3)),1)
If G = "-" Then
G1 = -1
ElseIf G = "+" Then
G1 = 1
Else
G1 = 1
End If
DEG11 = Abs(Val(Left(DEGREE,4)))
DEG12 = Val(Mid(DEGRE,6,2))
DEG12 = Val(Mid(DEGRE,6,2)) / 60
DEG13 = Val(Right(DEGREE,Len(DEGREE) - 8)) / 3600
RAD = G1 * (DEG11 + DEG12 + DEG13) * PI() / 180
End Function

VB编制角度（度,分,秒）转为弧度的子函数如何把角度换成弧度41度08分20.6秒换成弧度是什么? 用计算器弧度转化成角度只能显示等于*度而不能显示等于*度*分*秒吗?做弧度转化成角度的题的时候题目要求把计算结果精确到秒该怎么做? 角度32度30分28秒换算成弧度为多少?急.RT. 正玄函数运算中的角度单位是（）.（A）弧度（B）度（C）分（D）秒谁知道用VB编角度转换成弧度.谁给我用VB编个角度转换成弧度的程序哦, 电子表格中25度35分42秒的正弦计算方法我是搞工程测绘的,不可能每个角度全部换算成弧度,想用度.分.秒值参与计算. 怎样把19度46分48秒转为度数, Excel 中如何用公式或函数将度数转换为弧度,如213度14分33秒,并求它的余弦值,给出公式的表达式.在Excel中知道方位角,角度用度数表示,都是有度、分、秒的角度,如213度14分33秒等,如何求它的正弧度化成度分秒0.524=()度()分（）秒1.047=（）度（）分 -7π/8的角度数,37度30分的弧度数 79度48分21秒等于多少弧度? 计算器角度弧度转换同一数值不一样比如我SIN45等于0.7071,我用0.7071转换成度就是42分25.58秒,为什么我用的事卡西欧991es,这两个值相差也太大了在matlab中,对角度的运算都以度数为准,即将默认的弧度数转化为角度如何将matlab默认的弧度转为角度,使下面的所有运算都以0~360的度数为准. VB的角度是怎么表示的比如说,我想计算一个 150度30分的角,我应该怎么用VB语言去表达这个角度? 角度的运算：10.28度=（）度（）分（）秒弧度制与角度制的换算设一个角的弧度数为a,角度为n度,则a（rad）＝? 角度与弧度的换算一弧度等于多少角度