form1.frm

大学里数学系必学的一们课程数值分析中的经典算法————lu分解的程序vb版本

VERSION 5.00
Begin VB.Form Form1 
   ClientHeight    =   6825
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8430
   LinkTopic       =   "Form1"
   ScaleHeight     =   6825
   ScaleWidth      =   8430
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text4 
      Height          =   375
      Index           =   3
      Left            =   4800
      TabIndex        =   15
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Index           =   2
      Left            =   4800
      TabIndex        =   14
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox Text4 
      Height          =   375
      Index           =   1
      Left            =   4800
      TabIndex        =   13
      Top             =   480
      Width           =   495
   End
   Begin VB.TextBox Text7 
      Height          =   375
      Index           =   3
      Left            =   3960
      TabIndex        =   12
      Text            =   "1"
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text7 
      Height          =   375
      Index           =   2
      Left            =   3960
      TabIndex        =   11
      Text            =   "2"
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox Text7 
      Height          =   375
      Index           =   1
      Left            =   3960
      TabIndex        =   10
      Text            =   "0"
      Top             =   480
      Width           =   495
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   600
      TabIndex        =   9
      Top             =   2640
      Width           =   2415
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Index           =   3
      Left            =   1920
      TabIndex        =   8
      Text            =   "-6"
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Index           =   2
      Left            =   1320
      TabIndex        =   7
      Text            =   "2"
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text3 
      Height          =   375
      Index           =   1
      Left            =   720
      TabIndex        =   6
      Text            =   "1"
      Top             =   1680
      Width           =   495
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Index           =   3
      Left            =   1920
      TabIndex        =   5
      Text            =   "9"
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Index           =   2
      Left            =   1320
      TabIndex        =   4
      Text            =   "1"
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Index           =   1
      Left            =   720
      TabIndex        =   3
      Text            =   "1"
      Top             =   1080
      Width           =   495
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   3
      Left            =   1920
      TabIndex        =   2
      Text            =   "4"
      Top             =   480
      Width           =   495
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   2
      Left            =   1320
      TabIndex        =   1
      Text            =   "3"
      Top             =   480
      Width           =   495
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Index           =   1
      Left            =   720
      TabIndex        =   0
      Text            =   "2"
      Top             =   480
      Width           =   495
   End
   Begin VB.Label Label3 
      Caption         =   "x(i)"
      Height          =   375
      Left            =   4800
      TabIndex        =   17
      Top             =   240
      Width           =   615
   End
   Begin VB.Label Label2 
      Caption         =   "y(i)"
      Height          =   495
      Left            =   3960
      TabIndex        =   16
      Top             =   240
      Width           =   495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim a(5, 5) As Double
Dim l(5, 5) As Double
Dim u(5, 5) As Double, y(3) As Double, x(3) As Double, b(3) As Integer
Dim m As Integer
Dim p As Integer
Private Sub Command1_Click()



Dim i As Integer
Dim j As Integer


For i = 1 To 3
   a(1, i) = Text1(i).Text
   a(2, i) = Text2(i).Text
   a(3, i) = Text3(i).Text
      b(i) = Text7(i).Text
Next i
 
For i = 1 To 3
    u(1, i) = a(1, i)
Next i
For i = 2 To 3
    l(i, 1) = a(i, 1) / u(1, 1)
Next i

   


For i = 2 To 3
    u(2, i) = a(2, i) - l(2, 1) * u(1, i)
    l(3, 2) = (a(3, 2) - l(3, 1) * u(1, 2)) / u(2, 2)
Next i
For i = 1 To 3
    u(3, i) = a(3, i) - l(3, 1) * u(1, i) - l(3, 2) * u(2, i)
    
Next i


y(1) = b(1)
y(2) = b(2) - l(2, 1) * y(1)
y(3) = b(3) - l(3, 1) * y(1) - l(3, 2) * y(2)
x(3) = y(3) / u(3, 3)
x(2) = (y(2) - u(2, 3) * x(3)) / u(2, 2)
x(1) = (y(1) - u(1, 3) * x(3) - u(1, 2) * x(2)) / u(1, 1)
Call valuetext

End Sub

     
Function valuetext()

For i = 1 To 3
  Text1(i).Text = u(1, i)
Next i

Text2(1).Text = l(2, 1)
 For i = 2 To 3
     Text2(i).Text = u(2, i)
 Next i
 
Text3(1).Text = l(3, 1)
Text3(2).Text = l(3, 2)
Text3(3).Text = u(3, 1)

For i = 1 To 3
    Text7(i).Text = y(i)
Next i

For i = 1 To 3
    Text4(i).Text = x(i)
Next i
End Function