请教一个概率题

有一种彩票 发行量N枚 N很大 我想知道他的中奖概率
我买了 10000张 中了300张
体感概率3%

这个3%的可信度为多少

如果我想测定一个信赖度90%的值
那我至少买多少彩票
95%呢

懒得在网上查了
哪位大神有空请指教一下

题2

70个球 完全随机的进25个洞
允许一洞多球
那么70个球全进完后 25洞全被进入一球以上的概率是多少

N没给出具体数，难度就大了。

昆仑苍狼 发表于 2015-4-24 01:14
题2

70个球 完全随机的进25个洞

那么70个球全进完后， 25洞全被进入至少一球的概率是：
19.7%。

昆仑苍狼 发表于 2015-4-24 01:14
题2

70个球 完全随机的进25个洞

这题出的太坏了，害我俩钟头还没做出来，周末又不能安心打牌了！

老陈 发表于 2015-4-24 23:25
那么70个球全进完后， 25洞全被进入至少一球的概率是：
19.7%。

陈老能不能教教我怎么算的
我用excel模拟了100万次
结果大概是全进20% 剩一个50% 剩两个25%
结果很近应该受正确的

可我不知道怎么算

老陈 发表于 2015-4-24 18:18
N没给出具体数，难度就大了。

N20000
N10万情况
的话
怎么算呢

Howard 发表于 2015-4-25 01:11
这题出的太坏了，害我俩钟头还没做出来，周末又不能安心打牌了！

哈哈 霍斯福加油

怎么添加签名？
我要把签名改成。最爱老李！

昆仑苍狼 发表于 2015-4-24 17:28
陈老能不能教教我怎么算的
我用excel模拟了100万次
结果大概是全进20% 剩一个50% 剩两个25%

我也用模拟，考虑过几种解析算法，都没有成功。
模拟程序如下：

       Dim Toatl, Qualify As Double
        Dim Hole(24) As Integer
        Dim Card(8) As Integer
        Dim P1, P2, P4 As Integer
        Dim I1 As Integer
        Randomize()
        Dim Num As Double
        P4 = 0
        While (1)
            For I1 = 0 To 24
                Hole(I1) = 0
                '清空各洞的球数
            Next
            I1 = 0
            While I1 < 70
                '70个球随机进洞
                Num = Rnd()
                P2 = Num * 27
                If P2 > 0 And P2 < 26 Then
                    Hole(P2 - 1) = Hole(P2 - 1) + 1
                    I1 = I1 + 1
                    '确保完全随机，边界上的数字不要
                End If
            End While
            P1 = 1
            '首先认为每个洞都进了球
            For I1 = 0 To 24
                If Hole(I1) = 0 Then
                    P1 = 0
                    '这个洞没有球
                    Exit For
                End If
            Next
            Toatl = Toatl + 1
            Qualify = Qualify + P1
            P4 = P4 + 1
            If P4 = 200000 Then
                TextBox1.Text = Qualify
                TextBox2.Text = Toatl
                TextBox3.Text = Format(Qualify / Toatl, "####.####%")
                P4 = 0
                Me.Refresh()
                '显示结果
            End If
        End While