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

yvhgydn · 发表于 2010-9-12 11:58

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

liuyan819 · 发表于 2010-9-12 12:11

奥数啊？！！

northwolves · 发表于 2010-9-12 12:14

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

复制代码

yvhgydn · 发表于 2010-9-12 13:08

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

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

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, i) = 0 Then Exit For '算式中未出现i则退出
Next
If i = 10 Then e = e + 1: Debug.Print e; d '1-9都未退出，说明满足条件，打印序号及算式
Next
Next
End Sub

复制代码

yvhgydn · 发表于 2010-9-12 22:43

请版主指正一下，为什么会提示下标越界
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)

northwolves · 发表于 2010-9-12 22:54

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

yvhgydn · 发表于 2010-9-12 23:07

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

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

unsamesky · 发表于 2010-9-12 23:39

原帖由 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 · 发表于 2010-9-13 08:56

狼斑斑，高人啊

		自动登录	找回密码
密码			免费注册

[求助] 1-9数字三位数减三位数等于三位数