已知地球的赤道半径为6378.137千米,计算赤道上的地面距离.实验要求：1.在Exce已知地球的赤道半径为6378.137千米,计算赤道上的地面距离.实验要求：1.在Excel的工作表中,求出赤道上从东经10度到

Question

已知地球的赤道半径为6378.137千米,计算赤道上的地面距离.实验要求：1.在Exce
已知地球的赤道半径为6378.137千米,计算赤道上的地面距离.
实验要求：
1.在Excel的工作表中,求出赤道上从东经10度到西经180度的经度差的绝对值、劣弧所对夹角的度数、劣弧所对夹角的弧度、劣弧的长度.进而求出从东经10度到其它所有经度为10的倍数的点的经度差的绝对值、劣弧所对夹角的度数、劣弧所对夹角的弧度、劣弧的长度.（提示1：东经为正,西经为负.）（提示2：可以用IF函数进行判断.）
2．假设在赤道上,有两个处于不同经度（单位为度）的城市,在前面创建的工作簿中用VBA编程序求出这两个城市之间的地面距离（即劣弧的长度）.要求在VBA的用户窗体中设计合适的运行界面并编写相应的事件代码.（建议：先实现同一个半球上的计算,正确运行之后再拓展到两个半球.）
3.计算结果要有尽可能高的精确度.
4．最后提交完成的Excel文件.

Answer 1

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
d = 3.1415926
r = 6378.137
s = 2 * d * r
If a > b Then
e = (a - b) / 360
f = e * s
If f < d * r Then
c = f
Else
c = s - f
End If
Else
e = (b - a) / 360
f = e * s
If f < d * r Then
c = f
Else
c = s - f
End If
End If
Label3.Caption = Str(c)
End Sub