| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 536 人关注过本帖
标题:如何简化以下代码
只看楼主 加入收藏
anjincheng
Rank: 2
等 级:论坛游民
威 望:5
帖 子:728
专家分:31
注 册:2005-7-27
结帖率:68.57%
  已结贴   问题点数:20  回复次数:2   
如何简化以下代码
哥们:问题来了! 以下是全排列的代码:请问各哥们,如何简化以下判断语句?先感谢咯!  
<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>
搜索更多相关主题的帖子: 如何 
2011-12-29 17:24
poshion
Rank: 2
等 级:论坛游民
帖 子:1
专家分:10
注 册:2011-12-29
  得分:10 
2011-12-29 19:29
xmlz
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:5
帖 子:294
专家分:1392
注 册:2010-8-29
  得分:10 
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
2011-12-31 09:24
快速回复:如何简化以下代码
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.046022 second(s), 7 queries.
Copyright©2004-2020, BCCN.NET, All Rights Reserved