Wis het scherm van een andere code aan het begin van het programma door het intikken van " CLS " als de eerste lijn . Druk op "Enter " om naar de volgende regel

Type 2 het volgende in QBASIC : .

LAAT DATA =

DIM A ( DATA ) < br 10
>

Dit zal een variabele genaamd "DATA " met 10 items te maken en zorg ervoor BASIC weet dat je het wilt gebruiken als een array .
3

Voeg het volgende toe aan het programma :

VOOR AANTAL = 1 TO DATA

LAAT A ( NUM ) = INT ( 100 * RND ) + 1

NEXT NUM

In dit blok van de code , het instellen van een lus waar willekeurige getallen tussen 1 en 100 worden gegenereerd en in een variabele "DATA " . In de eerste regel , het instellen van het eerste nummer dat u wilt herhalen totdat de array eindigt . In de lus , " RND " wordt vermenigvuldigd met 100 en heeft 1 toegevoegd. Dit komt omdat er "RND " geeft altijd een getal tussen 0 en 1 , en hele , niet- nul getallen zijn gemakkelijker voor mensen om te begrijpen
4

Voer hieronder de volgende code : .

VOOR BUITEN = 1 TO DATA - 1

PRINT OUTER
;

VOOR BINNEN = BUITEN + 1 OM GEGEVENS

IF A ( OUTER ) < = A ( BINNEN ) THEN GOTO nochange

SWAP
A ( OUTER ) , A ( BINNEN )

nochange :

NEXT INNER

NEXT OUTER

code is de eigenlijke sorteren code . " BINNEN " en " MOETEN " zijn twee variabelen die u gebruikt om de eerste en tweede items in de array vertegenwoordigt . Als men is groter , dan is het programma swaps . Indien niet , zal het gaan om de " nochange : " marker en gewoon werken in de volgende stap van het programma
5

Voeg de volgende code : .

VOOR AANTAL = 1 TO PUNTEN

PRINT A ( NUM ) ,

NEXT NUM

Dit zal uitprinten de gesorteerde lijst , zodat u uw werk kunt controleren .