form1.frm

一些关于测量方面平差的程序

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5235
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7665
   LinkTopic       =   "Form1"
   ScaleHeight     =   5235
   ScaleWidth      =   7665
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   3240
      TabIndex        =   0
      Top             =   2400
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim m As Integer, i As Integer, j As Integer, n As Integer, t As Integer
n = Val(InputBox("请输如观测值个数"))
t = Val(InputBox("请输如必要观测植个数"))
Dim a(1 To i, 1 To j) As Integer
 For i = 1 To n
   For j = 1 To t
   a(i, j) = Val(InputBox("按行输入，一次只输入一个数据"))
   Next j
 Next i
 a() = Transpose()
End Sub

Private Sub Form1_Load()
Print a()
End Sub
Public Function Transpose(a() As Double)
        Dim i, j As Integer
        Dim AT() As Double
        Dim r As Integer
        Dim c As Integer
        r = UBound(a, 1) - LBound(a, 1) + 1
        c = UBound(a, 2) - LBound(a, 2) + 1
        ReDim AT(c, r) As Double
              For i = LBound(a, 1) To UBound(a, 1)
                  For j = LBound(a, 2) To UBound(a, 2)
                    AT(j, i) = a(i, j)
                  Next j
              Next i
Transpose = AT()
End Function