VB程序实习文件.docVIP

姓 名: 胡向为 学 号: 0923112120 年 级: 测量0932 专 业: 工程测量 指导老师: 李开伟 2011年6月18号 实习目的：对VB的认识，通过一周的VB编程训练，让我们对VB有了深刻的理解与掌握，熟练了VB语言及基本的功能。使我们理解到了VB在测量学中的运用，为我们以后的测量工作到软件运用做了铺垫。 实习内容：正五边形放样编程 实习任务：一周的时间完成正五边形放样程序，并能运行，界面美观。 实习心得：通过对程序不停的修改，不断的完善，更加深刻的认识了VB的艰难，也加深的想学好的信心。认识是一个不断加深的过程。也认识到了，错误是不可避免的，只有在不断请教，不断反思，不断看书学习中才能学到属于自己的知识。只问不想会造成思想依赖；只想不问，会钻牛角尖，成为读死书。 以下是写程序的一些步骤：计算方位角，总感觉还有一点问题，自己也检查不出来，能运行，精度不高： If dx12 = 0 Then If dy12 0 Then a12 = PI / 2 Else If dy12 0 Then a12 = 3 * PI / 2 Else MsgBox 已知好像点重合 Exit Sub End If End If Else r12 = Atn(Abs(dy12 / dx12)) If dx12 0 Then If dy12 = 0 Then a12 = r12 Else a12 = 2 * PI - r12 End If Else If dy12 = 0 Then a12 = PI - r12 Else a12 = PI + r12 End If End If End If a12 = a12 * 180 / PI 计算出方位角后，推算出未知点的坐标，由测站点就可以想测出点进行放样计算。 start: Call zbfwj(xa, ya, xb, yb, aab, rab) score = InputBox(请输入放样点号：) Select Case score Case 1 Call zbfwj(xb, yb, x1, y1, aB1, rB1) Case 2 Call zbfwj(xb, yb, x2, y2, aB2, rB2) Case 3 Call zbfwj(xb, yb, x3, y3, aB3, rB3) Case 4 Call zbfwj(xb, yb, x4, y4, aB4, rB4) Case 5 Call zbfwj(xb, yb, x5, y5, aB5, rB5) Case Els End Select If score 5 Then zB1 = aB1 - aab zB2 = aB2 - aab zB3 = aB3 - aab zB4 = aB4 - aab zB5 = aB5 - aab If zB1 0 Then zB1 = zB1 + 360 End If If zB2 0 Then zB2 = zB2 + 360 End If If zB3 0 Then zB3 = zB3 + 360 End If If zB4 0 Then zB4 = zB4 + 360 End If If zB5 0 Then z