| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛

<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>

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
• 3
• 1/1页
• 1

Powered by Discuz, Processed in 0.050751 second(s), 7 queries.