【正文】 = Val() Call AddData(iMark, dist, dH) 39。清除已經(jīng)傳給主窗體的數(shù)據(jù) Dim i% For i = 1 To iMark dis(i) = 0 detH(i) = 0 Next i 39。測(cè)站數(shù)加 1 End Sub Private Sub Form_Load() iMark = 1 End Sub Option Explicit Dim iMark% 39。 Trim(Str(iMark)) amp。如果已經(jīng)輸入完所有的測(cè)站觀測(cè)值 Else 39。 detH(iMark) amp。 dis(iMark) amp。 vbCrLf = amp。 Str(iMark) amp。在主窗體顯示本站數(shù)據(jù) = amp。清除主窗體的顯示 = 水準(zhǔn)計(jì)算結(jié)果 : 39。測(cè)站計(jì)數(shù)器 Dim dist!, dH! Private Sub cmdCancel_Click() 39。約化過(guò)程 For iRow = iStep + 1 To n L(iRow) = A(iRow, iStep) / A(iStep, iStep) For iCol = iStep To n A(iRow, iCol) = A(iRow, iCol) L(iRow) * A(iStep, iCol) Next iCol b(iRow) = b(iRow) L(iRow) * b(iStep) Next iRow Next iStep 39。列選主元 iPos = 0 For iRow = iStep + 1 To n If Abs(A(iRow, iStep)) Abs(A(iStep, iStep)) Then iPos = iRow End If Next iRow If iPos iStep Then 39。準(zhǔn)備約化過(guò)程的變量和數(shù)組 n = UBound(b) LBound(b) + 1 If n Row Then MsgBox 方程組的系數(shù)矩陣與常數(shù)項(xiàng)大小不符！ Exit Sub End If ReDim L(2 To Row) As Double Dim sumAX As Double, iPos%, temp 39。各行的約化系數(shù) 39。矩陣大小 Dim iStep%, iRow%, iCol% 39。一維矩陣相乘結(jié)果是二維矩陣 For ai = LBound(Qa, 1) To UBound(Qa, 1) For bi = LBound(Qa, 2) To UBound(Qa, 2) Qn(ai, bi) = Qa(ai) * Qb(bi) Next bi Next ai End If End Sub Public Sub ShowMatrix(tt) Dim i%, j%, n%, m% m = UBound(tt, 1) LBound(tt, 1) + 1 n = UBound(tt, 2) LBound(tt, 2) + 1 For i = 1 To m For j = 1 To n tt(i, j), Next j Next i End Sub 39。是否是數(shù)乘一維矩陣 ia = UBound(Qa) LBound(Qa) If Err Then e4 = True If e4 Then For bi = LBound(Qa, 2) To UBound(Qa, 2) Qn(bi) = Qa * Qb(bi) Next bi Exit Sub End If On Error Resume Next 39。結(jié)果是否是一個(gè)數(shù) errT = UBound(Qn) If Err Then e3 = True If e3 Then 39。二維矩陣乘以數(shù) For ai = LBound(Qa, 1) To UBound(Qa, 1) For bi = LBound(Qa, 2) To UBound(Qa, 2) Qn(ai, bi) = Qa(ai, bi) * Qb Next bi Next ai Else 39。數(shù)乘以二維矩陣 For ai = LBound(Qb, 1) To UBound(Qb, 1) For bi = LBound(Qb, 2) To UBound(Qb, 2) Qn(ai, bi) = Qa * Qb(ai, bi) Next bi Next ai Else 39?？?Qa 是不是一維數(shù)組 ib = UBound(Qb, 2) LBound(Qb, 2) If Err Then e2 = True If e1 = False And e2 = False Then 39。矩陣相乘：輸入矩陣或數(shù) Qa、 Qb，自動(dòng)識(shí)別它們的維數(shù)，并輸出它們的乘積 Qn Public Sub Matrix_Multy(Qn, Qa, Qb) Dim ia%, ib%, ic% Dim ai%, bi%, ci% Dim e1 As Boolean, e2 As Boolean, e3 As Boolean, e4 As Boolean, e5 As Boolean, e6 As Boolean, e7 As Boolean On Error Resume Next 39。將度 .分秒形式化為弧度：輸入為度 .分秒形式，輸出為弧度 Public Function DoToHu(ByVal DoFenMiao As Double) As Single Dim du%, fen%, miao%, angle du = Fix(DoFenMiao) DoFenMiao = (DoFenMiao du) * 100 fen = Fix(DoFenMiao) miao = (DoFenMiao fen) * 100 angle = du + fen / 60 + miao / 3600 DoToHu = angle * PI / 180 End Function 39。將轉(zhuǎn)換參數(shù)寫入相應(yīng)文本框 txtK2 = Str(k2 1) e2 = e2 * 180 / PI Dim du%, fen% du = Int(e2): e2 = (e2 du) * 60 fen = Int(e2): e2 = (e2 fen) * 60 e2 = Val(Format(e2, )) e2 = du + fen / 100 + e2 / 10000 txtE2 = Str(e2) = Str(x(1)) = Str(x(2)) End Sub Private Sub cmdCalc2_Click() k2 = Val() e2 = Val() e2 = DoToHu(e2) dX2 = Val() dY2 = Val() x2 = Val() y2 = Val() Xx2 = (k2 + 1) * (x2 * Cos(e2) + y2 * Sin(e2)) + dX2 Yy2 = (k2 + 1) * (y2 * Cos(e2) x2 * Sin(e2)) + dY2 = Format(Xx2, ) = Format(Yy2, ) End Sub Private Sub cmdCalc3_Click() k3 = Val() Ex = Val() Ex = DoToHu(Ex) Ey = Val() Ey = DoToHu(Ey) Ez = Val() Ez = DoToHu(Ez) dX3 = Val() dY3 = Val() dZ3 = Val() X3 = Val() Y3 = Val() Z3 = Val() Xx3 = (k3 + 1) * (X3 * Cos(Ey) * Cos(Ez) + Y3 * Cos(Ey) * Sin(Ez) Z3 * Sin(Ey)) + dX3 Yy3 = (k3 + 1) * (X3 * (Cos(Ex) * Sin