ｘｘｃｄｓ - プログラム倉庫

Private Sub Command1_Click()
    
Dim files As String
Dim m As Integer
Dim n As Integer
Dim s As Integer
Dim a1 As Single
Dim a2 As Single
Dim a3 As Single
Dim a4 As Single
Dim a5 As Single
Dim g(1 To 32) As Single
Dim t(1 To 32) As Single
Dim p(1 To 32) As Single
Dim grade(1 To 32) As Single
Dim xx(1 To 4, 1 To 4) As Single
Dim xy(1 To 4) As Single
Dim x(1 To 4, 1 To 32) As Single


files = "c:/work/700.txt"
    
n = 0
Open files For Input As #1
Do Until EOF(1)
Input #1, a1, a2, a3, a4, a5
n = a1
g(n) = a2
t(n) = a3
p(n) = a4
grade(n) = a5
Loop
Close #1
    
For s = 1 To 32
x(1, s) = 1
x(2, s) = g(s)
x(3, s) = t(s)
x(4, s) = p(s)
Next

For m = 1 To 4
For n = 1 To 4
z = 0
For s = 1 To 32
z = z + x(m, s) * x(n, s)
Next
xx(m, n) = z
Next
Next



For m = 1 To 4
z = 0
For s = 1 To 32
z = z + x(m, s) * grade(s)
Next
xy(m) = z
Next


For m = 1 To 4
For n = 1 To 4
z = xx(n, m) / xx(m, m)
If m = n Then z = 0
For s = 1 To 4
xx(n, s) = xx(n, s) - z * xx(m, s)
Next
xy(n) = xy(n) - z * xy(m)
Next
Next

For m = 1 To 4
Debug.Print m, xx(m, m), xy(m)
Next



End Sub