EXCEL 宏 擲骰子編程（6個骰子各擲100002次，求有且僅有壹個四的概率，也就是壹秀的概率）

Dim x(5)

For y = 1 To 100002

x(0) = Int(Rnd() * 6)

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)

For m = 0 To 5

If x(m) = 4 Then q = q + 1

Next

If q = 1 Then P = P + 1

q = 0

Next

MsgBox P / 100002

End Sub

這是聲明數組變量