- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么生成5个随机数？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82875)
-- 发布时间：2016/3/26 14:14:00
-- 怎么生成5个随机数？
怎么得到用 1 2 3 4 5 6 7 8 9 10 11 这11个数字其中5个随机组成的所有结果呢，就是从这11个数字中随即选取5个组成的结果，所有的结果怎么得到呢？
-- 发布时间：2016/3/27 11:48:00
--
mark 排列组合例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:排列组合.table |
-- 发布时间：2016/3/28 13:24:00
--
老师 看不懂。。不好意思 可不可以简单一点点
-- 发布时间：2016/3/28 14:21:00
--
例子都写给你了什么看不懂啊。填入元素1,2,3,4,5就行啊。
-- 发布时间：2016/3/28 14:39:00
--
呃 比较笨 不好意思 不过改成这样好像可以用了 就是不知道结果对不对
Dim arr As String() = e.Form.Controls("TextBox1").Text.split(",")
\'求排列
Dim lst_Permutation As List(Of String()) = PermutationAndCombination(Of String).GetPermutation(arr, 5)
\'求组合
Dim lst_Combination As List(Of String()) = PermutationAndCombination(Of String).GetCombination(arr, 5)
Dim s1 As String = ""
For Each ary As String() In lst_Permutation
s1 &= ary(0) & ary(1) & ary(2) & ary(3) & ary(4) & vbcrlf
Next
e.Form.Controls("TextBox2").Text = s1
Dim s2 As String = ""
For Each ary As String() In lst_Combination
s2 &= ary(0) & ary(1) & ary(2) & ary(3) & ary(4) & vbcrlf
Next
e.Form.Controls("TextBox3").Text = s2
-- 发布时间：2016/3/28 14:41:00
--
就是你那样用，一个是求排列的，一个是求组合的，得到的结果 lst_Permutation 是一个集合，之后你要怎么操作都可以。
-- 发布时间：2016/3/28 14:47:00
--
还是看不明白 不过好像可以用了。。谢谢谢谢
-- 发布时间：2016/4/1 12:21:00
--
为什么同样的代码在您给的例子里就可以用 复制到开发版里就报错呢？
-- 发布时间：2016/4/1 12:27:00
--
此主题相关图片如下：1234.png
-- 发布时间：2016/4/1 12:30:00
--
看看全局代码里的代码
http://www.foxtable.com/help/topics/1842.htm