VBA 3つのサイコロ、何回ふったらすべて一致する?
Function dice() As Integer
dice = Int(Rnd * 6 + 1)
End Function
Sub 実験()
Dim a, b, c As Integer
Dim N As Integer
a = dice()
b = dice()
c = dice()
Do Until a = b And b = c
a = dice()
b = dice()
c = dice()
N = N + 1
Loop
Call MsgBox(N)
End Sub