当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 如何得到某集合的所有子集合

ASP.NET
漫谈.Net开发关于命名空间和目录划分
.net中关于企业Excel报表的生成
.NET中取得IP/用户名等信息常用方法
关于.Net开发下的分布式缓存设计
.NET中为组合框添加自动查询功能
ASP.NET如何进行性能优化问题
开发中如何有效监控.NET应用程序
ASP.NET2.0 显示写入日期和时间语法
用.NET Array类的Sort方法分类数值
Asp.net Mvc Pv4中使用AjaxHelper
Asp.net中Forms验证的角色验证授权（一）
Asp.net中Forms验证的角色验证授权（二）
Asp.Net2.0数据库基本操作方法学习
Asp.Net之枚举类型输出需要类型转换
用.NET的File控件上传文件的解决方案
.NET泛型技巧之类型参数之间的转换
在ASP.NET中将数据直接输出成Excel格式
在.NET框架下使用自定义配置设置
跟ASP.NET MVC一起使用jQuery
Visual Basic中文本框处理技巧集萃

No. « 22 23 24 25 »

技术文章搜索

关键字

ASP.NET 中的 如何得到某集合的所有子集合

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-11-03   浏览: 119 ::
收藏到网摘: n/a


我们都知道,一个含n个元素的集合拥有2^n个子集合,并且不难发现,其中每个子集合都是从0到2^n-1 每个数的二进制格式中0 放弃,1选择的结果,如下所示:
{} 000{1} 100{2} 010 {1,2} 110{3} 001{1,3} 101{2,3} 011{1,2,3}111
所以根据数字的二进制转换,可以轻松获得一个集合的所有子集合,代码如下:
Sub GETALL(ByVal mycollection As String, ByRef RESULT() As String)Dim x() As Stringx = Split(Mid(mycollection, 2, Len(mycollection) - 2), ",")
Dim A() As String, b() As Integer '临时数组Dim n As Integer ' 集合元素个数Dim i As Long '循环变量Dim num As Integer '子集合元素个数Dim TEMP As Integer '二进制转换中间变量n = UBound(x) + 1ReDim b(0 To n - 1)ReDim RESULT(2 ^ n - 1)Debug.Print "集合 " & mycollection & " 共有子集合 " & 2 ^ n & " 个！"
For i = 0 To 2 ^ n - 1TEMP = inum = 0For j = 0 To n - 1 '转换为二进制b(j) = TEMP And 1 '0 or 1TEMP = TEMP \ 2If b(j) = 1 Thennum = num + 1ReDim Preserve A(1 To num)A(num) = x(j)End IfNext
RESULT(i) = "{" & Join(A, ",") & "}" '结果保存Debug.Print RESULT(i) '输出
NextMsgBox "OK"End Sub
Private Sub Command1_Click()Dim S() As StringGETALL "{1,2,3,4,5,6}", SEnd Sub

输出:
集合 {1,2,3,4,5,6} 共有子集合 64 个！{}{1}{2}{1,2}{3}{1,3}{2,3}{1,2,3}{4}{1,4}{2,4}{1,2,4}{3,4}{1,3,4}{2,3,4}{1,2,3,4}{5}{1,5}{2,5}{1,2,5}{3,5}{1,3,5}{2,3,5}{1,2,3,5}{4,5}{1,4,5}{2,4,5}{1,2,4,5}{3,4,5}{1,3,4,5}{2,3,4,5}{1,2,3,4,5}{6}{1,6}{2,6}{1,2,6}{3,6}{1,3,6}{2,3,6}{1,2,3,6}{4,6}{1,4,6}{2,4,6}{1,2,4,6}{3,4,6}{1,3,4,6}{2,3,4,6}{1,2,3,4,6}{5,6}{1,5,6}{2,5,6}{1,2,5,6}{3,5,6}{1,3,5,6}{2,3,5,6}{1,2,3,5,6}{4,5,6}{1,4,5,6}{2,4,5,6}{1,2,4,5,6}{3,4,5,6}{1,3,4,5,6}{2,3,4,5,6}{1,2,3,4,5,6}