SHARE
TWEET

99 Bottles of Beer (with very strict drinking rules)

Phr0zen_Penguin Dec 28th, 2013 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ''============================================================================
  2. ''----------------------------------------------------------------------------
  3. ' 99_bottles.vb - 99 Bottles Of Beer Lyrics.
  4. '               (c) Damion 'Phr0z3n.dev' Tapper, 2013.
  5. '               Email: Phr0z3n.Dev@Gmail.com
  6.  
  7. ' NOTE: Secure API is implemented for responsible drinking.
  8. ''----------------------------------------------------------------------------
  9. ''============================================================================
  10.  
  11. ' WARNING: Drink responsibly!
  12. Option Explicit On
  13. Option Strict On
  14.  
  15. Module mainModule
  16.  
  17.         Sub Main()
  18.                 Dim bottles_of_beer As New Integer()
  19.  
  20.                 Console.WriteLine(">>------------------> 99 Bottles Of Beer Lyrics <------------------<<" & vbNewLine)
  21.  
  22.                 Dim beer_buffer As String
  23.  
  24.                         For bottles_of_beer = 99 To 1 Step -1
  25.                                 beer_buffer = bottles_of_beer & " bottle"
  26.  
  27.                                         If bottles_of_beer <> 1 Then
  28.                                                 beer_buffer += "s"
  29.                                         End If
  30.  
  31.                                 beer_buffer += " of beer on the wall, " & bottles_of_beer & " bottle"
  32.  
  33.                                         If bottles_of_beer <> 1 Then
  34.                                                 beer_buffer += "s"
  35.                                         End If
  36.  
  37.                                 beer_buffer += " of beer."
  38.  
  39.                                 Console.WriteLine(beer_buffer)
  40.  
  41.  
  42.                                 beer_buffer = "Take one down and pass it around, "
  43.  
  44.                                         If bottles_of_beer - 1 <> 0 Then
  45.                                                 beer_buffer += (bottles_of_beer - 1).ToString()
  46.                                         Else
  47.                                                 beer_buffer += "no more"
  48.                                         End If
  49.  
  50.                                 beer_buffer += " bottle"
  51.  
  52.                                         If (bottles_of_beer - 1) <> 1 Then
  53.                                                 beer_buffer += "s"
  54.                                         End If
  55.  
  56.                                 beer_buffer += " of beer on the wall." & vbNewLine
  57.  
  58.                                 Console.WriteLine(beer_buffer)
  59.                         Next
  60.  
  61.                 Console.WriteLine("No more bottles of beer on the wall, no more bottles of beer.")
  62.                 Console.WriteLine("Go to the store and buy some more, 99 bottles of beer on the wall." & vbNewLine)
  63.                 Console.WriteLine(">>------------------------------->+<-------------------------------<<")
  64.         End Sub
  65.  
  66. End Module
RAW Paste Data
Top