Private Sub Form_Load()

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

Dim ib, ie, i, j, k, m, n, t, sf, ss, s, s1, s10, s100 As Integer
ib = 1
ie = ib + 8
For i = ib To ie
For j = ib To ie
For k = ib To ie
For m = ib To ie
For n = ib To ie
For t = ib To ie
If i <> j And i <> k And j <> k And m <> i And m <> j And m <> k And n <> i And n <> j And n <> k And n <> m And t <> i And t <> j And t <> k And t <> m And t <> n Then
        sf = 100 * i + 10 * j + k
        ss = 100 * m + 10 * n + t
        s = sf + ss
    If s < 1000 Then
        s1 = s Mod 10
        s10 = (s Mod 100 - s1) / 10
        s100 = (s - 10 * s10 - s1) / 100
        If s1 > ib - 1 And s10 > ib - 1 And s1 < ie + 1 And s10 < ie + 1 And s100 < ie + 1 And s1 <> i And s1 <> j And s1 <> s10 And s10 <> i And s10 <> j And k <> s1 And k <> s10 And m <> s1 And m <> s10 And s1 <> n And s10 <> n And s100 <> s1 And s100 <> s10 And s100 <> i And s100 <> j And s100 <> k And s100 <> m And s100 <> n And t <> s1 And t <> s10 And t <> s100 Then
'            MsgBox (sf)
'            MsgBox (ss)
'            MsgBox (s)
            Print #ii, sf, "+", ss, "=", s
        End If
    End If
End If
Next t
Next n
Next m
Next k
Next j
Next i

Close #ii

End Sub