题目
度分秒转化成弧度的函数代码
Public Function RAD(ByVal DEGREE As String) As Double
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
上面这段代码里面,DEGREE = DEGFORMAT(DEGREE)这一句是什么意思?怎么理解?
Public Function RAD(ByVal DEGREE As String) As Double
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
上面这段代码里面,DEGREE = DEGFORMAT(DEGREE)这一句是什么意思?怎么理解?
提问时间:2020-11-02
答案
DEGREE = DEGFORMAT(DEGREE)
这是一个赋值语句,就是把DEGREE作为函数 DEGFORMAT的参数,调用DEGFORMAT,最后把得到的值赋给DEGREE
这是一个赋值语句,就是把DEGREE作为函数 DEGFORMAT的参数,调用DEGFORMAT,最后把得到的值赋给DEGREE
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1运来45筐苹果和30筐桃子,苹果总重量比桃子总重量重75千克,已知没筐桃子重35千克,每筐苹果重多少千克?
- 2发[iə][εə][uə]的单词各5个 快
- 3150+152等于几呢?
- 4在Rt三角形ABC中,角C=90度,tanA=三分之一,AC=3,AB=6,则BC的长为?
- 5(12—X)+2X=56怎么解?
- 6-4ab+2b的平方-2与什么的和是3ab-b的平方
- 7一个有争议的高中英语选择题+++
- 8刘丽和刘颖有些相同之处.liu li and liu ying have some things()().
- 9CH3CH(Br)CH2CH(OH)COOH和CH3CH2CH(CH 3)CHO的名称
- 100.1mol/L的(NH4)2Fe(SO4)2中c(NH4+)+c(Fe2+)+c(NH3H2O)=0.3mol/L为什么不对,我觉得好似是对的
热门考点