HOWHIGH-THEMOON=TONIGHT
2 67 3624250 for a quick answer.
DefDbl A-Z
Dim crlf$, used(9)
Private Sub Form_Load()
Form1.Visible = True
Text1.Text = ""
crlf = Chr$(13) + Chr$(10)
For h = 1 To 9
used(h) = 1
For t = 1 To 9
If used(t) = 0 Then
used(t) = 1
For o = 0 To 9
If used(o) = 0 Then
used(o) = 1
For w = 0 To 9
If used(w) = 0 Then
used(w) = 1
For i = 0 To 9
If used(i) = 0 Then
used(i) = 1
For g = 0 To 9
If used(g) = 0 Then
used(g) = 1
For e = 0 To 9
If used(e) = 0 Then
used(e) = 1
For m = 0 To 9
If used(m) = 0 Then
used(m) = 1
For n = 0 To 9
If used(n) = 0 Then
used(n) = 1
howhigh = h * 1001001 + o * 100000 + w * 10000 + i * 100 + g * 10
themoon = 1000000 * t + 100000 * h + 10000 * e + 1000 * m + 110 * o + n
tonight = 1000001 * t + 100000 * o + 10000 * n + 1000 * i + 100 * g + 10 * h
If howhigh = tonight + themoon Then
Text1.Text = Text1.Text & howhigh & " " & themoon & " " & tonight & crlf
End If
used(n) = 0
End If
Next
used(m) = 0
End If
Next
used(e) = 0
End If
Next
used(g) = 0
End If
Next
used(i) = 0
End If
Next
used(w) = 0
End If
Next
used(o) = 0
End If
Next
used(t) = 0
End If
Next
used(h) = 0
Next
Text1.Text = Text1.Text & crlf & " done"
End Sub
finds
9139209 4987115 4152094 for
HOWHIGH THEMOON TONIGHT
So
2 67 3624250 is
I AM WAITING for a quick answer.
|
|
Posted by Charlie
on 2016-02-10 12:36:36 |
computer solution