注册 登录
编程论坛 ASP技术论坛

如何简化以下代码

anjincheng 发布于 2011-12-29 17:24, 536 次点击
哥们:问题来了! 以下是全排列的代码:请问各哥们,如何简化以下判断语句?先感谢咯!  
<script   language=vbscript>  
Function  getAll(Array)  
iMax = Ubound(Array) - 1   
For i = 0 To iMax  
For j=0 To iMax  If j > i Then   
If i=0 and j=1 then
Document.write(“包含”&Array(i)&Array(j)&"不包含"&Array(2)&Array(3)&Array(4)&Array(5)&" <br> ")  
end if
If i=0 and j=2 then
Document.write(“包含”&Array(i)&Array(j)&"不包含"&Array(1)&Array(3)&Array(4)&Array(5)&" <br> ")  
end if
If i=0 and j=3 then
Document.write(“包含”&Array(i)&Array(j)&"不包含"&Array(1)&Array(2)&Array(4)&Array(5)&" <br> ")  
end if
If i=0 and j=4 then
Document.write(“包含”&Array(i)&Array(j)&"不包含"&Array(1)&Array(2)&Array(3)&Array(5)&" <br> ")  
end if
If i=0 and j=5 then
Document.write(“包含”&Array(i)&Array(j)&"不包含"&Array(1)&Array(2)&Array(3)&Array(4)&" <br> ")  
end if
If i=1 and j=2 then
Document.write(“包含”&Array(i)&Array(j)&"不包含"&Array(0)&Array(3)&Array(4)&Array(5)&" <br> ")  
end if
If i=1 and j=3
then Document.write(“包含”&Array(i)&Array(j)&"不包含"&Array(0)&Array(2)&Array(4)&Array(5)&" <br> ")  
end if
......  
End   If  
Next  
Next  
End   Function   
Dim   Array(6)  
Array(0)   =   "a "  
Array(1)   =   "b "  
Array(2)   =   "c "  
Array(3)   =   "d "  
Array(4)   =   "e "  
Array(5)   =   "f "  
getAll(Array)  
</script>
2 回复
#2
poshion2011-12-29 19:29
#3
xmlz2011-12-31 09:24
For i = 0 To iMax  
For j=0 To iMax  
    bstr="包含"&Array(i)&Array(j)&"不包含"
    astr=""
    For x=0 To 5
        If x<>j and x<>i then
            astr=astr&Array(x)
        End if
    Next
        Document.write(bstr&astr&" <br> ")
Next
Next
1