frmmatrix.frm

制作矩阵的控件。

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2310
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4290
   LinkTopic       =   "Form1"
   ScaleHeight     =   2310
   ScaleWidth      =   4290
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   615
      Left            =   480
      TabIndex        =   0
      Top             =   600
      Width           =   2895
   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 x(1 To 4) As Variant
    Dim x As Variant
    Dim matr As Matrix, matr1 As Matrix, matr2 As Matrix, matr3 As Matrix
    Dim m As Integer, n As Integer
    Dim det As Double
    m = 0
    n = 0

    matr = CreateMatrix(m, n)
'    matr = CreateMatrix(m, n, 0.2368, 0.2471, 0.2568, 1.2671, 1.1161, 0.1254, 0.1397, 0.149, 0.1582, 1.1675, 0.1768, 0.1871, 0.1968, 0.2071, 1.2168, 0.2271)
'    matr = CreateMatrix(m, n, 1.1161, 0.1254, 0.1397, 0.149, 0.1582, 1.1675, 0.1768, 0.1871, 0.1968, 0.2071, 1.2168, 0.2271)
    matr1 = matr
    matr2 = InvertMatrix(matr1)
'    matr = MultiplyMatrix(matr1, matr2)
''    matr3 = SubMat(matr1, 2, 2)
'    matr3 = SwapCol(matr1, 2, 3)
'    matr2 = CreateMatrix(2, 2, 1, 1, 1, 1)
'    matr3 = CombineMatrix(matr1, matr2, 3, 3)
    
    PrintMatrix matr1
'    PrintMatrix matr2
'    PrintMatrix matr
    PrintMatrix matr3
End Sub