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.

• 
• 
• 
• 
• 
• 
• 
• 
• 
• 
• 

Tags: Control Stuctures, Visual Basic 6.0