Do Loop While Structure

This is the Basic way on how to do the coding of Do Loop While Structure in VB6

this condition will print vertically 1 through 10

Private Sub Command1_Click()
   Dim co As Integer

      co = 1 'set the value of co to 1

            Do

                 Print co 'print the value of co
                 
                          co = co + 1 'co increment by 1

            Loop While co <= 10'exit if <=10
    
End Sub

Happy Coding
These icons link to social bookmarking sites where readers can share and discover new web pages.
  • Digg
  • Sphinn
  • del.icio.us
  • Facebook
  • Mixx
  • Google
  • Furl
  • Reddit
  • Spurl
  • StumbleUpon
  • Technorati

Leave a comment

Copyright @ Codes-47.Blogspot.Com. Powered by Blogger.