Function determinant(x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4)
v1 = x2 - x1
v2 = -(x3 - x1)
v3 = x4 - x1
d1 = (y3 - y1) * (z4 - z1) - (y4 - y1) * (z3 - z1)
d2 = (y2 - y1) * (z4 - z1) - (y4 - y1) * (z2 - z1)
d3 = (y2 - y1) * (z3 - z1) - (y3 - y1) * (z2 - z1)
determinant = v1 * d1 + v2 * d2 + v3 * d3
End Function
Private Sub Form_Load()
jjj = FreeFile
Open "D:\0auto10results.txt" For Output As #jjj

Dim p(125, 3), cc(10)
'
of = 10
s = 10

D = 5
'
'
k = 0
For m = 0 To D - 1
For j = 0 To D - 1
For i = 0 To D - 1
p(k, 1) = m
p(k, 2) = j
p(k, 3) = i
k = k + 1
Next i
Next j
Next m

'For i1 = 0 To D ^ 3 - s
For i1 = 0 To 0
For i2 = i1 + 1 To D ^ 3 - s + 1
For i3 = i2 + 1 To D ^ 3 - s + 2
For i4 = i3 + 1 To D ^ 3 - s + 3
For i5 = i4 + 1 To D ^ 3 - s + 4
For i6 = i5 + 1 To D ^ 3 - s + 5
For i7 = i6 + 1 To D ^ 3 - s + 6
For i8 = i7 + 1 To D ^ 3 - s + 7
For i9 = i8 + 1 To D ^ 3 - s + 8
For i10 = i9 + 1 To D ^ 3 - s + 9

'
cc(1) = i1
cc(2) = i2
cc(3) = i3
cc(4) = i4
cc(5) = i5
cc(6) = i6
cc(7) = i7
cc(8) = i8
cc(9) = i9
cc(10) = i10
'
For c1 = 1 To of - 3
For c2 = c1 + 1 To of - 2
For c3 = c2 + 1 To of - 1
For c4 = c3 + 1 To of

x1 = p(cc(c1), 1)
x2 = p(cc(c2), 1)
x3 = p(cc(c3), 1)
x4 = p(cc(c4), 1)
y1 = p(cc(c1), 2)
y2 = p(cc(c2), 2)
y3 = p(cc(c3), 2)
y4 = p(cc(c4), 2)
z1 = p(cc(c1), 3)
z2 = p(cc(c2), 3)
z3 = p(cc(c3), 3)
z4 = p(cc(c4), 3)
de = determinant(x1, x2, x3, x4, y1, y2, y3, y4, z1, z2, z3, z4)

'
If de = 0 Then GoTo 1

Next c4
Next c3
Next c2
Next c1


Print #jjj, "(", p(i1, 1), ",", p(i1, 2), ",", p(i1, 3), , ")", ","
Print #jjj, "(", p(i2, 1), ",", p(i2, 2), ",", p(i2, 3), , ")", ","
Print #jjj, "(", p(i3, 1), ",", p(i3, 2), ",", p(i3, 3), , ")", ","
Print #jjj, "(", p(i4, 1), ",", p(i4, 2), ",", p(i4, 3), , ")", ","
Print #jjj, "(", p(i5, 1), ",", p(i5, 2), ",", p(i5, 3), , ")", ","
Print #jjj, "(", p(i6, 1), ",", p(i6, 2), ",", p(i6, 3), , ")", ","
Print #jjj, "(", p(i7, 1), ",", p(i7, 2), ",", p(i7, 3), , ")", ","
Print #jjj, "(", p(i8, 1), ",", p(i8, 2), ",", p(i8, 3), , ")", ","
Print #jjj, "(", p(i9, 1), ",", p(i9, 2), ",", p(i9, 3), , ")", ","
Print #jjj, "(", p(i10, 1), ",", p(i10, 2), ",", p(i10, 3), , ")"

'
GoTo 2
1 Next i10
Next i9
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
2 End Sub