一个关于VBA随机抽取的问题,求指教.诚谢!现有总人数为23的名单,每次从名单中抽取不重复的4个人,已抽取到的人不再参与下次随机抽取,直至剩余人数不足4人时（看作为一轮）,将剩余名单与

题目详情

一个关于VBA随机抽取的问题,求指教.诚谢!
现有总人数为23的名单,每次从名单中抽取不重复的4个人,已抽取到的人不再参与下次随机抽取,直至剩余人数不足4人时（看作为一轮）,将剩余名单与全部23人的名单整合再参与抽取（即从中抽取不重复的4个人）,以此后推,直至每人均有4次被抽取记录为止.
算下来,一共可抽取4轮,每轮抽取次数为：5次+6次+6次+6次,也就刚好每人有4次被抽取记录.
我是VBA初学者,对这个问题实在伤脑筋,请教一些大师,帮忙指导或者实现一下,诚谢!

▼优质解答

答案和解析

为什么没人回答你的问题呢,因为你的问题描述里有些不好理第一段能明白,但第二段和第一段好像有矛盾.“以此后推,直至每人均有4次被抽取记录为止.” 与 “算下来,一共可抽取4轮,每轮抽取次数为：5次+6次+6次+6次,也就...

看了一个关于VBA随机抽取的问题,...的网友还看了以下：

什么样的数是偶数[]A．能被2除尽B．自然数中是2的倍数的数C．个位上只要是2、4、6、8、0 　2020-05-13 …

1.用8,3,0组成的三位数中,是2的倍数的有几个?是5的倍数的有几个?既是2的倍数又是5的倍数的　2020-05-13 …

1.一组质数2.13.71和为86,3个质数和为86的还有多少组2.1个质数的3倍和另个质数的2倍　2020-07-10 …

下列各数中：2，-13，π，0，227，2.101010…（相邻两个1之间有1个0），3.14，0 　2020-07-19 …

请问0是2的倍数吗?我们课本中的语句出现了矛盾,都弄不清0到底是不是2的倍数了.以下为课本内容：自　2020-07-19 …

甲从16个数中选2个数字乙也从16个数里挑2个2人选数相同的概率是多少高中的排列组合都忘的差不多了　2020-07-20 …

4位正整数中间2数相同,首数比末数小3,将前2数交换,后2数交换,得的新数比原大7155,原4位数　2020-07-30 …

自然数中,是2的倍数的数叫做偶数,不是2的倍数的数叫做奇数.可是0呢?也算自然数,也是偶数,但他不算　2020-11-03 …

用3、2、1、0、0这五个数字．（1）写出一个五位数，要每个“0”都读的是；你写的这个数中的2表示．　2020-11-06 …

复变函数问题复变函数里|z|^2(不好意思手机党只好这么表示了…意思是z的绝对值的平方)和z^2有区　2020-12-13 …