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

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