100个馒头分在6个盘子里，每个盘子分的馒头个数都不离6（如16，6，62等），馒头的数可以重复．

Last edited by jmz573515 on 2007-5-9 at 05:41 PM ]

6 6 6 6 16 60

随便给了一个：）vbs我不会：）帮不了你。

@echo off & SetLocal EnableDelayedExpansion

rem 提取计算的数字:

set "count=0"
for /l %%i in (0,1,100) do echo %%i | find "6" && set "count+=1" & set "num!count!=%%i"

然后，换个算法而已。。（循环查找了。满足条件的就打印出来）

到excelhome求了段vba代码来，不过不知如何改成vbs的，呵呵。

1. Sub cc2()
   
2. Dim s As New Collection, i As Long
   
3. For i = 1 To 100
   
4. If i Like "*6*" Then s.Add i, CStr(i)
   
5. Next
   
6. For a = 1 To s.Count
   
7. For b = a To s.Count
   
8. For c = b To s.Count
   
9. For d = c To s.Count
   
10. For e = d To s.Count
    
11. For f = e To s.Count
    
12. If s(a) + s(b) + s(c) + s(d) + s(e) + s(f) = 100 Then Debug.Print s(a) & "+" & s(b) & "+" & s(c) & "+" & s(d) & "+" & s(e) & "+" & s(f) & " = 100"
    
13. Next
    
14. Next
    
15. Next
    
16. Next
    
17. Next
    
18. Next
    
19. End Sub
    

ccwan发表于： 2007-05-09 13:09

For a = 1 To s.Count

For b = a To s.Count

For c = b To s.Count

For d = c To s.Count

For e = d To s.Count

For f = e To s.Count
这个用的妙！谢谢，问题解决了。

jmz573515兄何不贴出代码，大家共享。

’不知道有没有更好的方法

For i = 1 To 100-6*5

    If instr(i,"6")<>0 then j=j & i & ";"

Next

j=left(j,len(j)-1):s=split(j,";"):m=ubound(s)

for a=0 to m

  for b=a to m

    for c=b to m

      for d=c to m

        for e=d to m

          for f=e to m

             s(a)=cint(s(a)):s(b)=cint(s(b)):s(c)=cint(s(c)):s(d)=cint(s(d)):s(e)=cint(s(e)):s(f)=cint(s(f))

             If s(a) + s(b) + s(c) + s(d) + s(e) + s(f) = 100 Then sn=sn & s(a) & "+" & s(b) & "+" & s(c) & "+" & s(d) & "+" & s(e) & "+" & s(f) & " = 100" & vbcrlf

          next

        next

      next

    next

  next

next

msgbox sn

方法可能还有吧，不过谈不上什么更好的方法，只是思路不同罢了。

@echo off & SetLocal EnableDelayedExpansion

rem 提取计算的数字:

set "count=0"
echo 正在提取数据……
for /l %%i in (0,1,100) do (
echo %%i | find "6" >nul && call :GetNum "%%i"
)
echo 正在打印数据……
for /f "delims== tokens=2 " %%a in ('set ShowNum') do (
set "a=%%a"
for /f "delims== tokens=2 " %%b in ('set ShowNum') do (
set "b=%%b"
for /f "delims== tokens=2 " %%c in ('set ShowNum') do (
set "c=%%c"
for /f "delims== tokens=2 " %%d in ('set ShowNum') do (
set "d=%%d"
for /f "delims== tokens=2 " %%e in ('set ShowNum') do (
set "e=%%e"
for /f "delims== tokens=2 " %%f in ('set ShowNum') do (
set "f=%%f"
set /a "s=!a!+!b!+!c!+!d!+!e!+!f!"
if "!s!"=="100" call :PrintNum "!a!" "!b!" "!c!" "!d!" "!e!" "!f!" "!s!"
)
)
)
)
)
)

GOTO END

