如何在EXCEL中编写多重采样的VBA？就是怎么写循环~

Dim s1(1到10000)一样长

原始资料

Dim s2(1到10000)为布尔值

在原始数据上定义一个数组。

标识原始数组是否已被采样。

Dim back(1到100，1到100)一样长

目标对象，100组数据。

对于i = 1至10000

s1(i) = i

然后

在这个测试中，1到10000个数组被分配给原始数据。

对于i = 1至100

100采样

n = 1

n表示本次抽样的抽样数量。

Do While n & lt= 100 '当N >时；在100处，抽取了100个样本。

使不规则化

重新分配随机种子

k = Int(Rnd()* 10000)+1

10000以内的随机数

如果s2(k) =假，则

如果原始数据没有被采样。

back(i，n) = s1(k)

存储数据

s2(k) =真

徽标已被取样。

n = n + 1

采样数据加1

如果…就会结束

环

然后

末端接头