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

测量实习报告

End Sub

Private Sub Command2_Click() Text13.Text = "" Text15.Text = ""

Form1.clear '清零过程 Text1.SetFocus

End Sub

Private Sub Command3_Click() '下一站

Form1.sideng '调用四等

x(Text9.Text) = Val(Text11.Text) - Val(Text12.Text) z(Text9.Text) = z(Text9.Text - 1) + x(Text9.Text) y(Text9.Text) = Val(Text14.Text)

Form1.clear '清零

Text9.Text = Text9.Text + 1 '测站累计 Text1.SetFocus

End Sub

Private Sub Command4_Click() '打开输出的文件 Shell "NotePad " & "C:\123.txt", vbNormalFocus

End Sub

Private Sub Command5_Click() End End Sub

Private Sub Text6_Change()

End Sub