Хелпикс

Главная

Контакты

Случайная статья



Cycle.bas. Cycleout.bas

⇐ ПредыдущаяСтр 2 из 2


Cycle. bas

 

Private Sub cmdFor_Click( )

Dim Iz As Integer

Dim Ix As Integer

CLS

For Iz = 1 To 10 Step 1

   For Ix = 1 To 10 Step 1

       Print " Visual Basic"

   Next Ix

Next Iz

End Sub

 

 

Cycleout. bas

 

PRIVATE SUB CMDFOR_CLICK( )

DIM IZ AS INTEGER

DIM IX AS INTEGER

CLS

IZ = 1

DO WHILE IZ < = 10

 

 

   FOR IX = 1 TO 10 STEP 1

       PRINT " VISUAL BASIC"

   NEXT IX

IZ = IZ + 1

Loop

 

END SUB

 


⇐ Предыдущая12
  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.