矩阵想乘.frm

求逆

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   5850
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7515
   LinkTopic       =   "Form1"
   ScaleHeight     =   5850
   ScaleWidth      =   7515
   StartUpPosition =   3  '窗口缺省
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   2775
      Left            =   360
      TabIndex        =   1
      Top             =   360
      Width           =   3615
      _ExtentX        =   6376
      _ExtentY        =   4895
      _Version        =   393216
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   1455
      Left            =   2280
      TabIndex        =   0
      Top             =   3600
      Width           =   2655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Base 1
Private Sub Command1_Click()
Dim i, j As Integer
Dim m(6) As Single
Dim b(6, 6) As Single: Dim d(6) As Single
b(1, 1) = -0.172: b(1, 2) = 0.05: b(1, 3) = 0.022: b(1, 4) = -0.026: b(1, 5) = 0.126: b(1, 6) = 0.273
b(2, 1) = 0.05: b(2, 2) = -0.167: b(2, 3) = 0.032: b(2, 4) = 0.077: b(2, 5) = 0.007: b(2, 6) = 0.207
b(3, 1) = 0.022: b(3, 2) = 0.032: b(3, 3) = -0.111: b(3, 4) = 0.066: b(3, 5) = -0.01: b(3, 6) = 0.357
b(4, 1) = -0.026: b(4, 2) = 0.077: b(4, 3) = 0.066: b(4, 4) = -0.307: b(4, 5) = 0.19: b(4, 6) = 0.03
b(5, 1) = 0.126: b(5, 2) = 0.007: b(5, 3) = -0.01: b(5, 4) = 0.19: b(5, 5) = -0.313: b(5, 6) = 0.134
b(6, 1) = 0.273: b(6, 2) = 0.207: b(6, 3) = 0.357: b(6, 4) = 0.003: b(6, 5) = 0.134: b(6, 6) = -6.873
d(1) = 7.151: d(2) = 5.597: d(3) = 8.815: d(4) = 3.621: d(5) = 4.72: d(6) = 1#
For i = 1 To 6
    m(i) = 0
   For j = 1 To 6
    m(i) = m(i) + b(i, j) * d(j)
   Next j
 Next i
 For i = 1 To 6
 Print Format(m(i), "##.0000") & "   ";
 Next i
 
End Sub