ex0506 - プログラム倉庫

Private Sub Command1_Click()
Dim x1(1 To 100) As Single
Dim x2(1 To 100) As Single
Dim x(1 To 2, 1 To 2) As Single
Dim b(1 To 2) As Single
Dim y(1 To 2) As Single
Dim n As Single
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim b1 As Single
Dim b2 As Single
For n = 1 To 100
x1(n) = 1 + 0.01 * n
x2(n) = Log(x1(n))
Next
a1 = 0
For n = 1 To 100
a1 = a1 + 1
Next
a2 = 0
For n = 1 To 100
a2 = a2 + x1(n)
Next
a3 = 0
For n = 1 To 100
a3 = a3 + x1(n)
Next
a4 = 0
For n = 1 To 100
a4 = a4 + x1(n) ^ 2
Next
b1 = 0
For n = 1 To 100
b1 = b1 + x2(n)
Next
b2 = 0
For n = 1 To 100
b2 = b2 + x1(n) * x2(n)
Next
x(1, 1) = a1
x(1, 2) = a2
x(2, 1) = a3
x(2, 2) = a4
b(1) = b1
b(2) = b2
For s = 1 To 2
For m = 1 To 2
z = x(m, s) / x(s, s)
If m = s Then z = 0
For n = 1 To 2
x(m, n) = x(m, n) - z * x(s, n)
Next
b(m) = b(m) - z * b(s)
Next
Next
For m = 1 To 2
y(m) = b(m) / x(m, m)
Next
For n = 1 To 100
Debug.Print x1(n)
Next


End Sub