返回目录:excel表格制作
简单随机抽样又称,单纯随机抽样。应该可以放回的!作为一种抽样方法,就是在总体单位中不进行任何分组、排队等,zd完全排除任何主观的有目的的选择,采用纯粹偶然的方法从母体中选取样本。这种方法更能体现出总体中每个子体的机会完全相等,选出的样本与总体特性接近,是各种几率抽样中比较简便易行的一种方法。为实现抽样的随机化,可采用抽签、查随机数值表等办法。这个办法的优点就抽样误差小,缺点是抽样手续比较繁杂。在实际工作中,真正做到总体中的每个个体被抽到的机会完全一样是不容易的。随机数表是计算机随机排出来的数字组合,没有规律,这些数字的出现完全是等概率的随机数表是统计工作者用计算机生成的随机数组成,并保证表中每个位置上出现哪一内个数字是等概率的,利用随机数表抽取样本保证了各个个体被抽取的概率相等。作为银行来说,银行的ID和密码也非常脆弱。如果有随机数表,就可以防备此类事件。随机数表是指为每个客户指定各不相同的数字列表,申请时将该随机数表分配给客户。如果我容们平时用的密码都是电脑随机分配的,而不是按照一定的规律给出的,你想,这不是安全很多么所以你会听到很多人会专门去寻找随机数表产生器呢
1、假设原百学号和成绩在AB列,那么在C2单元度格输入以下公式问,然后向下填充答
=RAND()
2、然后在E2单元格内输入以下公式,并向容右向下填充公式
=INDEX(A:A,MATCH(LARGE($C:$C,ROW(A1)),$C:$C,0)
抽签法。可以是吧不放回抽样
抽样放不放回去都是56组。
Sub 抽样()
Dim Yb(1 To 10000, 1 To 10), Bh(1 To 10, 1 To 10), Gd(1 To 3), A, N, M, X
Range(Cells(2, 4), Cells(60000, 7)) = ""
For i = 1 To 8
Bh(i, 1) = i
Bh(i, 2) = Cells(i + 1, 2)
Bh(i, 3) = "N"
Next
For i = 1 To 8000
X = 0
For j = 1 To 3
line1:
A = Int(Rnd() * 8 + 1)
For k = 1 To 8
If Bh(k, 1) = A And Bh(k, 3) = "Y" Then GoTo line1
If Bh(k, 1) = A And Bh(k, 3) = "N" Then
Bh(k, 3) = "Y"
X = X + 1
If X = 3 Then N = N + 1
Gd(X) = Bh(k, 2)
Exit For
End If
Next
Next
'写入抽样样本
If X = 3 Then
M = M + 1
For j = 1 To 3
Yb(N, j) = Gd(j)
Gd(j) = ""
Next
'样本排序
For j = 1 To 2
For k = j + 1 To 3
If Yb(N, k) < Yb(N, j) Then
Ty = Yb(N, j): Yb(N, j) = Yb(N, k): Yb(N, k) = Ty
End If
Next
Next
Yb(N, 4) = Yb(N, 1) * 10000 + Yb(N, 2) * 100 + Yb(N, 3)
'****************************************
'B=2 是样e799bee5baa6e997aee7ad94e58685e5aeb9332本不放回去,B=1是样本放回去
'****************************************
B = 2
If M = B Then
M = 0
For k = 1 To 8
Bh(k, 3) = "N"
Next
End If
End If
Next
'样本组合排序
For i = 1 To N - 1
For j = i + 1 To N
If Yb(j, 4) < Yb(i, 4) Then
Ty = Yb(i, 4): Yb(i, 4) = Yb(j, 4): Yb(j, 4) = Ty
For k = 1 To 3
Ty = Yb(i, k): Yb(i, k) = Yb(j, k): Yb(j, k) = Ty
Next
End If
Next
Next
'删除重复样本
For i = 1 To N - 1
If Yb(i, 5) <> "×" Then
For j = i + 1 To N
If Yb(j, 4) = Yb(i, 4) Then Yb(j, 5) = "×"
Next
End If
Next
M = 0
For i = 1 To N
If Yb(i, 5) = "" Then
M = M + 1
For j = 1 To 3
Yb(M, j) = Yb(i, j)
Next
End If
Next
For i = 1 To M
For j = 1 To 3
Cells(i + 1, j + 3) = Yb(i, j)
Next
Next
End Sub