7637 58323769
test disaster
tresdias
Spanish for three days
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 t = 1 To 9
used(t) = 1
For d = 1 To 9
If used(d) = 0 Then
used(d) = 1
For e = 0 To 9
If used(e) = 0 Then
used(e) = 1
For s = 0 To 9
If used(s) = 0 Then
used(s) = 1
test = 1001 * t + 100 * e + 10 * s
For i = 0 To 9
If used(i) = 0 Then
used(i) = 1
For a = 0 To 9
If used(a) = 0 Then
used(a) = 1
For r = 0 To 9
If used(r) = 0 Then
used(r) = 1
disaster = 10000000 * d + 1000000 * i + 101000 * s + 10000 * a + 100 * t + 10 * e + r
If test * test = disaster Then
Text1.Text = Text1.Text & Str(test) & Str(disaster) & crlf
End If
used(r) = 0
End If
Next
used(a) = 0
End If
Next
used(i) = 0
End If
Next
used(s) = 0
End If
Next
used(e) = 0
End If
Next
used(d) = 0
End If
Next
used(t) = 0
Next
Text1.Text = Text1.Text & crlf & "done"
End Sub
|
|
Posted by Charlie
on 2014-08-04 17:43:24 |
computer solution