module1.bas

来自「测量水准计算程序。水准平差等。是测绘行业的一个很有用的程序」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
Option Explicit

Public dis() As Single, detH() As Single
Public nMarks%                 '测站数

Public Sub AddData(iMark As Integer, dist, dH As Single)
    dis(iMark) = dist
    detH(iMark) = dH
End Sub