VB编制角度(度,分,秒)转为弧度的子函数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 08:15:55
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
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秒换算成弧度为多少?急.
VB中定义子函数的方式?
用计算器弧度转化成角度只能显示等于*度而不能显示等于*度*分*秒吗?
怎样把19度46分48秒转为度数,
弧度化成度分秒0.524=()度()分()秒1.047=()度()分
-7π/8的角度数,37度30分的弧度数
79度48分21秒等于多少弧度?
计算器角度弧度转换同一数值不一样 比如我SIN45等于0.7071,我用0.7071转换成度就是42分25.58秒,为什
谁知道用VB编角度转换成弧度.
弧度制与角度制的换算设一个角的弧度数为a,角度为n度,则a(rad)=?