ex0504 - プログラム倉庫

Function matrix(n As Single, x, b) As Single
Dim z As Single
Dim y(1 To 2) As Single
z = x(2, 1) / x(1, 1)
x(2, 1) = x(2, 1) - z * x(1, 1)
x(2, 2) = x(2, 2) - z * x(1, 2)
b(2) = b(2) - z * b(1)
y(2) = b(2) / x(2, 2)
y(1) = (b(1) - x(1, 2) * y(2)) / x(1, 1)
matrix = y(n)
End Function
Private Sub Command1_Click()
Dim x(1 To 2, 1 To 2) As Single
Dim b(1 To 2) As Single
x(1, 1) = 1
x(1, 2) = 1
x(2, 1) = 2
x(2, 2) = 1
b(1) = 2
b(2) = 3
Debug.Print matrix(1, x, b)
Debug.Print matrix(2, x, b)

End Sub