[Flickr] iamfisher (Fisher Huang) 與你分享了一張 Flickr 相片

	iamfisher (Fisher Huang) 與你分享了一張 Flickr 相片。 照片 136 由 iamfisher 於 2011年2月26日 上載 在 江苏省, 中國 拍攝 保留部分權利。 照片传到Flickr了。呵呵 只需按一下此連結即可查看和回應此相片： »  http://www.flickr.com/x/t/0093009/photos/iamfisher/5480058209/ 你收到此電郵的原因是某個 Flickr 會員想與你分享一些東西。若要檢舉濫用，請按一下這裡。 Flickr 是一個全球性的相片分享社群。瞭解更多資訊。 你對 Flickr 的使用需要遵守 Yahoo! 服務條款、隱私權政策及 Flickr 社群指南

这个帖子的题目，在苏教版小学四年级寒假作业，又被作为趣味题了。晕啊。这趣味太大了啊。

1-9数字三位数减三位数等于三位数

使用1-9的数字，要求形成一个等式，用三位数，减去三位数，等于三位数
要求所有数字不重复，即同时不漏
列出所有的可能
帮朋友家小孩看一下有多少种可能
谢谢，因还未得答案，未上附件，见谅

代码:

Sub Test()
Dim a, b, c, d, e, i
For a = 123 To 789
For b = a + 1 To 987 - a
c = a + b
d = c & "-" & a & "=" & b
For i = 1 To 9
If InStr(d, i) = 0 Then Exit For
Next
If i = 10 Then e = e + 1: Debug.Print e; vbTab; d
Next
Next
End Sub