最佳解答者得10分﹕解釋答案

我諗呢個應該係小組題.
睇第5行個2知到第一行最尾一定係1或者6
以1泥計
因為第4行個0,所以第2行第2個數一定係5.
因為第2行第2個數一定係5,所以第1行第2個字係4/6/8
因為第5行係4位數,所以第1行第1個字一定大過4
如此類推,一個字推另一個字,有時要試
試到681*256
而第1行用6既話就難試d,因為第2行第2個字難估d

一句講曬,搵可能既數字,一個個試.

下面係program寫既條件
Dim i As Integer
Dim j As Integer
Dim blnPass As Boolean
For i = 201 To 299
blnPass = True
For j = 10 To 99
blnPass = True
If InStr(1, 2 * VBA.CInt(j & 6), "2") <> 4 Then
blnPass = False
End If
If InStr(1, 2 * VBA.CInt(j & 6), "0") > 0 Then
blnPass = False
End If
If InStr(1, Mid(i, 2, 1) * VBA.CInt(j & 6), "0") <> 3 Then
blnPass = False
End If
If InStr(4, Mid(i, 2, 1) * VBA.CInt(j & 6), "0") > 0 Then
blnPass = False
End If
If InStr(1, Mid(i, 2, 1) * VBA.CInt(j & 6), "2") > 0 Then
blnPass = False
End If
If InStr(1, Mid(i, 3, 1) * VBA.CInt(j & 6), "0") <> 2 Then
blnPass = False
End If
If InStr(3, Mid(i, 3, 1) * VBA.CInt(j & 6), "0") > 0 Then
blnPass = False
End If
If InStr(1, Mid(i, 3, 1) * VBA.CInt(j & 6), "2") > 0 Then
blnPass = False
End If
If InStr(1, CDbl(i) * CInt(j & 6), "2") > 0 Then '#
blnPass = False
End If
If InStr(1, CDbl(i) * CInt(j & 6), "0") > 0 Then
blnPass = False
End If
If blnPass = True Then
Debug.Print i & " " & j & 6
End If
Next
Next

如果唔計#打下果段以下3組數都可以出2002
286,676
289,676
298,756
但係298,756既積係225288,所以唔得

所以結果得174336、193336同195364.

(1)=681,256,4086,3405,1362,174336
(2)=676,286,4056,5408,1352,193336
(3)=676,289,6084,5408,1352,195364

676
* 286
------------------
4056
5408
+ 1352
------------------
193336

2007-03-03 02:02:25 補充：
681*256----------------40863405+1362------------------174336