September 13, 2010

WinTask - 99 Bottles of Beer



' 99 Bottles of Beer - WinTask Version
'
'
' 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/.

No comments:

Post a Comment

Post a Comment