姓名:胡向为学号:0923112120年级:测量0932专业:工程测量指导老师:李开伟2011年6月18号实习目的：对VB的认识，通过一周的VB编程训练，让我们对VB有了深刻的理解与掌握，熟练了VB语言及基本的功能。使我们理解到了VB在测量学中的运用，为我们以后的测量工作到软件运用做了铺垫。实习内容：正五边形放样编程实习任务：一周的时间完成正五边形放样程序，并能运行，界面美观。实习心得：通过对程序不停的修改，不断的完善，更加深刻的认识了VB的艰难，也加深的想学好的信心。认识是一个不断加深的过程。也认识到了，错误是不可避免的，只有在不断请教，不断反思，不断看书学习中才能学到属于自己的知识。只问不想会造成思想依赖；只想不问，会钻牛角尖，成为读死书。以下是写程序的一些步骤：计算方位角，总感觉还有一点问
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
，自己也检查不出来，能运行，精度不高：Ifdx12=0ThenIfdy12>0Thena12=PI/2ElseIfdy12<0Thena12=3*PI/2ElseMsgBox"已知好像点重合"ExitSubEndIfEndIfElser12=Atn(Abs(dy12/dx12))Ifdx12>0ThenIfdy12>=0Thena12=r12Elsea12=2*PI-r12EndIfElseIfdy12>=0Thena12=PI-r12Elsea12=PI+r12EndIfEndIfEndIfa12=a12*180/PI计算出方位角后，推算出未知点的坐标，由测站点就可以想测出点进行放样计算。start:Callzbfwj(xa,ya,xb,yb,aab,rab)score=InputBox("请输入放样点号：")SelectCasescoreCase"1"Callzbfwj(xb,yb,x1,y1,aB1,rB1)Case"2"Callzbfwj(xb,yb,x2,y2,aB2,rB2)Case"3"Callzbfwj(xb,yb,x3,y3,aB3,rB3)Case"4"Callzbfwj(xb,yb,x4,y4,aB4,rB4)Case"5"Callzbfwj(xb,yb,x5,y5,aB5,rB5)CaseElsEndSelectIfscore>5ThenzB1=aB1-aabzB2=aB2-aabzB3=aB3-aabzB4=aB4-aabzB5=aB5-aabIfzB1<0ThenzB1=zB1+360EndIfIfzB2<0ThenzB2=zB2+360EndIfIfzB3<0ThenzB3=zB3+360EndIfIfzB4<0ThenzB4=zB4+360EndIfIfzB5<0ThenzB5=zB5+360EndIfdB1=Sqr((x1-xb)^2+(y1-yb)^2)dB2=Sqr((x2-xb)^2+(y2-yb)^2)dB3=Sqr((x3-xb)^2+(y3-yb)^2)dB4=Sqr((x4-xb)^2+(y4-yb)^2)dB5=Sqr((x5-xb)^2+(y5-yb)^2)在调用的时候问题很多，都是课堂是未遇见过的，一步一步的解决，一篇一篇的翻书，在自己的能力能完成的情况下，尽量由自己发现问题并纠正，这就算是学到真的属于自己的知识，虽然都是VB的基本、基础，万事都是有简单到复杂的推进，假以时日，VB也不过如此。实习
总结
初级经济法重点总结下载党员个人总结TXt高中句型全总结.doc高中句型全总结.doc理论力学知识点总结pdf
：一周的时间要想完整的精通一门学门，是不可能办到的，只有在不断学习中，认识中提升自己的能力，尽量把握其精华、常用符号代码等等。在几次的改错中，两种程序写法交换中发现，对VB的认识越深，所能驾驭VB的能力越强。写出来的程序才会错误越少，计算越精确。一周，也让理解了VB的不少功能，加深了对软件的操作和对课本知识的熟悉，让我对VB编程中遇到的问题还有相关的操作步骤、语句都有了更深入的认识。也让我在软件开发的路上，铺垫了一定的程序基础。界面图片：
浙公网安备 33021202002483