新手，求助计算抽取样本问题

Youngqueen

题目是这样的：
将样本A和样本B混在一块，每次从中抽出一个样本，其中样本A概率恒定为0.15，样本B概率恒定为0.85，若联系10次抽不中样本A，则第11次必定抽中样本A，使用VBA模拟抽中样本A的期望次数。

Youngqueen

勿喷.........

般若敏敏

做策划的？十连抽必中模拟？

Youngqueen

自己顶~~~~~~~~~~~~

lsdongjh

是不是这个意思？

1. Sub Test2()
   
2.     Dim intRnd As Integer
   
3.     Dim intSelectA As Integer
   
4.    
   
5.     For intCount = 1 To 100
   
6. 
   
7.         intRnd = Rnd * 100 '生成 0-99的整数
   
8.         If intSelectA = 10 Then
   
9.             Debug.Print "A"
   
10.             intSelectA = 0
    
11.         Else
    
12.             If intRnd Mod 7 = 0 Then '0-99 之间，MOD 7=0的 正好为15个
    
13.                 Debug.Print "A"
    
14.                 intSelectA = 0
    
15.             Else
    
16.                 Debug.Print "B"
    
17.                 intSelectA = intSelectA + 1
    
18.             End If
    
19.         End If
    
20.     Next
    
21. 
    
22. End Sub

复制代码

Youngqueen

lsdongjh 发表于 2018-9-12 11:56
是不是这个意思？

额，题目的意思是每次抽中A的概率是0.15，如果没抽中就继续抽(前10次都没抽中，则第11次必中A)，如果抽中了A就把这一轮抽中样本A的次数记录下来，那么模拟抽中A所需次数的期望值

lsdongjh

感觉是：（A样本量+B样本量）/(0.15+0.85^10)

Youngqueen

lsdongjh 发表于 2018-9-12 12:57
感觉是：（A样本量+B样本量）/(0.15+0.85^10)

不是的~~你可能曲解了题目的意思TT

Youngqueen

自己顶一波吧~~