Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte zdrojový súbor v jazyku Visual Basic 6 
 2 
Pridať " pre " slučky zadaním nasledujúci kód do vašich funkcií : . ClipArt
 Dim x As Integer 
 
 Dim počet As Integer 
 
 x = 0 
 
 počet = 1 až 6 Krok 2 
 
 x = x + 2 
 
 Ďalšie 
 
 " pre " slučka sa skladá z pultu , rozsahu pultu , krok a príkazy vykonať pri každej iterácii . Argument " krok " určuje , koľko čítač zvýši medzi iterácií . Ak vynecháte " krok " kľúčové slovo je nastavená na predvolenú hodnotu 1. V príklade , v prvej iterácii , " počet " je rovné 1 a " X " je nastavená na hodnotu 2 ( 0 +2 ) . Na druhej iterácii " počítať " je nastavená na hodnotu 3 , a " X " je nastavený na 4 ( 2 +2 ) 
 
 Ak chcete prechádzať zoznamom miesto , pridajte nasledujúci kód : . 
 
 Dim MyColors ( 2 ) ako String 
 
 Dim farby , String 
 
MyColors ( 0 ) = " Blue " Spojené
 MyColors ( 1 ) = " Green " 
 
 MyColors ( 2 ) = " Yellow " 
 
 pre každú farbu v MyColors 
 
 Debug.Print farba 
 
 Ďalšie 
 
 slučky proces sa opakuje pre každý hodnota v zozname , ktorý je typicky pole alebo kolekcia . Iterácie premenná " farba " , musí byť rovnakého typu ako prvky v zozname 
 3 
 Pridať " do " slučky zadaním nasledujúci kód : . 
 
 Dim x As Integer 
 
 x = 0 
 
 robiť , keď x < 10 
 
 x = x + 2 
 
 Loop 
 
 slučka udržuje iterácie , kým podmienka za kľúčovým slovom " to " je splnená . Podmienka je kontrolovaná na začiatku pred každou novou iteráciu . Prípadne môžete nastaviť tak , aby iterácii , kým podmienka je splnená pridaním nasledujúceho kódu : 
 
 
 
 X = X + 2 
 
 Loop Do X > 10 
 
 V " slučke , kým " štruktúry podmienka je kontrolovaná po skončení každej iterácie . Ak chcete ukončiť slučku , než je splnená podmienka , pridajte " Exit Do " vnútri slučky . 
 4 
 Uložte súbor VB6 , skompilovať a spustiť program pre prezeranie slučky .