Private Sub Form_Load()

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

Dim i, j, k, m, f1, f2, p, p1, p10, p100, p1000, p10000 As Integer
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For m = 0 To 9
For n = 0 To 9
If i <> j And j <> k And k <> i And m <> i And m <> j And m <> k And n <> i And n <> j And n <> k And n <> m Then
        f1 = 10 * i + j
        f2 = 100 * k + 10 * m + n
        p = f1 * f2
    If p < 100000 Then
        p1 = p Mod 10
        p10 = (p Mod 100 - p1) / 10
        p100 = (p Mod 1000 - 10 * p10 - p1) / 100
        p1000 = (p Mod 10000 - 100 * p100 - 10 * p10 - p1) / 1000
        p10000 = (p - 1000 * p1000 - 100 * p100 - 10 * p10 - p1) / 10000
        If p1 <> i And p1 <> j And p1 <> k And p1 <> p10 And p10 <> i And p10 <> j And p10 <> k And p100 <> i And p100 <> j And p100 <> k And p100 <> p10 And p100 <> p1 And m <> p1 And m <> p10 And m <> p100 And p1000 <> i And p1000 <> j And p1000 <> k And p1000 <> m And p1000 <> p100 And p1000 <> p10 And p1000 <> p1 And n <> p1 And n <> p10 And n <> p100 And n <> p1000 And p10000 <> i And p10000 <> j And p10000 <> k And p10000 <> m And p10000 <> n And p10000 <> p1000 And p10000 <> p100 And p10000 <> p10 And p10000 <> p1 Then
           ' MsgBox (f1)
           ' MsgBox (f2)
           ' MsgBox (p)
            Print #ii, f1, "x", f2, "=", p
        End If
    End If
End If
Next n
Next m
Next k
Next j
Next i

Close #ii

End Sub



-


Private Sub Form_Load()

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

Dim i, j, k, m, f1, f2, p, p1, p10, p100, p1000, p10000 As Integer
For i = 0 To 9
For j = 0 To 9
For k = 0 To 9
For m = 0 To 9
For n = 0 To 9
If i <> j And j <> k And k <> i And m <> i And m <> j And m <> k And n <> i And n <> j And n <> k And n <> m Then
        f1 = i
        f2 = 1000 * j + 100 * k + 10 * m + n
        p = f1 * f2
    If p < 100000 Then
        p1 = p Mod 10
        p10 = (p Mod 100 - p1) / 10
        p100 = (p Mod 1000 - 10 * p10 - p1) / 100
        p1000 = (p Mod 10000 - 100 * p100 - 10 * p10 - p1) / 1000
        p10000 = (p - 1000 * p1000 - 100 * p100 - 10 * p10 - p1) / 10000
        If p1 <> i And p1 <> j And p1 <> k And p1 <> p10 And p10 <> i And p10 <> j And p10 <> k And p100 <> i And p100 <> j And p100 <> k And p100 <> p10 And p100 <> p1 And m <> p1 And m <> p10 And m <> p100 And p1000 <> i And p1000 <> j And p1000 <> k And p1000 <> m And p1000 <> p100 And p1000 <> p10 And p1000 <> p1 And n <> p1 And n <> p10 And n <> p100 And n <> p1000 And p10000 <> i And p10000 <> j And p10000 <> k And p10000 <> m And p10000 <> n And p10000 <> p1000 And p10000 <> p100 And p10000 <> p10 And p10000 <> p1 Then
            ' MsgBox (f1)
            ' MsgBox (f2)
            ' MsgBox (p)
            Print #ii, f1, "x", f2, "=", p
        End If
    End If
End If
Next n
Next m
Next k
Next j
Next i

Close #ii

End Sub