Board logo

标题: [已解决]100个馒头分在6个盘子里 ... (vbs) [打印本页]

作者: jmz573515     时间: 2007-5-9 08:41    标题: [已解决]100个馒头分在6个盘子里 ... (vbs)
100个馒头分在6个盘子里,每个盘子分的馒头个数都不离6(如16,6,62等),馒头的数可以重复.

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

作者: flyinspace     时间: 2007-5-9 12:36
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"

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

作者: ccwan     时间: 2007-5-9 13:10
到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

作者: jmz573515     时间: 2007-5-9 17:40
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
这个用的妙!谢谢,问题解决了。

作者: ccwan     时间: 2007-5-9 17:51
jmz573515兄何不贴出代码,大家共享。

作者: jmz573515     时间: 2007-5-9 18:00
’不知道有没有更好的方法

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

作者: ccwan     时间: 2007-5-9 18:14
方法可能还有吧,不过谈不上什么更好的方法,只是思路不同罢了。

作者: flyinspace     时间: 2007-5-9 18:39    标题: 给个批处理版的。。不过速度超级慢。。。。
@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

作者: zouzhxi     时间: 2007-5-10 20:06
我试了一那个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
……………………

作者: zhoushijay     时间: 2007-5-11 16:36
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 ]

作者: slore     时间: 2007-5-11 19:55
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

作者: zouzhxi     时间: 2007-5-11 20:59
不会呀...CPU资源只有15%到25%左右...不会很耗资源呀....只是用的时间较久而已......

作者: digger     时间: 2007-5-11 22:33
修改自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

作者: sunjiang0     时间: 2007-5-12 05:23
都是好东西啊