Private Sub Form_Load()

ii = FreeFile
Open "D:\contoh.txt" For Output As #ii


Dim v(8)

nv = 8

v(1) = 0
v(8) = 23
n = v(8)

For i2 = 1 To n - 1
For i3 = i2 + 1 To n - 1
For i4 = i3 + 1 To n - 1
For i5 = i4 + 1 To n - 1
For i6 = i5 + 1 To n - 1
For i7 = i6 + 1 To n - 1

v(2) = i2
v(3) = i3
v(4) = i4
v(5) = i5
v(6) = i6
v(7) = i7


g = 0
For i = 1 To n

For j = 1 To nv

For k = j + 1 To nv

If Abs(v(j) - v(k)) = i Then GoTo 1

Next k

Next j

g = g + 1

1 Next i

If g <> 0 Then GoTo 3

For jj = 1 To nv
Print #ii, v(jj)
Next jj

GoTo 2

3 Next i7
Next i6
Next i5
Next i4
Next i3
Next i2

2 End Sub