早教吧作业答案频道 -->其他-->
度分秒转化成弧度的函数代码PublicFunctionRAD(ByValDEGREEAsString)AsDoubleDimGAsStringDimG1AsDoubleDimdAsBooleanDimDEG11AsDoubleDimDEG12AsDoubleDimDEG13AsDoubleDEGREE=DEGFORMAT(DEGREE)G=Left(Trim(Left(D
题目详情
度分秒转化成弧度的函数代码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)这一句是什么意思?怎么理解?
▼优质解答
答案和解析
DEGREE = DEGFORMAT(DEGREE) 这是一个赋值语句,就是把DEGREE作为函数 DEGFORMAT的参数,调用DEGFORMAT,最后把得到的值赋给DEGREE
看了度分秒转化成弧度的函数代码Pu...的网友还看了以下:
求下列各题的L.C.M(最小公倍数)1:28,42 2:50,753:15,20,45 4:8,1 2020-05-13 …
货币的交易需求可由( )函数关系表达。A.L=f(p)B.L=f(r)C.L=f(y)D.L=f(y 2020-05-30 …
某工厂的生产函数是Q=f(L,K),已知(1)当L=64,K=20时,Q=25000;(2)当L= 2020-06-12 …
已知抛物线C:y2=2px(p>0)的焦点为F,C上一点(3,m)到焦点的距离为5.(1)求C的方 2020-06-21 …
设抛物线C:y2=2x的焦点为F,直线l过F与C交于A,B两点,若|AF|=3|BF|,则l的方程 2020-07-31 …
三元一次方程组a*x+b*y+c*z+d=0,e*x+f*y+g*z+h=0,i*x+j*y+k* 2020-08-03 …
已知R={A,B,C,D},F={AB→C,C→A,C→D},确定R的候选码和主码。下面是老师给出的 2020-11-02 …
大哥再问个问题定义变量如下:charc=‘w‘;inti=8;longL=15;floatf=8.9 2020-12-31 …
1.以L,C,K开头的英文单词组成的句子2.以C,H,F开头的英文单词组成的句子3.以L,C,K,C 2021-02-05 …
定义变量如下:charc=‘w‘;inti=8;longL=15;floatf=8.9f;以下赋值语 2021-02-18 …