Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Vymažte displej akéhokoľvek iného kódu na začiatku programu zadaním " CLS " ako prvý riadok . Stlačte tlačidlo " Enter " pre presun na ďalší riadok 
 2 
 Zadajte nasledujúci príkaz do QBasic : . 
 
 ROKOV DATA = 10 
 
 DIM A ( dáta ) 
 
 Tým sa vytvorí premennú s názvom " DATA " s 10 položkami a uistite sa , že BASIC vie , že ju chcete použiť ako pole . 
 3 
 Pridajte nasledujúci program : 
 
 NUM = 1 TO DATA 
 
 ROKOV ( NUM ) = INT ( RND * 100 ) + 1 
 
 NEXT NUM 
 
 V tomto bloku kódu , môžete nastaviť slučku , kde sú vytvárané a dať do " DATA " premenné náhodné čísla medzi 1 a 100. V prvom riadku , môžete nastaviť prvé číslo , ktoré chcete opakovať , kým pole končí . Vnútri slučky , " RND " sa vynásobí 100 a 1 pridal. To je preto , že " RND " vždy vracia číslo medzi 0 a 1 , a celá , non - nula čísla sú jednoduchšie pre ľudí , aby pochopili 
 4 
 Zadajte nasledujúci kód nižšie : . 
 < P > PRE vONKAJŠIE = 1 DAT - 1 
 
 PRINT vONKAJŠIE ; 
 
 INNER = vONKAJŠIE + 1 až DATA 
 
 IF ( vonkajšie ) < = ( INNER ) THEN GOTO NOCHANGE 
 
 SWAP ( vonkajšie ) , ( INNER ) 
 
 NOCHANGE : 
 
 NEXT INNER 
 
 ĎALŠIE vONKAJŠIE 
 
 kód je skutočný radenie kódu . " Vnútorné " a " vonkajšie" sú dve premenné , ktoré môžete použiť na predstavujú prvý a druhý položiek v poli . Ak jeden je väčší , potom program swapy . Ak nie, bude to ísť do " NOCHANGE : " markeru a jednoducho pracovať na ďalšom kroku programu 
 5 
 Pridajte nasledujúci kód : . 
 
NUM = 1 predmety