请教一个算出所有可能的数据（数据是动态的），谢谢

2006-05-03 10:30:21 207 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

购物车实现选中商品算出总价（js）思想：a:首先可以通过数据库，当你点击一次选择时，对复选框进行扫描，查出所有已经被选中的复选框，这个复选框需要加一个自定义属性，这个属性就是这个商品的id号，通过id号在数据库查询相应的价格进行累加。b:我这里没有用数据库，因为我的上一个需求已经把价格从数据库拿出来了，所以我直接在复选框上加了一个商品价格的自定义属性，当每次点击复选框时对复选框进行扫描，查出所有已经被选中的复选框，然后获取到价格进... 阅读详情

有一些数据 01,02,05,08,09,10,11,13,18(该数据是动态的，但最少有7个数字)

请问将这些数据分别组成6个一组，且每组的数据不能相同。请问如何将它找出来？并输出来，就在网页上如何做呢？
例如输出的结果类似下面的
例组1:01 02 05 08 09 10
例组2:01 02 05 08 09 11
例组3:01 02 05 08 09 13
.........

请问用程序如何做？

希望那位朋友能写出具体的程序

谢谢

主要是数据是动态的，不能用笔算，太麻烦了，小弟想请大家帮帮小弟。万分感谢。最好能在WEB(asp.net)上运行

Private Sub page_load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim TotalNumber As String = "01,02,03,04,05,06,07,08,09,10"
Dim Arrays As System.Array = Split(TotalNumber, ",")
For i As Integer = 0 To Arrays.Length - 1
If i <= Arrays.Length - 6 Then
Response.Write(Arrays(i) & "," & Arrays(i + 1) & "," & Arrays(i + 2) & "," & Arrays(i + 3) & "," & Arrays(i + 4) & "," & Arrays(i + 5) & "<br />")
Else
Dim k As Integer = 0
Dim n As Integer = 0
Dim temp As String = ""
k = Arrays.Length - i
n = 6 - k

For j As Integer = i To Arrays.Length - 1
temp = temp & Arrays(j) & ","
Next j
For m As Integer = 0 To n - 1
temp = temp & Arrays(m) & ","
Next m
temp = Left(temp, Len(temp) - 1)
Response.Write(temp & "<br />")
End If
Next i
End Sub

这段VB程序只能算出十种可能,只郁闷

...全文