:GetNum _num_
set /a "count+=1"
set ShowNum%count%=%~1
goto :EOF
:PrintNum
echo %~1+%~2+%~3+%~4+%~5+%~6=%~7
goto :EOF
:END
pause

我试了一那个P...

6+6+6+6+16+60=100 第1个 - 开始 19:58:32.85
6+6+6+6+60+16=100 第2个 - 用时 19:58:33.10
6+6+6+16+6+60=100 第3个 - 用时 19:58:42.51
6+6+6+16+60+6=100 第4个 - 用时 19:58:43.26
6+6+6+60+6+16=100 第5个 - 用时 19:58:47.12
6+6+6+60+16+6=100 第6个 - 用时 19:58:47.64
6+6+16+6+6+60=100 第7个 - 用时 20:01:46.35
6+6+16+6+60+6=100 第8个 - 用时 20:01:47.09
6+6+16+60+6+6=100 第9个 - 用时 20:02:01.06
6+6+60+6+6+16=100 第10个 - 用时 20:03:13.75
6+6+60+6+16+6=100 第11个 - 用时 20:03:14.26
6+6+60+16+6+6=100 第12个 - 用时 20:03:23.89
……………………

set q=c(6)
for each n1 in q
for each n2 in q
for each n3 in q
for each n4 in q
for each n5 in q
for each n6 in q
if q(n1)+q(n2)+q(n3)+q(n4)+q(n5)+q(n6)=100 then
y=y&chr(10)&q(n1)&"+"&q(n2)&"+"&q(n3)&"+"&q(n4)&"+"&q(n5)&"+"&q(n6)

end if


next
next
next
next
next
next

msgbox(y)





function c(x)
set d=createobject("scripting.dictionary")
i=1
for a=0 to 9
for b=0 to 9
if a-x=0 or b-x=0 then
f=int(a&b)
d.add i,f
i=i+1
end if
next
next
set c=d
end function

不知道为啥，这个代码结构上似乎没错，但是消耗了大半的CPU资源最后仍然没反映。。

Last edited by zhoushijay on 2007-5-12 at 01:34 PM ]

Function c(x)
Set d = CreateObject("Scripting.Dictionary")
i = 1
For a = 0 To 9
For b = 0 To 9
If a - x = 0 or b - x = 0 Then
f = Int(a & b)
d.add i,f
i = i + 1
End If
Next
Next
Set c = d
End Function

这个过程只是浪费资源……

Function c(x)
Set d = CreateObject("Scripting.Dictionary")
i = 1
For a = 1 To x - 1
i = i + 1
f = CInt(a & x)
d.add i,f
Next

For a = 0 To 9
i = i + 1
f = CInt(x & a)
d.add i,f
Next
For a = x - 1 To 9
i = i + 1
f = CInt(a & x)
d.add i,f
Next

Set c = d
End Function

不会呀...CPU资源只有15%到25%左右...不会很耗资源呀....只是用的时间较久而已......

修改自8F的代码：

@echo off

setlocal enabledelayedexpansion



echo                       正在处理数据...

echo.

echo        此过程超级慢，CPU占用将高达100%%，请吃顿饭再回来^^_^^

echo.



set begin=%time%



:: 提取数字

for /l %%i in (1,1,5) do set str=!str! %%i6

for /l %%i in (0,1,9) do set str=!str! 6%%i

set str=6 %str%



for %%i in (%str%) do (

    for %%j in (%str%) do (

        for %%k in (%str%) do (

            for %%l in (%str%) do (

                for %%m in (%str%) do (

                    for %%n in (%str%) do (

                        set expression=%%i+%%j+%%k+%%l+%%m+%%n

                        set /a sum=!expression!

                        if !sum! equ 100 set /a num+=1&echo 第!num!条记录：!expression!=100  时间：!time!

                    )

                )

            )

        )

    )

)

echo.

echo                  终于完了，快看看花费的时间吧，破记录了吗？^^_^^

echo.

echo     开始时间：%begin%

echo     结束时间：%time%

pause

都是好东西啊