推算坐标方位角程序.docVIP

推算坐标方位角程序 分类:土建参考资料 2006.9.5 20:26 作者：小杨 | 评论：0 | 阅读：1922 Option ExplicitRem **** GPHVB2.VBP ****Rem **** 奇进偶舍、度分秒与弧度互化、推算坐标方位角程序****Rem **** 2005/03/23*****Private Sub Form_Load()Rem ***** 此为第一个窗体From1.frm ****Form1.Height = Screen.Height: **** 设置窗体高占整个屏幕Form1.Width = Screen.Width: *****? 设置窗体宽占整个屏幕Form1.Left = 0: **** 设置窗体位置距离屏幕左端的距离为值零Form1.Top = 0: ****? 设置窗体位置距离屏幕上端的距离值为零End SubPrivate Sub GPHT1_Click(index As Integer)Rem **** 奇进偶舍演示 ****Rem ——————————————————————————————Rem **** VB提倡使用显示变量，要显示声明变量，方法有二：Rem **** 1.可在类模块、窗体模块或标准模块的声明段加入如下语句：Rem **** Option ExplicitRem **** 2.在“工具”菜单中选取“选项”，单击“编辑器”选项卡，Rem **** 再复选“要求变量声明”选项，最后单击“确定”退出，这样Rem **** 就在任何新模块（类模块、窗体模块、标准模块）的声明段中Rem **** 自动插入Option Explicit语句，但不会在已经建立起来的Rem **** 模块中自动插入；所在工程内部，只能用手工方法向现有模Rem **** 块添加 Option explicit 语句。Rem —————————————————————————————— Dim A As IntegerCls PrintPrint Spc(6); 奇进偶舍演示PrintPrint Spc(6); PI() For A = 1 To 20???? Print Spc(6); LTrim$(A); ??? NNN=; NNN(PI(), A)???? DO???? Loop Until INKEY$???? Next AEnd Sub Private Function NNN(ByVal NM As Double, ByVal BB As Integer) As DoubleRem **** 奇进偶舍函数 ****Rem **** NM为需要奇进偶舍的变量，BB为NM这个变量需要保留的小数点后面的位数 *****Rem **** 分别用NM=PI()、BB=1、2、……Rem **** NM=1.2225、BB=3Rem **** NM=1.2235、BM=3? 来验证该FUNCTION过程的正确性? ****Dim BNM As DoubleDim C As IntegerDim J As IntegerDim K As IntegerDim I As Double C = Sgn(NM)BNM = Abs(NM) I = (BNM * 10 ^ (BB + 1) + 10 ^ (-11)) - 10 * Fix(BNM * 10 ^ BB + 10 ^ (-11))I = (Fix(I * 10 ^ 10)) / 10 ^ 10J = Fix(BNM * 10 ^ BB + 10 ^ (-11)) - 10 * Fix(BNM * 10 ^ (BB - 1) + 10 ^ (-110)) If I 5 ThenK = 1ElseIf I 5 ThenK = 0ElseIf (I = 5 And J = 2 * Fix(J / 2)) ThenK = 0ElseK = 1End If NNN = C * Fix(BNM * 10 ^ BB + K) / 10 ^ BB End Function Private Static Function PI() As DoubleRem ****** 计算PI *******PI = 4 * Atn(1) End Function Private Sub GPHT2_CLICK(index As Integer)Rem ****** DEG-RAD 演示******Dim D As StringClsD=0 00 00D=0 12 55D=2 12 55D = 12 36 56??D=2