module1.bas

vb写的程序

Attribute VB_Name = "Module1"
Public dotname(100) As String
Public dothoch(100) As Single
Public dotdistance(100) As Single
Public deltah(99) As Single
Public gzs(100) As Single
Public dothigh(100) As Single
'数据结构定义
Public sum_of_dotdis As Single
Public sum_of_deltah As Single
Public deltah_of_original As Single
Public tolerence As Single
Public dotstart As Integer
Public dotende As Integer
Public dotjetzt As Integer
Public xg As Boolean
Public fsthch As Single
Public lsthch As Single
'通用变量定义

Function sumdotdis() As Single
'求距离和
Dim i As Integer
Dim sum As Single
sum = 0
For i = dotstart To dotende
sum = sum + dotdistance(i)
Next i
sumdotdis = sum
End Function

Function sumdeltah() As Single
'求高差和
Dim i As Integer
Dim sum As Single
sum = 0
For i = dotstart To dotende
sum = sum + dothoch(i)
Next i
sumdeltah = sum
End Function