What is the answer to this alphametic?
plus*minus=penniless
1740*93240=162237600
DefDbl A-Z
Dim crlf$
Private Sub Form_Load()
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 |
computer solution