动态数组创建与应用求助

acbdas

小人新人一枚,只会用固定值和固定变量来写VBA,数组相关的还不太懂

问题如下:
假设卡组有n张牌,每张牌概率一样,问:用不同次数抽齐一套卡组的概率.

我的思路中如下3点不太懂:
见图


1:动态创建N个数,组成一个数组(1至N)
2:动态生成抽卡次数P个随机数(1至N),P如左侧表格.
3:判断P数组是否包含N数组

acbdas

在此先感谢各位大侠啦

一把小刀闯天下

'循环有点多，需要几秒

Option Explicit

Const NUM = 10 ^ 4

Sub test()
  Dim i, j, arr, dic, n, ii
  Set dic = CreateObject("scripting.dictionary")
  arr = [b6:b31].Value: n = [g5]
  ReDim brr(1 To UBound(arr, 1), 1 To 1)
  For ii = 1 To NUM
    For i = 1 To UBound(arr, 1)
      dic.RemoveAll
      Randomize
      For j = 1 To arr(i, 1)
        dic(Int(Rnd * n) + 1) = vbNullString
      Next
      brr(i, 1) = brr(i, 1) + dic.Count
  Next i, ii
  For i = 1 To UBound(brr, 1)
    brr(i, 1) = Format(brr(i, 1) / n / NUM, "0.00%")
  Next
  [c6].Resize(UBound(brr, 1)) = brr
End Sub

acbdas

一把小刀闯天下 发表于 2018-5-24 22:10
'循环有点多，需要几秒

Option Explicit

谢谢谢谢,我先研究下,计算出来的概率和数学计算出来的差距有点大,
我先自己研究下

7张卡抽7次就有66%的概率抽齐

acbdas

一把小刀闯天下 发表于 2018-5-24 22:10
'循环有点多，需要几秒

Option Explicit

找到问题啦,需要dic.count = n才算满足条件,
然后brr(i,1) = brr(i,1) + 1


最后brr(i,1) = brr(i,1)/num
这个就是成功的概率啦


谢谢大神,回去继续观摩了

zopey

套用楼上 代码

回置抽牌.zip (18.16 KB, 下载次数: 4)

2018-5-25 14:35 上传

点击文件名下载附件

acbdas

zopey 发表于 2018-5-25 14:35
套用楼上 代码

公式好像不对呀,是这样的.可能我表述出问题了

假设牌组中有(1,2,3,4,5,6,7)号牌

1.随机抽N张卡
2.N张卡中至少有(1,2,3,4,5,6,7)号牌+(N-7)张随意牌 的概率


例(1,2,3,4,5,6,7,1,1,1,1,1,X,X,X,X)


然后我就改了下代码,差不多就是我需求的了
谢谢大家了

1. Sub test()
   
2.     NUM = 10000
   
3.   Dim i, j, arr, dic, n, ii
   
4.   Set dic = CreateObject("scripting.dictionary") '随机数组
   
5.   arr = [b6:b31].Value: n = [g5] '定义次数
   
6.   ReDim brr(1 To UBound(arr, 1), 1 To 1) 'brr=一共多少行
   
7.   For ii = 1 To NUM 'II=循环次数
   
8.     For i = 1 To UBound(arr, 1) 'I=循环第几行
   
9.       dic.RemoveAll
   
10.       Randomize
    
11.       For j = 1 To arr(i, 1)
    
12.         dic(Int(Rnd * n) + 1) = vbNullString
    
13.       Next
    
14.       If dic.Count = n Then'如果dic的值 = 牌组数,则表示抽取成功
    
15.         brr(i, 1) = brr(i, 1) + 1
    
16.       End If
    
17.     Next
    
18.   Next
    
19.   For i = 1 To UBound(brr, 1)
    
20.     brr(i, 1) = Format(brr(i, 1) / NUM, "0.00%")
    
21.   Next
    
22.   [c6].Resize(UBound(brr, 1)) = brr
    
23. End Sub

复制代码

zopey

牌 每次抽一张 都要放回去 ，理解的不对 ？

acbdas

zopey 发表于 2018-5-25 15:28
牌 每次抽一张 都要放回去 ，理解的不对 ？

对的......................