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, s1000 As Integer
ib = 0
ie = ib + 8
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 j <> k And m <> j And m <> k And n <> j And n <> k And n <> m And t <> j And t <> k And t <> m And t <> n Then
        sf = 10 * j + k
        ss = 100 * m + 10 * n + t
        s = sf + ss
    If s < 10000 Then
        s1 = s Mod 10
        s10 = (s Mod 100 - s1) / 10
        s100 = (s Mod 1000 - 10 * s10 - s1) / 100
        s1000 = (s - 100 * s100 - 10 * s10 - s1) / 1000
        If s1 > ib - 1 And s10 > ib - 1 And s100 > ib - 1 And s1000 > ib - 1 And s1 < ie + 1 And s10 < ie + 1 And s100 < ie + 1 And s1000 < ie + 1 And s1 <> j And s1 <> s10 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 <> j And s100 <> k And s100 <> m And s100 <> n And t <> s1 And t <> s10 And t <> s100 And s1000 <> s1 And s1000 <> s10 And s1000 <> s100 And s1000 <> j And s1000 <> k And s1000 <> m And s1000 <> n And s1000 <> t 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

Close #ii

End Sub