form1.frm

采用按列消去

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   1800
      TabIndex        =   0
      Top             =   1320
      Width           =   1215
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
Dim a() As Double
Dim b() As Double
Dim X() As Double
'ReDim a(1 To 6, 1 To 6) As Double
'a(1, 1) = -1.0194: a(1, 2) = -8.371902: a(1, 3) = 0.588235: a(1, 4) = 2.352941: a(1, 5) = 0: a(1, 6) = 3.666667
'a(2, 1) = -8.113836: a(2, 2) = 1.064786: a(2, 3) = 2.352941:  a(2, 4) = -0.588235: a(2, 5) = 3.666667: a(2, 6) = 0
'a(3, 1) = 0.588235: a(3, 2) = 2.352941: a(3, 3) = -1.044966: a(3, 4) = -4.87698: a(3, 5) = 0: a(3, 6) = 0
'a(4, 1) = 2.352941: a(4, 2) = -0.0588235: a(4, 3) = -4.577775: a(4, 4) = 1.093043: a(4, 5) = 0: a(4, 6) = 0
'a(5, 1) = 0: a(5, 2) = 4.033333: a(5, 3) = -0: a(5, 4) = 0: a(5, 5) = 0: a(5, 6) = -3.666667
'a(6, 1) = 0: a(6, 2) = 0: a(6, 3) = 0: a(6, 4) = 0: a(6, 5) = -2.2: a(6, 6) = 0
'
'ReDim b(1 To 6) As Double
'b(1) = -0.277307: b(2) = -0.050967: b(3) = -0.525962: b(4) = 0.019602: b(5) = 0.5: b(6) = 0
'ReDim X(1 To 6) As Double
'
'
'
''Call Line_F(6, a, b, X)
'
'Call gosi(6, a, b, X)
ReDim a(1 To 3, 1 To 3) As Double
ReDim b(1 To 3) As Double
ReDim X(1 To 3) As Double
a(1, 1) = 1: a(1, 2) = 1: a(1, 3) = -2
a(2, 1) = 2: a(2, 2) = -3: a(2, 3) = 0
a(3, 1) = 1: a(3, 2) = 2: a(3, 3) = -4
b(1) = 5: b(2) = -1: b(3) = 2
Call gosi(3, a, b, X)
End Sub