99 Bottles of Beer

Voting

Please select* Bad as Hell** Nothing new*** Good**** Nice Coding***** TOP GEEK

Category

real language

Bookmarking

Step 1: Create a New Console Application and then, add the following code in
the principal Module:

Module Bottles
    Sub Main()
    ' Visual Basic.NET version of 99 Bottles of beer (Bottles.vb)
    ' Fabrício Costa, fabricio_costa@msn.com
        Dim Count As Int32
        For Count = 99 To 1 Step -1
            Console.WriteLine(Count & " bottle(s) of beer on the wall, " & Count & " bottle(s) of
beer.")
            Console.WriteLine("Take one down, pass it around, " & (Count - 1) & " bottle(s) of beer
on the wall.")
        Next
    End Sub
End Module

Alternative Versions

Comments

 Homer Simpson said on 12/20/05 22:12:50

BOORING! BOOOOOORING!

 piggest said on 07/01/07 17:55:36

You have forgotten at different points ...& VbCrLf... to make a Newline or more. Or insert somme Console.Writeline(...), can be too Console.Writeline("". Looks omo better.
Greatings formm piggest

 Skip said on 11/13/07 15:06:40

The last two lines of the song have not been catered for:

"No more bottles of beer on the wall, no more bottles of beer.
Go to the store and buy some more, 99 bottles of beer on the wall."

 J. Nobel aka JnXgates said on 04/23/08 05:25:20

VB.Net sucks, I miss good 'ol VB. They should have updated VB, for the vintage VB'ers.
This code is especially boring, but leave it up to Microsoft, to force their ideology on 'ya. Like that screewwwwweeeddd up Vista, that ought to be a crime. It should be free, OS & lang(s)., when it first comes out. Anyway, The VB code is longer and more interesting

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

Name:

eMail:

URL:

Security Code:
  
Comment: