📄 module2.bas
字号:
Attribute VB_Name = "Module2"
'卫星坐标转换
Public Const aell = 6378137 '地球长半径a
Public Const fell = 1# / 298.257223563 '地球扁率(a-b)/a
Public hhh As Double '大地坐标系h
Public riga As Double '大地坐标系riga
Public omuga As Double '大地坐标系omuga
Public omuga1 As Double '
Public xx1 As Double
Public yy1 As Double
Public zz1 As Double
Public d As Double '
Public Const deg = 3.1415926 / 180#
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -