找出特定組合(vbs)

找出特定組合

<!--本過程完成對數組元素取特定組合-->

<%
dim result,geted
dim limvalue
ysstr=split("1,20,30,4,51",",")
main
''------------------main完成初始化，及結果處理--------------
sub main
'----------------------初始化-----------
    limvalue=75
    strsub=0
    for j=1 to ubound(ysstr)
        strsub=strsub&","&j
    next
    strsub=split(strsub,",")
'-----------------------開始組合---------------
    call combo(strsub)
'------------------------result是全局變量，存放下標--------------
    xb=split(result,",")
'------------------------輸出結果-----------------------
    for i=0 to ubound(xb)
        xbs=cint(xb(i))
        ww ysstr(xbs)
    next
end sub
''-----------------------main結束-------------------------

''---------------------主過程 combo-----------------------
sub combo(str)
for i=0 to ubound(str)
if geted then
    exit sub
end if
    ftmp=pick(str,i)
    combo(ftmp)
next
end sub
''----------------------子過程pick---------------------------
function pick(strarray,k)
    for i=0 to ubound(strarray)
        if i<>k then
        temp=temp&strarray(i)&","
        xb=cint(strarray(i))
        numtmp=numtmp+cint(ysstr(xb))
        end if
    next
            if numtmp=limvalue then  '如果結果等於限制的結果
            ww numtmp
            geted=true
            result=left(temp,len(temp)-1)
            end if
    if len(temp)>1 then
    temp=left(temp,len(temp)-1)
    end if
    
    pick=split(temp,",")
end function

sub ww(t)
    response.write t
    response.write "<BR>"
    response.flush
end sub
%>

简单测试下执行速度：8秒/10万次