excel随机抽样问题 就是现在有八个同学的成绩,抽取其中三个,列出放回和不放回抽样的所有可能性.要用Excel来做,列出所有抽取的样本啊,什么方法都试过了都没用.八个同学成绩如下:65、72、7
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/06 17:19:54
![excel随机抽样问题 就是现在有八个同学的成绩,抽取其中三个,列出放回和不放回抽样的所有可能性.要用Excel来做,列出所有抽取的样本啊,什么方法都试过了都没用.八个同学成绩如下:65、72、7](/uploads/image/z/12298893-69-3.jpg?t=excel%E9%9A%8F%E6%9C%BA%E6%8A%BD%E6%A0%B7%E9%97%AE%E9%A2%98+%E5%B0%B1%E6%98%AF%E7%8E%B0%E5%9C%A8%E6%9C%89%E5%85%AB%E4%B8%AA%E5%90%8C%E5%AD%A6%E7%9A%84%E6%88%90%E7%BB%A9%2C%E6%8A%BD%E5%8F%96%E5%85%B6%E4%B8%AD%E4%B8%89%E4%B8%AA%2C%E5%88%97%E5%87%BA%E6%94%BE%E5%9B%9E%E5%92%8C%E4%B8%8D%E6%94%BE%E5%9B%9E%E6%8A%BD%E6%A0%B7%E7%9A%84%E6%89%80%E6%9C%89%E5%8F%AF%E8%83%BD%E6%80%A7.%E8%A6%81%E7%94%A8Excel%E6%9D%A5%E5%81%9A%2C%E5%88%97%E5%87%BA%E6%89%80%E6%9C%89%E6%8A%BD%E5%8F%96%E7%9A%84%E6%A0%B7%E6%9C%AC%E5%95%8A%2C%E4%BB%80%E4%B9%88%E6%96%B9%E6%B3%95%E9%83%BD%E8%AF%95%E8%BF%87%E4%BA%86%E9%83%BD%E6%B2%A1%E7%94%A8.%E5%85%AB%E4%B8%AA%E5%90%8C%E5%AD%A6%E6%88%90%E7%BB%A9%E5%A6%82%E4%B8%8B%EF%BC%9A65%E3%80%8172%E3%80%817)
excel随机抽样问题 就是现在有八个同学的成绩,抽取其中三个,列出放回和不放回抽样的所有可能性.要用Excel来做,列出所有抽取的样本啊,什么方法都试过了都没用.八个同学成绩如下:65、72、7
excel随机抽样问题 就是现在有八个同学的成绩,抽取其中三个,列出放回和不放回抽样的所有可能性.
要用Excel来做,列出所有抽取的样本啊,什么方法都试过了都没用.
八个同学成绩如下:65、72、77、83、85、88、94、97
excel随机抽样问题 就是现在有八个同学的成绩,抽取其中三个,列出放回和不放回抽样的所有可能性.要用Excel来做,列出所有抽取的样本啊,什么方法都试过了都没用.八个同学成绩如下:65、72、7
抽样放不放回去都是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
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