WinTask - 99 Bottles of Beer

' 

' 99 Bottles of Beer - WinTask Version

'

' Inspired by http://www.99-bottles-of-beer.net/

'

' Author: Joe Strazzere ( http://strazzere.blogspot.com )

'

BottleCount = 99

While BottleCount > 2

  Phrase1$=Str$(BottleCount)+" bottles of beer on the wall, "+Str$(BottleCount)+" bottles of beer."

  Phrase2$="Take one down and pass it around, "+Str$(BottleCount - 1)+" bottles of beer on the wall."

  MsgBox(Phrase1$+CRLF+Phrase2$)

  BottleCount = BottleCount-1

Wend

Phrase1$="2 bottles of beer on the wall, 2 bottles of beer."

Phrase2$="Take one down and pass it around, 1 bottle of beer on the wall."

MsgBox(Phrase1$+CRLF+Phrase2$)

Phrase1$="1 bottle of beer on the wall, 1 bottle of beer."

Phrase2$="Take one down and pass it around, no more bottles of beer on the wall."

MsgBox(Phrase1$+CRLF+Phrase2$)

Phrase1$="No more bottles of beer on the wall, no more bottles of beer."

Phrase2$="Go to the store and buy some more, 99 bottles of beer on the wall."

MsgBox(Phrase1$+CRLF+Phrase2$)

---

My name is Joe Strazzere and I'm currently a Director of Quality Assurance. I like to lead, to test, and occasionally to write about leading and testing. Find me at http://strazzere.blogspot.com/.