Consider:
000
*001
______
0010
0010
0000
______
100000
Replace
1 by a certain non-zero digit - the remaining zeroes by other digits, so that the multiplication sample is correctly resolved.
677
473
------
2031
4739
2708
------
320221
679
483
------
2037
5432
2716
------
327957
735
574
------
2940
5145
3675
------
421890
868
847
------
6076
3472
6944
------
735196
For a = 100 To 999
astr$ = LTrim(Str(a))
For b = 101 To 999
DoEvents
pr$ = LTrim(RTrim(a * b))
bs$ = LTrim(Str(b))
br$ = Right(bs, 1)
d1 = Val(Mid(bs, 1, 1))
d2 = Val(Mid(bs, 2, 1))
d3 = Val(Mid(bs, 3, 1))
l1$ = LTrim(Str(d3 * a))
l2$ = LTrim(Str(d2 * a))
l3$ = LTrim(Str(d1 * a))
If br > "0" Then
If Len(l1) = 4 And Len(l2) = 4 And Len(l3) = 4 And Len(pr) = 6 Then
If Mid(l1, 3, 1) = br And Mid(l2, 3, 1) = br Then
If InStr(l3, br) = 0 And InStr(astr, br) = 0 And InStr(bs, br) = 3 Then
If InStr(l1, br) = 3 And InStr(l2, br) = 3 Then
If Right(l1, 1) <> br And Right(l2, 1) <> br Then
If Left(pr, 1) = br And InStr(Mid(pr, 2), br) = 0 Then
Text1.Text = Text1.Text & a & crlf
Text1.Text = Text1.Text & b & crlf
Text1.Text = Text1.Text & l1 & crlf
Text1.Text = Text1.Text & l2 & crlf
Text1.Text = Text1.Text & l3 & crlf
Text1.Text = Text1.Text & a * b & crlf & crlf
End If
End If
End If
End If
End If
End If
End If
Next
Next
|
|
Posted by Charlie
on 2018-12-27 11:12:58 |
computer solutions
