#Visual Basic for Applications, 110 102 bytes#
Visual Basic for Applications, 110 102 bytes
Edit: saved eight more bytes by using split()
instead of array()
while rnd>.3:?split("Red,Orange,Yellow,Green,Blue,Indigo,Violet",",")(rnd*6)+" duck":wend:?"Gray duck"
Type in the immediate window.