Programación de macro dados EXCEL (tira 6 dados, cada uno 100002 veces, encuentra la probabilidad de que haya uno y solo uno cuatro, es decir, la probabilidad de uno)
Subprobabilidad()
Dim x(5)
Para y = 1 a 100002
x(0) = Int(Rnd() * 6)< / p>
x(2) = Int(Rnd()* 6)
x(3) = Int(Rnd() * 6)
x(4) = Int(Rnd() * 6)
x(5) = Int(Rnd() * 6)
x(1) = Int(Rnd()*6)< / p>
Para m = 0 a 5
Si x(m) = 4 Entonces q = q + 1
Siguiente
Si q = 1 Entonces P = P + 1
q = 0
Siguiente
MsgBox P/100002
End Sub
Esta es la declaración de la variable de matriz
.