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

yvhgydn

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

liuyan819

奥数啊？！！

northwolves

1. 
   
2. Sub Test()
   
3. Dim a, b, c, d, e, i
   
4. For a = 123 To 789
   
5. For b = a + 1 To 987 - a
   
6. c = a + b
   
7. d = c & "-" & a & "=" & b
   
8. For i = 1 To 9
   
9. If InStr(d, i) = 0 Then Exit For
   
10. Next
    
11. If i = 10 Then e = e + 1: Debug.Print e; vbTab; d
    
12. Next
    
13. Next
    
14. End Sub
    

复制代码

yvhgydn

再次目睹狼版风采，感谢狼版，好好向版主学习
能否简单的说一下思路
大概看明白了一点，再揣摩一下
最后一个IF I=10怎么来的，是什么目的啊

[ 本帖最后由 yvhgydn 于 2010-9-12 13:48 编辑 ]

northwolves

加了注释：

1. 
   
2. Sub Test()
   
3. Dim a, b, c, d, e, i
   
4. For a = 123 To 987 - 123 '减数
   
5. For b = a + 1 To 987 - a '差
   
6. c = a + b 'beijianshu   '被减数
   
7. d = c & "-" & a & "=" & b '算式
   
8. For i = 1 To 9
   
9. If InStr(d, i) = 0 Then Exit For '算式中未出现i则退出
   
10. Next
    
11. If i = 10 Then e = e + 1: Debug.Print e; d '1-9都未退出，说明满足条件，打印序号及算式
    
12. Next
    
13. Next
    
14. End Sub
    

复制代码

yvhgydn

请版主指正一下，为什么会提示下标越界
Sub fd()
Dim i As Long
Dim arr() As Long
Dim arr1
For i = 123456789 To 987654321
arr(n) = i
n = n + 1
Next
arr1 = Filter(Filter(Filter(Filter(Filter(Filter(Filter(Filter(Filter(arr, 1), 2), 3), 4), 5), 6), 7), 8), 9)
For Each m In arr1
If Left(m, 3) - Right(m, 3) + Mid(m, 4, 3) = 0 Then
[a1].End(xlDown) = m
End If
Next m
End Sub
Book1.rar (6.59 KB, 下载次数: 9)

2010-9-12 22:43 上传

点击文件名下载附件

northwolves

Dim arr() As Long未定义数组大小

yvhgydn

我经过定义后又提示内存溢出，是不是数组有限制数量
Dim arr(0 to  987654321-123456789) As Long

[ 本帖最后由 yvhgydn 于 2010-9-12 23:08 编辑 ]

unsamesky

原帖由 northwolves 于 2010-9-12 14:35 发表
加了注释：
Sub Test()
Dim a, b, c, d, e, i
For a = 123 To 987 - 123 '减数
For b = a + 1 To 987 - a '差
c = a + b 'beijianshu   '被减数
d = c & "-" & a & "=" & b '算式
For i = 1 To 9
If InStr(d ...

强大的狼版，来练习一下思维！！
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 Goto 数字重复:
Next
e = e + 1
Debug.Print e; vbTab; d
数字重复:
Next
Next
End Sub

menglion

狼斑斑，高人啊