 All about flooble | fun stuff | Get a free chatterbox | Free JavaScript | Avatars  perplexus dot info  What is .... ...... (Posted on 2017-11-19) What is the answer to this alphametic?

plus*minus=penniless

 See The Solution Submitted by Ady TZIDON No Rating Comments: ( Back to comment list | You must be logged in to post comments.) computer solution Comment 1 of 1
1740*93240=162237600

DefDbl A-Z
Dim crlf\$

Form1.Visible = True

Text1.Text = ""
crlf = Chr\$(13) + Chr\$(10)

'     plusmine
s\$ = "1234567890": h\$ = s
Do
plus = Val(Left(s, 4))
minus = Val(Mid(s, 5, 3) + Mid(s, 3, 2))
penniless = 100000000 * Val(Left(s, 1)) + 10000100 * Val(Mid(s, 8, 1)) + 1100000 * Val(Mid(s, 7, 1))
penniless = penniless + 10000 * Val(Mid(s, 6, 1)) + 1000 * Val(Mid(s, 2, 1)) + 11 * Val(Mid(s, 4, 1))
If plus * minus = penniless Then Text1.Text = Text1.Text & plus & Str(minus) & Str(penniless) & crlf
permute s
DoEvents
Loop Until s = h

Text1.Text = Text1.Text & crlf & " done"

End Sub

 Posted by Charlie on 2017-12-02 14:55:23 Please log in:

 Search: Search body:
Forums (2)