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            =   1560
      TabIndex        =   0
      Top             =   960
      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(3, 3) As Double
ReDim b(3) As Double
ReDim x(3) As Double

'Dim a() As Double
'ReDim a(3, 3) As Double
a(1, 1) = 3: a(1, 2) = 2: a(1, 3) = 2
a(2, 1) = 2: a(2, 2) = 3: a(2, 3) = 2
a(3, 1) = 2: a(3, 2) = 2: a(3, 3) = 3
'a(1, 1) = 0.01074: a(1, 2) = 0.02756: a(1, 3) = -0.04538
'a(2, 1) = 0.02756: a(2, 2) = 0.29979: a(2, 3) = -0.17424
'a(3, 1) = -0.04538: a(3, 2) = -0.17424: a(3, 3) = 0.30944
'Dim b() As Double
'ReDim b(3) As Double
b(1) = 14: b(2) = 13: b(3) = 15
'b(1) = 6.719334: b(2) = -9.510928: b(3) = -7.098803




'a(1, 1) = 2: a(1, 2) = 1: a(1, 3) = 2
'a(2, 1) = 1: a(2, 2) = 3: a(2, 3) = 2
'a(3, 1) = 2: a(3, 2) = 2: a(3, 3) = 4
'b(1) = 5: b(2) = 6: b(3) = 8
Call triangular(3, a, b, x)
End Sub