Want to show ALL possible outcomes of 10 coin flips

[sacajamo]

I need to show all possible outcomes (1,024, I think) of flipping a coin 10 times, such as:

H H H H H H H H H H
H H H H H H H H H T

all the way down to:

T T T T T T T T T T

Does anyone know a way I can do that on Excel without reinventing the wheel?

 

[mikerickson]

Dim rNumber As Long, cNumber As Long

Declares both rNumber and cNumber as variables of data type Long

· ReDim Output (1 to LetterCount ^ NumFlips, 1 To NumFlips)

Declares the size of the array Output, which was previously declared of undetermined size

· For cNumber = 1 to NumFlips

Begins a loop with cNumber as the looping variable, that line is matched with the line Next cNumber

· Output (1, cNumber) = Letters(0)

Sets the value of the (1, cNumber) th Output array element to the Letters array element with zero index

· Next cNumber

ends the looping block between that and For cNumber = 1 to NumFlips above

· If Flag Then Output (rNumber, cNumber) = Output(rNumber - 1, cNumber)

If the Flag variable is True, then set the array element Output(rNumber, cNumber) to the array element Output(rNumber-1, cNumber)