ویزوال بیسیک VB

1

3 2 

6 5 4 

10 9 8 7 

Private Sub Command1_Click()

   a = 0

   p = 1

     For i = 1 To 10                           '   For i = 10 To 1 Step -1

            

                      Print i;

                    a = a + 1

                 

                    If a = p Then

                             Print

                              p = p + 1

                              a = 0

                     End If

       

     Next i

 

End Sub