作业帮组合问题：三种颜色球,每种八个,取出12个.结果为8*4*0的概率是多少?组合问题：三种颜色的球,每种八个,取出12个.颜色不分先后.结果为840的概率是多少?结果为345的概率是多少?结果为444的概率
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 00:25:51
组合问题：三种颜色球,每种八个,取出12个.结果为8*4*0的概率是多少?组合问题：三种颜色的球,每种八个,取出12个.颜色不分先后.结果为840的概率是多少?结果为345的概率是多少?结果为444的概率
组合问题：三种颜色球,每种八个,取出12个.结果为8*4*0的概率是多少?
组合问题：三种颜色的球,每种八个,取出12个.颜色不分先后.
结果为840的概率是多少?
结果为345的概率是多少?
结果为444的概率是多少?
结果为840的概率是多少?
文件1.vbs
Dim a,b,c
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 2000
'//本行的含义为是脚本暂停2秒，给notepad一个打开的时间，有时时间太短可能导致后面的字符无法进入编辑区
WshShell.AppActivate "无标题 - 记事本"'//AppActivate为寻找可执行程序的标题框，”无标题－记事本”内容你的自己打开看一下
q=0
for a=0 to 8
for b=a to 8
for c=b to 8
if a+b+c=12 then
WshShell.SendKeys a & b & c
if a=b and a=c then
x=cc(8,a)*cc(8,b)*cc(8,c)/cc(24,12)
else
if((a=b and ac)or(a=c and ab)or(c=b and ac)) then
x=cc(3,1)*cc(8,a)*cc(8,b)*cc(8,c)/cc(24,12)
else
x=cc(3,1)*cc(2,1)*cc(8,a)*cc(8,b)*cc(8,c)/cc(24,12)
end if
end if
WshShell.SendKeys "：" & x
q=x+q
WshShell.SendKeys "{enter}"
end if
next
next
next
WshShell.SendKeys "总和为：" & q
function cc(m,n)
cc=jj(m)/(jj(n)*jj(m-n))
end function
function jj(x)
j=1
for w=1 to x
j=j*w
next
jj=j
end function
组合问题：三种颜色球,每种八个,取出12个.结果为8*4*0的概率是多少?组合问题：三种颜色的球,每种八个,取出12个.颜色不分先后.结果为840的概率是多少?结果为345的概率是多少?结果为444的概率
840:(3C1)(2C1)(8C8)(8C4)/(24C12)=1.5532/10000
345:(3C1)(2C1)(8C3)(8C4)(8C5)/(24C12)=0.4871
444:(8C4)(8C4)(8C4)/(24C12)=0.1268
三种颜色的球，每种八个 就是一共有24个 所以 颜色部分先后的取球就有c24（12）种可能
840 从第一种颜色取出8个 就是c8（8） 从第二种颜色取出四个 就是c8（4）
概率就是 c8（8）*c8（4）/c24（12）
其他的以此类推