Private Sub Form_Load()
ChDir "C:\Program Files (x86)\DevStudio\VB\projects\flooble"
Text1.Text = ""
crlf$ = Chr(13) + Chr(10)
Form1.Visible = True
DoEvents
For o = 1 To 9
If used(o) = 0 Then
used(o) = 1
For a = 1 To 9
If used(a) = 0 Then
used(a) = 1
For m = 1 To 9
If used(m) = 0 Then
used(m) = 1
For r = 0 To 9
If used(r) = 0 Then
used(r) = 1
For c = 0 To 9
If used(c) = 0 Then
used(c) = 1
For l = 0 To 9
If used(l) = 0 Then
used(l) = 1
For e = 0 To 9
If used(e) = 0 Then
used(e) = 1
oracle = 100000 * o + 10000 * r + 1000 * a + 100 * c + 10 * l + e
For s = 0 To 9
If used(s) = 0 Then
used(s) = 1
For t = 0 To 9
If used(t) = 0 Then
used(t) = 1
almost = 100000 * a + 10000 * l + 1000 * m + 100 * o + 10 * s + t
For n = 0 To 9
If used(n) = 0 Then
used(n) = 1
mentor = 100000 * m + 10000 * e + 1000 * n + 100 * t + 10 * o + r
If oracle = almost + mentor Then
Text1.Text = Text1.Text & "oracle almost mentor" & crlf
Text1.Text = Text1.Text & oracle & Str(almost) & Str(mentor) & crlf
End If
used(n) = 0
End If
Next
used(t) = 0
End If
Next
used(s) = 0
End If
Next
used(e) = 0
End If
Next
used(l) = 0
End If
Next
used(c) = 0
End If
Next
used(r) = 0
End If
Next
used(m) = 0
End If
Next
used(a) = 0
End If
Next
used(o) = 0
End If
Next
Text1.Text = Text1.Text & crlf & " done"
End Sub
finds
oracle almost mentor
591862 164503 427359
Using that I get:
s*c trans*t *lor*a m*n**
sic transit gloria mundi
Thus passes worldly glory.
According to Wikipedia the phrase was used in coronations of popes between 1409 and 1963.
|
|
Posted by Charlie
on 2014-10-01 15:51:47 |
computer aided solution
