|
发表于 2015-4-17 07:58:51
|
显示全部楼层
只有一个解:
21978 * 4 = 87912
结题过程如下:
新建一个excel表
随便点击一个工作表,右键单击,选择”查看代码“
输入一下内容后运行:
Sub aa()
i = 1
For a = 0 To 9
For b = 0 To 9
For c = 0 To 9
For d = 0 To 9
For e = 0 To 9
For f = 0 To 9
x = a * 10000 + b * 1000 + c * 100 + d * 10 + e
y = e * 10000 + d * 1000 + c * 100 + b * 10 + a
If a = b Or a = c Or a = d Or a = e Or a = f Or b = c Or b = d Or b = e Or b = f Or c = d Or c = e Or c = f Or d = e Or d = f Or e = f Then
ppp = 1
Else
If x * f = y Then
Cells(i, 1) = x
Cells(i, 2) = f
Cells(i, 3) = y
i = i + 1
End If
End If
Next f
Next e
Next d
Next c
Next b
Next a
在表内得出答案 |
|