Private Sub Form_Load()

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


Dim v(7)

nv= 7

v(1) = 0
v(7) = 18
n = v(7)

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

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


For i = 1 To n

For j = 1 to nv

For k = j+1 to nv

If abs (v(j) - v(k)) = i then Print #ii, "(", v(j), ",", v(k), "), ": goto 1

Next k

Next j


Print #ii, i, "edge is missing"
goto 3


1 Next i


3 next i6
next i5
next i4
next i3
next i2

2 End Sub