Private Sub Form_Load()

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


Dim v(5)

nv= 5

v(1) = 0
v(5) = 9
n = v(5)

for i2 = 1 to n-1
for i3 = i2+1 to n-1
for i4 = i3+1 to n-1

v(2) = i2
v(3) = i3
v(4) = i4


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

go to 2

3 next i4
next i3
next i2

2 End Sub