えｘ０５０６

Private Sub Command1_Click()
Dim x(1 To 5, 1 To 5) As Single
Dim b(1 To 5) As Single
Dim s As Single
Dim m As Single
For m = 1 To 5
x(m, m) = 1
b(m) = m
Next
For s = 1 To 5
For m = 1 To 5
z = x(m, s) / x(s, s)
If m = s Then z = 0
For n = 1 To 5
x(m, n) = x(m, n) - z * x(s, n)
Next
b(m) = b(m) - z * b(s)
Next
Next
For m = 1 To 5
Debug.Print m, b(m) / x(m, m)
Next
End Sub