[Eddy]

evo nove verzije:

Private Sub cmdStart_Click()
Dim D As Double
Dim O As Double
Dim N As Double
Dim A As Double
Dim L As Double
Dim G As Double
Dim E As Double
Dim R As Double
Dim B As Double
Dim T As Double


For D = 1 To 9
For O = 1 To 9
For N = 1 To 9
For A = 1 To 9
For L = 1 To 9
For G = 1 To 9
For E = 1 To 9
For R = 1 To 9
For B = 1 To 9
For T = 1 To 9
If D <> O And D <> N And D <> A And D <> L And D <> G And D <> E And D <> R And D <> B And D <> T Then
If O <> N And O <> A And O <> L And O <> G And O <> E And O <> R And O <> B And O <> T Then
If N <> A And N <> L And N <> G And N <> E And N <> R And N <> B And N <> T Then
If A <> L And A <> G And A <> E And A <> R And A <> B And A <> T Then
If L <> G And L <> E And L <> R And L <> B And L <> T Then
If G <> E And G <> R And G <> B And G <> T Then
If E <> R And E <> B And E <> T Then
If R <> B And R <> T Then
' Beep ( I've put this here just to see if the program executes tis far)
If B <> T Then

If (100000 * D + 10000 * O + 1000 * N + 100 * A + 10 * L + D) + (100000 * G + 10000 * E + 1000 * R + 100 * A + 10 * L + D) = (100000 * R + 10000 * O + 1000 * B + 100 * E + 10 * R + T) Then MsgBox (D & O & N & A & L & G & E & R & B & T) 'txtD.Text = D 'MsgBox (D)
'txtD.Text = D
'Else

End If
End If
End If
End If
End If
End If
End If
End If
End If
Next T
Next B
Next R
Next E
Next G
Next L
Next A
Next N
Next O
Next D
End Sub

Na kraju se ne pojavi messagebox, jel ima neko neku ideju???????