小女子感谢一把小刀闯天下老师的秒杀，本帖结题了！怎样从一个数组中随机抽出40个

dldjli

小女子求教各位大侠：怎样从一个102个元素的数组中随机抽出40个不同元素放置到相隔的两块区域中。如：
　　Ａ列为原始数据，使用ＶＢＡ定义数组sj，并把单元格Ａ2至Ａ103中的102个数据赋予sj，数组sj拥有了102个元素。如下：
Sub 随机()
Dim sj
sj = ["b2:b103"]

End Sub
    　小女子求教各位大侠的问题是：怎样把程序中添加语句，每次点击“随机”按钮后，程序能够在数组sj中随机抽取40个不重复的元素，其中20个元素放置于区域Ｃ18:Ｌ19中，另20个元素放置于Ｃ21:Ｌ22中(蓝字部分，内有一次模拟效果)。
　　详细说明：㈠从sj拥有了102个元素中随机抽取40个；㈡40个被抽中的元素之间不会重复相同；㈢以20个为限，分别放置于两个区域。㈣下面有3次模拟效果，由于随机抽取，点击“随机”按钮实际出现的效果可能有部分元素相同，但与模拟效果完全相同的可能性基本上为０，其概率为1/PERMUT(102,40)=1/3.05512389079056E+76。
　　小女子拜谢各位大侠了！
附件如右： 小女子求教各位大侠：怎样从一个102个元素的数组中随机抽出40个不同元素放置到相隔的.rar (20.68 KB, 下载次数: 24)

2018-12-1 07:36 上传

点击文件名下载附件

附图如下：

一把小刀闯天下

Option Explicit

Sub 随机()
  Dim arr, i, j, m, n, t, a
  arr = [a2:a103]
  ReDim brr(1 To 5, 1 To 10) As String
  Randomize
  For i = 1 To 40
    a = Int(Rnd * (UBound(arr, 1) - i + 1)) + i
    t = arr(i, 1): arr(i, 1) = arr(a, 1): arr(a, 1) = t
    n = n + 1: brr(m + 1, n) = arr(i, 1)
    If n = UBound(brr, 2) Then
      m = m + 1: n = 0
      If m = 2 Then m = m + 1
    End If
  Next
  [c18].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

dldjli

一把小刀闯天下 发表于 2018-12-1 08:20
Option Explicit

Sub 随机()

一把小刀闯天下老师，小女子感谢您对难题的秒杀！

dldjli

一把小刀闯天下 发表于 2018-12-1 08:20
Option Explicit

Sub 随机()

一把小刀闯天下老师，您给出的程序小女子正在学习之中，先求教其中的两个问题：
　　１、通过arr = [a2:a103]，那么，arr 不是一维数组吗？为求其最大索引号时不用UBound(arr) 而用UBound(arr, 1)？
　　２、通过(UBound(arr, 1) - i + 1)把索引号每次都减1，通过Int(Rnd * (UBound(arr, 1) - i + 1)) + i的随机后再加回，岂不是随机数的基底在递增，这是什么原理?这样会不会改变数据随机性的秩序？这与直接用Int(Rnd * UBound(arr)) 有何区别？
　　还需要老师有空闲时您教导一下您在设计程序时的随机原理。
　　小女子不懂，各位大侠如有空闲时间也请指教！

一把小刀闯天下

dldjli 发表于 2018-12-1 10:01
一把小刀闯天下老师，您给出的程序小女子正在学习之中，先求教其中的两个问题：
　　１、通过arr = [a2: ...

刚注意到：

1、没错，写法不同而已，ubound(arr)没有问题，而且是习惯写法。如果是一个大于一维的数组最好写上去，比如是三维数组，ubound(arr,1)、ubound(arr,2)、ubound(arr,3)，分别代表一、二、三维的上标，这样就不会搞错，因为有时一个问题的代码量会很大，，，
2、如果整个数组作乱序效率等同，但仅取一部分随机数这个效率更高，取的数越少效率越高。自己单步观察一下就知道了，，，

dldjli

一把小刀闯天下 发表于 2018-12-1 13:40
刚注意到：

1、没错，写法不同而已，ubound(arr)没有问题，而且是习惯写法。如果是一个大于一维的数组 ...

感谢老师的帮助，佩服老师的高水平，为了学习一些知识，建立一套模拟情景不容易，能得到高师的指点更为不易，目前仍在学习老师的程序之中。

zpy2

function make_password( $length = 8 )
{
    // 密码字符集，可任意添加你需要的字符
    $chars = array('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h',
    'i', 'j', 'k', 'l','m', 'n', 'o', 'p', 'q', 'r', 's',
    't', 'u', 'v', 'w', 'x', 'y','z', 'A', 'B', 'C', 'D',
    'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L','M', 'N', 'O',
    'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y','Z',
    '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '!',
    '@','#', '$', '%', '^', '&', '*', '(', ')', '-', '_',
    '[', ']', '{', '}', '<', '>', '~', '`', '+', '=', ',',
    '.', ';', ':', '/', '?', '|');
    // 在 $chars 中随机取 $length 个数组元素键名
    $keys = array_rand($chars, $length);
    $password = '';
    for($i = 0; $i < $length; $i++)
    {
        // 将 $length 个数组元素连接成字符串
        $password .= $chars[$keys[$i]];
    }
    return $password;
}

这种如果php就一个 arr_rand函数就行了
https://blog.csdn.net/qq_35349114/article/details/76154765

yjh_27

m随机取n自定义函数，重复与否可选

dldjli

zpy2 发表于 2018-12-1 14:41
function make_password( $length = 8 )
{
    // 密码字符集，可任意添加你需要的字符

zpy2老师，感谢您为小女子高水平的指导，小女子正在学习之中。

dldjli

yjh_27 发表于 2018-12-1 20:33
m随机取n自定义函数，重复与否可选

yjh_27老师，您不止于高水平的制作，更是教师讲授中的侠者，您在ＶＢＡ中的解读，让小女子省去不少揣摩的精力，而精心于体会老师的思想所在，小女子在程序中有什么问题还会向yjh_27请教的，学习好您教导的程序才能最大程度上对得起您的良苦用心。