frmmodify.frm

该程序是三角网平差程序

VERSION 5.00
Begin VB.Form FrmModify 
   Caption         =   "三角网闭合差"
   ClientHeight    =   4815
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   7560
   LinkTopic       =   "Form1"
   ScaleHeight     =   4815
   ScaleWidth      =   7560
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "FrmModify"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim i, j, k, j As Integer
'Dim g_t1(300) As Integer
'Dim g_t2(300) As Integer
'Dim temp1, temp2, temp3, temp
'Private Sub findt()
'  For i = 1 To g_ObsBnum
'      temp1 = g_MSname(i)
'      temp2 = g_AlPotname(i)
'     For j = i + 1 To g_ObsBnum
'          Do While g_MSname(j) = temp2 '//找出所有测站为g_alpotname(i)的照准点
'             temp = 1
'             g_t1(temp) = j
'             temp = temp + 1
'          Loop
'          Do While g_AlPotname(j) = temp1 '//找出所有照准g_msname(i)的测站
'             temp3 = 1
'             g_t2(temp3) = j
'             temp3 = temp3 + 1
'          Loop
'     Next
'    For k = 1 To temp
'      For j = 1 To temp3
'         If g_t1(temp) = g_t2(temp3) Then
'
'
'         Next
'       Next
'  Next
'End Sub
'
'Private Sub Form_Load()
'
'End Sub