[毕业设计 论文 精品]基于excel表的附合导线计算程序

毕业设计基于excel表的附合导线计算程序系部:测绘工程系专业名称:工程测量指导教师:姓名:二一年十二月毕业设计（论文）评定表姓名学号存档号系别测绘工程系专业工程测量班级80812毕业论文（设计）题目基于excel表的附合导线计算程序指导教师评语：签名：2010年月日答辩委员会意见：签名：2010年月日备注：毕业设计（论文）任务书a1a0a2a3学生姓名学号指导教师姓名教授系部测绘工程系毕业设计（论文）题目基于excel表的附合导线计算程序毕业设计（论文）要求：1、完成附和导线的EXCEL计算程序的编写2、输入数据验证程序的正确性和可行性3、数据输入计算4、论文格式完成期限和主要措施：2010.10.202010.10.31论文选题，拟定设计（论文）计划（10天）2010.11.12010.11.20整理资料，收集文献，编写提纲（20天）2010.11.112010.11.20准备初稿，排版（10天）2010.11.212010.11.30撰写论文，定稿（10天）2010.12.12010.12.10打印、投交论文为答辩作准备（10天）主要参考文献：1李孟山、张文彦编.工程测量概论.西安：西安地图出版社，2004：160.179-180.2美JohnWalkenbag70kg14891，g457g40g91g70el200g22g20652g13435g57g37g36编程g4465g1868g458g11017g4388工业出版社g22g4392g12089g1815g3281g4490g7643准g7044版g42g37g240026-2007工程测量g16280g14551g8506g8733g3835学测绘学g19510指导教师g12626名：g5192g7388g7097a4a5a6a71目录g6700要.2g125441g12468附g2524导线的概g17860.31.1附g2524导线的g12628g1183.31.2附g2524导线的g3818业工作.3g125442g12468附g2524导线的计算g2419理.52.1附g2524导线的g7053g1313g16294计算g1856式.52.2附g2524导线的g3364g7643计算g1856式.5g125443g12468附g2524导线程序编g2058.73.1vbag16833g16340g12628g1183.73.2设计附g2524导线的excelg15932格.83.3计算g5062g11705g7053g1313g16294.93.4g16294g5242计算g1207g11733编写.113.5g3364g7643计算g1207g11733编写.203.6g3364g7643g13479g7536的计算g994输出.21g125444g12468程序的g5224g11004.234.1附g2524导线计算程序的g1363g1100程序g1363g11004g16840g7138.234.2程序的验证.244.2.1输入g5062g11705g7477g1计算成g7536.24g125445g12468g1852文g5647g13479.26g14280g16886.27参考文献.28a4a5a6a72摘要g3324测量工作g1025，导线测量g2356g11540g18337要地g1313，g7092论g7171g19093g17347测量、g1856g17347测量、g7737g7765测量g17836g7171地g5430图测绘，导线的测量计算g18129g7171g19762g5132g18337要的g10627g14422g452g125441g12468主要g1183g13473g1114附g2524导线的g3818业工作和g12946g5242要求g727g125442g12468g1183g13473g1114附g2524导线的g1881业计算g727g125443g12468主要g1183g13473g1114g2045g11004excel编程g16833g16340vbag4557附g2524导线的计算g727g125444g12468g1183g13473g4557EXCEL程序的g5224g11004和验证a8关键词：VBA；附合导线；EXCEL；编程a4a5a6a73第1章附合导线的概述1.1附合导线的简介g3926图1-1g6164g12046g1209g20652g13435g6523g2058g9869g36为g17227g3999g9869，g37g36g7053g2533为g17227g3999g7053g2533，g13475g17819g14521g5190g1022导线g9869g2530，附g2524g2052g2490g3818g980g1022g20652g13435g6523g2058g9869g38和g5062g11705g7053g2533g38g39g17805g990，g17837g12193导线g12228为附g2524导线。图1-1附g2524导线g12046g5859图1.2附合导线的外业工作（1）选g9869g7693据测g2318的地g5430g5785况选择g980定数量的导线g9869g452g3324选g9869之前，g5224收集测g2318g5062有的小比例尺地g5430图和g6523g2058g9869的成g7536资料，然g2530g3324地g5430图g990拟定的布设g7053案，最g2530g2052野g3818进行实地踏勘，g7693据实地g5785况进行修改g994调整，选定g9869g1313并建立g7643志g452g14521g7092地g5430图可g2045g11004时，实地踏勘选g9869g452（2）水平g16294观测g3324附g2524导线g1025g980般测量其左g16294，导线观测g16294的g12946g5242要求见g159321-1（g22）g17805长测量导线g17805长测量可g1209g11004光g11017测距仪测定，也可g1209g11004钢尺丈量g452g14521g11004测距仪测定，a9a10a11a124g5224测定导线g17805的水平长g5242g727g14521g11004钢尺丈量，g4557g980、二、三g13435导线，g5224采g11004g12946密量距法进行丈量g727g4557于图g7693导线，则g11004g980般g7053法往返进行丈量，其相g4557误差g980般不得超g178191/g22000g3324特殊困哪地g2318也不得超g178191/1000g159321-1各g13435导线测量的主要技术指g7643注：g15932g1025n为测g16294g1022数g727M为测图比例尺分母g452等g13435导线长g5242/km平均g17805长/km测g16294g1025误差测回数g16294g5242闭g2524差导线g1852长相g4557闭g2524差g39J6g39J2g980g1343540.g24g244210n1/1g24000二g134352.40.2g248g22116n1/10000三g134351.20.1122124n1/g24000图g76931.0M1.g24倍测图最g3835视距20140n（首g13435）40n(g980般)1/2000a9a10a11a125第2章附合导线的计算原理2.1附合导线的方位角计算公式（1）g16294g5242g994弧g5242转换g1856式：弧g5242=g5242*/180+分*/(180*60)+秒*/（180*60*60）（2-1）（2）g3364g7643计反算：1212arctanxxyy=（2-2）当g3324g12544g980象限时=当g3324g12544二象限时=+180当g3324g12544三象限时=+180当g3324g12544四象限时=+g2260（g22）推算导线各g17805的g3364g7643g7053g1313g16294：+=+=a13a14a15a16a14a15180180（2-g22）（g22）附g2524导线g16294g5242闭g2524差的计算：CDBACDCDnf+=180（2-4）（4）附g2524导线g16294g5242改正数的计算：nffi=（2-g24）注：观测g16294g5242加g990g16294g5242改正数即为改正g2530g16294g5242值g4522.2附合导线的坐标计算公式（1）g3364g7643闭g2524差的计算：a17a18a19a206=)()(ACyACxyyyfxxxfa21a21（2-6）（2）g3364g7643增量的计算：=1212sincos12121212DyDx（2-7）（g22）g91、yg3364g7643改正数的计算：=iyiyixixDDfvDDfv（2-8）（4）g3364g7643的计算：+=+=2222AAAAyyyxxx（2-9）注：A2x、A2y为改正g2530的g3364g7643增量值，a22a23a24a257第3章附合导线程序编制3.1vba语言简介g57g37g36（visualbasig70forapplig70ation）g16833g16340g12628g1183g57isualg37asig70forg36pplig70ations（g12628g12228g57g37g36）g7171g7044g980g1207g7643准宏g16833g16340，g7171基于g57isualg37asig70forWindows发展而来的g452它g994传统的宏g16833g16340不同，传统的宏g16833g16340不具有g20652g13435g16833g16340的特征，没有面g2533g4557象的程序设计概念和g7053法g452而g57g37g36提供g1114面g2533g4557象的程序设计g7053法，提供g1114相当完整的程序设计g16833g16340g452g57g37g36g7143于学g1076g6496g6581，可g1209g1363g11004宏g16772g5417g3132g16772g5417g11004g6155的各g12193g6817作并g4570其转换为g57g37g36程序g1207g11733g452g17837g7691g11004g6155可g1209g4493g7143地g4570g7097g5132工作转换为g57g37g36程序g1207g11733，g1363工作g14270g2172g2282g452g3252g8504，g4557于g3324工作g1025g19668要g13475g5132g1363g11004g50ffig70eg3883g16025g17731g1226的g11004g6155，学g11004g57g37g36有g2173于g1363工作g14270g2172g2282，提g20652工作g6940g10587g452g2490g3818，g11013于g57g37g36可g1209g11464g6521g5224g11004g50ffig70eg3883g16025g17731g1226的各g20045g5390g3835g2163g14033，g6164g1209g4557于程序设计g1166g2604的程序设计和g5332发g7368加g7053g1427g5567g6475g452g40g91eg70l具有g5390g3835的g17828算g2163g14033，它g14033g6365g10043g11004g6155的g5859图进行各g12193g3809g7446的g17828算（g2265g6336编写g1856式、调g11004g2001数等）g452g57g37g36g7171基于g57isualg37asig70发展而来的，它g1216具有相g1296的g16833g16340g13479g7512g452g57isualg37asig70g7171Mig70rosoft的主要图g5430g11040面g5332发工具，g57g37g36g24.0（g1146即g57g37g3697）则g7171g57isualg37asig70g24.0的g4388集g452g57isualg37asig70g7171g11013g37asig70发展而来的g12544四g1207g16833g16340g452g57isualg37asig70作为g980g3883g10432立的Windows系统g5332发工具，可g11004于g5332发Windowsg10627g3671g991的各g12879g5224g11004程序，g7171g980g12193可视g2282的、面g2533g4557象的、采g11004g1119g1226g20549g2172g7053式的g13479g7512g2282g20652g13435程序设计g16833g16340g452它具有g20652g6940g10587、g12628g2345g7143学g2462g2163g14033g5390g3835的特g9869g452g57g37的程序g16833g16340g12628g2345、g1427g6475，g2045g11004其g1119g1226g20549g2172的编程g7438g2058，g7044g20074g7143g11004的可视g2282设计工具，并g1363g11004Windowsg5224g11004程序g6521g2487（g36g51g44）g2001数，采g11004g2172g5589g19154g6521g5223（g39g47g47）、g2172g5589数据交换（g39g39g40）、g4557象的g19154g6521g994g4896入（g50g47g40）g1209g2462g5332g6930式数据g5223g16787g19394（g50g39g37g38）等技术，可g1209g20652g6940、g5567g17907地编g2058出Windowsg10627g3671g991g2163g14033g5390g3835、图g5430g11040面g1028g4512的g5224g11004g17731g1226系统g452a26a27a28a298g57isualg37asig70程序g5468g3835g980部分g1209可视（g57isual）g5430式实g10628，g17837g5859g2631g11540g3324设计g19466g8585g4613可g1209g11487g2052程序g17828行的g4643g5161g11023面，g11004g6155可g1209g3324设计时g14033g3827g7053g1427地改g2172g11023面图g1699、g3835小、g20080g14406等，g11464g2052g9397g5859为g8502g452g57g37的g11004g6155可g1209g7171g13582g1059Windowsg2462g38g16833g16340g5332发g13475验的g999业g17731g1226g1166g2604，也可g1209g7171具有g980定Windowsg5332发g13475验的g999业g1166g2604，g57g37的可视g2282编程g7053法g1363得g2419来g13333g10724g7555g10169、g1208g1166生g11043的Windowsg5224g11004程序设计g2476得g17743g7506g14270g3926、g3949g17271g8190生g452g1209往的Windowsg5224g11004程序g5332发工具g3324设计图g5430g11004g6155g11040面时，g18129g7171采g11004编程的g7053法，并g1288g19555g3835量的计算g1231g2165，g980g1022g3835g3423g5224g11004程序g13434有90g8的程序g1207g11733g11004来g3800理g11004g6155g11040面，而g1000g3324程序设计g17819程g1025不g14033g11487g2052g11040面g7186g12046的g6940g7536，g2494有g3324程序g6203行时g6177g14033观g4531g2052，g3926g7536g11040面g6940g7536不g1351，g17836g19668要回g2052程序g1025g2447修改g452g57isualg37asig70提供g1114g7044g20074的可视g2282设计工具，g5051g3949地g4570Windowsg11040面设计的g3809g7446性g4565g16025g17227来，程序g5332发g1166g2604不g5529g1889为g11040面设计而编写g3835量程序g1207g11733，仅g19668采g11004g10628有工具g6365设计者要求的布局，g3324g4643g5161g990g11023出g6164g19668g11040面，并为各图g5430g4557象设置属性即可，g57g37g14270g2172产生g11040面设计g1207g11733，g17837g7691g1427g4570g1119先编g2058好的g6523g1226可视地连g6521g2052g980g17227，g7512成g980g1022g19555时可调整的g11040面g452g57g37g36不但继承g1114g57g37的g5332发g7438g2058，而g1000g57g37g36g17836具有g994g57g37相g1296的g16833g16340g13479g7512，它g1216的集成g5332发g10627g3671g44g39g40（g44ntergratedg39evelopmentg40nvironment）也几乎相同g452但g7171，g13475g17819优g2282，g57g37g36g999门g11004于g50ffig70e的各g5224g11004程序g452g57g37可g17828行g11464g6521来g14270Windows9g24或NT桌面g990的g5224g11004程序，而g57g37g36的g20045目（g51rojeg70t）仅g11013g1363g11004g57g37g36的g40g91g70el、Word、g51owerg51oint等g12228为宿主（Host）的g50ffig70eg5224g11004程序（g36pplig70ation）来调g11004g452目前，g19555g11540测绘技术的不断发展，g3324g980些小地g2318的g3835比例尺测图g1025，做g6523g2058g5224g11004较多的依然g7171导线测量的g7053法g452g3324导线测量g1025，野g3818数据的采集g11004g1852站仪可g1209g16840g7053g1427g5567g6475，但g7171其g1881业的计算g11004手工却比较麻烦，而g1000费时费力g452而计算g7438的g5224g11004解决g1114g17837g980g19394题，本文g4613g1209vbag16833g16340来g1183g13473附g2524导线的g1881业计算g4523.2设计附合导线的excel表格g11013于采g11004g1114excel的g5332发程序，g6164g1209采g11004的窗体g7171excelg14270身的g13475g1868窗体，g7092g19668g1889g2447改g2172，g17837g7691也g7368加g7053g1427g11004g6155，g2494g19668g3324excel窗体g990添加g6164g19668的空间g4613可g1209g1114g452a30a31a32a339图（3-1）excel导线计算的窗体3.3计算已知方位角（1）g5062g11705g6523g2058g9869的填入g3926图（3-2）图3-2附g2524导线g7053g1313g16294计算g15932注：红g14406字体为输入部分g452（2）g3364g7643g7053g1313g16294弧g5242g6365g1856式（2-2）进行计算编写程序“=IF(C4-C3)0,IF(B4-B3)0,ATAN(C4-C3)/(B4-B3),ATAN(C4-C3)/(B4-B3)+2*3.1415926535),ATAN(C4-C3)/(B4-B3)+3.1415926535)”填入g452g3926图1-3a34a35a36a3710图3-3计算g7053g1313g16294g1856式的填入（3）g4570弧g5242转换为g5242g6365g1856式（g5242=弧g5242*180/）分别g3324g5242、分、秒里填入g1856式g5242转换：=INT(G4/3.1415926*180)，g3926图3-4图3-4g5242转换g1856式填入分转换：=INT(G4/3.1415926*180-D4)*60)，g3926图3-5图3-5分转换g1856式填入秒转换：=INT(G4/3.1415926*180-D4)*60-E4)*60)，g3926图3-6a34a35a36a3711图3-6秒转换g1856式填入得g2052g7053g1313g16294计算g13479g7536g3926图3-7图3-7g5062g11705g9869g7053g1313g16294计算g13479g75363.4角度计算代码编写g1207g11733的编写g7171g3324visualbasicforapplication的g1207g11733编辑g3132里编写的，打g5332excelg2530g6365alt+F11g1427可g1209打g5332g1207g11733编辑g3132g452g3926图3-8图3-8vbag1207g11733编辑g11040面a38a39a40a4112（1）首先g3324通g11004声g7138部分定义两g1022g2476量，n和i，ng1207g15932加密g9869的g1022数，ig7171g2476量g1207g15932每g980g1022加密g9869的g9869号，g1207g11733g3926g991：g980g1022g2172g5589DimiAsIntegerg4570g2172g5589g2476量i定义为integerg452（整g3423数）DimnAsLongg4570g2476量n定义为longg452（长整g3423）（2）编写输入加密g9869g1022数的g1207g11733，g6365g991g8504g6365钮的的时候要求输入加密g9869g1022数，g1209g1427程序g14270g2172生成g980g1022相g5224的g15932格，为g8504g6365钮编写g1207g11733g3926g991：PrivateSubCommandButton1_Click()当g6365钮被g6365g991的时候g6203行subg17819程g452n=InputBox(“请输入g1022数”,“请输入”)把g11004g6155输入inputbox的加密g9869的g5647g1022数赋值g1022g2476量ng452Sheet1.Cells(7,1)=“A”Sheet1.Cells(8,1)=“B”Sheet1.Cells(7,19)=“A”Sheet1.Cells(8,19)=“B”当g6365钮被g6365g991的时候把“A、B”填入g2052指定的g2345g1815格里，sheet1.cells（7,8）g1207g15932该g2345g1815格的g1313置g7171g12544g980g1022工作薄的g12544七列的g12544八行g452Fori=0To(n+2)Sheet1.Cells(i+9,1)=i+1Sheet1.Cells(i+9,19)=i+1Sheet1.Cells(i+6,1).Interior.ColorIndex=4Sheet1.Cells(i+6,19).Interior.ColorIndex=4Sheet1.Cells(i+8,2).Borders.LineStyle=3Sheet1.Cells(i+8,3).Borders.LineStyle=3Sheet1.Cells(i+8,4).Borders.LineStyle=3Sheet1.Cells(i+8,12).Borders.LineStyle=3Nextia38a39a40a4113通g17819fornext循g10627来创建我g1216g19668要的g15932格g15932格的g3835小取决于加密g9869的g1022数g452Sheet1.Cells(n+9,1)=“C”Sheet1.Cells(n+10,1)=“D”Sheet1.Cells(n+9,1).Interior.ColorIndex=4Sheet1.Cells(n+10,1).Interior.ColorIndex=4Sheet1.Cells(n+9,19)=“C”Sheet1.Cells(n+10,19)=“D”Sheet1.Cells(n+9,19).Interior.ColorIndex=4Sheet1.Cells(n+10,19).Interior.ColorIndex=4g4570“C、D”填入指定的g2345g1815格，并g1000指定该g2345g1815格的格式g452Sheet1.Cells(n+11,1)=“g5647和”Sheet1.Cells(n+11,1).Interior.ColorIndex=0Sheet1.Cells(n+11,2).Interior.ColorIndex=0Sheet1.Cells(n+11,3).Interior.ColorIndex=0Sheet1.Cells(n+11,4).Interior.ColorIndex=0Sheet1.Cells(n+11,12).Interior.ColorIndex=0EndSub通g17819g1209g990g1207g11733，g4613完成g1114g4557数据输入的g6817作，g2494g19668要g6365g991输入g6365钮，填入加密g9869g1022数，g4613会生成相g5224的附g2524导线计算g15932格g3926图3-9图3-9生成的附g2524导线计算g15932格（3）清除g1881g4493，当我g1216g3324做完g980g3883计算的时候g2490存g1114数据g1209g2530，excelg1881g2419a38a39a40a4114先的数据并不会g14270g2172消失，g17837g4613g19668要我g1216通g17819g1207g11733来实g10628，实g10628清除g2163g14033的g1207g11733g3926g991：PrivateSubCommandButton2_Click()当清除g6365钮被g6365g991的时候g6203行g1209g991g1207g11733Range(“A7:S100”)=“”g3324g2345g1815格A7g2052S100g14551围g1881g2345g1815格g1881值为空，也g4613g7171数清空g2345g1815格理得g1881g4493g452Range(“A7:S100”).Interior.ColorIndex=0Range(“A7:S100”).Borders.LineStyle=0设置g2345g1815格的底g14406和g17805框g7691式g452EndSub（4）设计计算g1207g11733g452计算g1207g11733的设计g7171g7693据倒g7186得计算g1856式来的，g991面g4613g1207g11733和g1856式进行g980步g980步饿解析g452导线的技术g7171g11013许多的计算来完成的，为g1114g1427于程序的g12628g2282，我把g6164有的计算g1207g11733统统g6930g2052g1114g980g1022“计算”g6365钮g991g452PrivateSubCommandButton3_Click()当CommandButton3g6365钮被g6365g991时g6203行g1209g991的计算g1207g11733g452首先g7171定义参数，g11013于g3818业观测的g16294g5242值g7171g5242、分、秒格式的g6164g1209首先要g4557g5242分秒格式的数据进行g3800理g452g4557g5242、分、秒的g3800理g19668要g3800理两g12193格式g980g12193g7171g5242的小数g9869g5430式，g980g12193g7171弧g5242g5430式g452g5242的小数g9869g5430式g4613g7171g4570分、秒换算成g5242g452g5242的弧g5242g5430式g4613g7171g4570g5242分秒换算成弧g5242g452具体步骤g4570g3324g1209g991g1207g11733g1025详细讲解g452DimzhmAsDouble:DimzhmaAsDoubleDimzhma1AsDouble:DimzhfAsDoubleDimzhfaAsDouble:Dimzhfa1AsDoubleDimzhdAsDouble:DimzhdaAsDoubleDimzhda1AsDoubleDimjlhAsDoubleDimjlh1AsDoubleDimzlx()AsDouble:Dimczly()AsDoubleDimzly()AsDouble:Dimczlx()a38a39a40a4115AsDoubleDimzlxh,zlyh,zlxh1,zlyh1,zlxh2,zlyh2,gxh,gyhAsDoubleDimgzlx()AsDouble:Dimgzly()AsDoubleDimzbzx()AsDouble:Dimzbzy()AsDoubleDimfbhc,czlxh,czlyhAsDoubleDimjl()AsDouble:Dimm()AsDoubleDimf()AsDouble:Dimd()AsDoubleDimhudu()AsDouble:Dimfwj()AsDoubleDimfrAsDoubleDimfr1AsDoubleDimAab,Acd,fpcAsDoubleDimfreenumb,bth,miniAsDoubleg1209g990g1852部g7171定义的计算g1025会g11004g2052的参数具体含义为：zhmg1207g15932输入的秒的g5647g2524，zhfg1207g15932输入的分的g5647和，zhdg1207g15932输入的g5242的g5647和，zhma1g1207g15932g4570秒换算为g5242的小数g9869g5430式的g5647和，zhfa1g1207g15932g4570分换算为g5242的小数g5430式的g5647和g452Jlhg1207g15932输入的距离的g5647和g452d（）、f（）、m（）分别g1207g15932输入的每g980g1022g5242、分、秒，g4570其g6930入数组g1025，jl（）g1207g15932输入的距离g4570每g980g1022距离g6930入g2052g8504数组g1025g452Ifn=0ThenMsgBox“请输入加密g9869的g1022数”EndIfIfg16833句判断输入的加密g9869g1022数ng7171否为0，g3926g7536加密g9869g1022数为0g6203行g1209g990g16833句，弹出g4557话框，g4557话框g10628实g1881g4493为“请输入加密g9869的g1022数”g452g3926g7536n不g71710那么g6203行g1209g991的ifg16833句g452Ifn0Thenfreenumb=99999freenumbg7171定义的g980g1022极限数值，g11004来和输入的距离进行比较最终找出输入距离的最小值g452ReDimfwj(i)AsDoublea38a39a40a4116ReDimm(i)AsDoubleReDimf(i)AsDoubleReDimd(i)AsDoubleReDimjl(i)AsDoubleReDimhudu(i)AsDoubleg4557定义的空数组进行g18337g7044定义g452Fori=1To(n+2)m(i)=Val(Sheet1.Cells(i+7,4)g4570输入的秒值给数组f(i)=Val(Sheet1.Cells(i+7,3)g4570输入的分值给数组d(i)=Val(Sheet1.Cells(i+7,2)g4570输入的g5242值给数组jl(i)=Val(Sheet1.Cells(i+8,12)g4570输入的距赋值给数组Ifjl(i)0ThenIfjl(i)Sheet1.Cells(n+9,12)Thena38a39a40a4119freenumb=Val(Sheet1.Cells(n+9,12)mini=n+9EndIf判断观测距离的最小值并g1000得g2052该值g6164g3324的行值g452fpc=Fix(Round(fr*3600)/(n+2)平均分g18209差g452Fori=1To(n+2)Sheet1.Cells(i+7,5)=0-fpcNextig4570各g16294g5242的改正值g7186g12046g3324指定g2345g1815格g1881g452g7693据g1209g990的计算g8504时的参数minig5062g13475g7171最小的距离值g6164g3324的那g1022g2345g1815格的行数，g6164g1209g3324g8504行g16294g5242的改正值要加g990除g2447g2530的g1325数g1207g11733g3926g991：Sheet1.Cells(mini,5)=(0-fpc)-(Round(fr*3600)Mod(n+2)1.推算各g1022g7053g1313g16294g1207g11733的编写：g7693据g1856式（2-g22）来计算，g11013于我g1216采g11004的g7171左g2503g6164g1209g4613采g11004g1856式a42a43a44+=a45180来计算g452Fori=1To(n+2)hudu(i)=(d(i)+f(i)/60+m(i)/3600)+(Val(Sheet1.Cells(i+7,5)/3600)Sheet1.Cells(i+7,6)=Int(hudu(i)Sheet1.Cells(i+7,7)=Int(hudu(i)-Int(hudu(i)*60)Sheet1.Cells(i+7,8)=(hudu(i)-Int(hudu(i)*60-Int(hudu(i)-Int(hudu(i)*60)*60NextiFori=1To(n+2)bth=bth+hudu(i)fwj(i)=Aab-i*180+bthSheet1.Cells(i+8,9)=Int(fwj(i)Sheet1.Cells(i+8,10)=Int(fwj(i)-Int(fwj(i)*60)a46a47a48a4920Sheet1.Cells(i+8,11)=(fwj(i)-Int(fwj(i)*60-Int(fwj(i)-Int(fwj(i)*60)*60Nexti通g17819g1209g990g1207g11733推算出g1114g7053g1313g16294fwj（）并把g1194g1216g7186g12046g3324指定的g2345g1815格g1881g4523.5坐标计算代码编写计算g3364g7643增量g7693据g1856式（2-7）进行计算，g3324进行g8504计算的时候要g4570g7053g1313g16294的换算成弧g5