四等水准测量报告.doc(3)

测量实习报告

2、编写代码并调试过程

点计算按钮后，结果如下图

点击下一站后，测站数变为2，其它清空

视距差和总高差是需要累积的，所以不要清空。若点清除按钮除了测站数都会清空，重新输入。

输入下一站数据后,如有误差，则会有误差提示。 点退出按钮，即退出程序。 3,代码

Dim x(0 To 500) As Single Dim y(0 To 500) As Single Dim z(0 To 500) As Single

Public Sub clear() '清零过程 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text11.Text = "" Text12.Text = "" Text14.Text = ""