《VB坐标转换程序设计》.doc

Option Explicit Dim k2#, e2#, dX2#, dY2# Dim x2#, Xx2#, y2#, Yy2# Dim k3#, Ex#, Ey#, Ez#, dX3#, dY3#, dZ3# Dim X3#, Y3#, Z3#, Xx3#, Yy3#, Zz3# Const PI = 3.14159265358979 Private Sub Check1_Click() If Check1.Value = 1 Then frmCoorTrans.Height = 5175 ElseIf Check1.Value = 0 Then frmCoorTrans.Height = 4440 End If End Sub Private Sub cmdBrowFile_Click() CDg1.Filter = 控制点文件 (*.gcp)|*.gcp|所有文件 (*.*)|*.* CDg1.Action = 1 txtFileName.Text = CDg1.FileName End Sub Private Sub cmdCalc_Click() Dim s A