Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvoriť Len Basic a vytvoriť nový projekt . Kliknite na " Súbor " a potom " . Nová základná zdrojový súbor " 
 2 
 použite pokyn tlačiť tlačiť názov a záhlavie stĺpcov takto : 
 
 Print " Grocery List " printprint " Množstvo " ; karta ( 5 ) , " Opis " ; karta ( 30 ) , " Cena " 
 
 vyhlásenie pre tlač odosiela text , ktorý ju nasleduje do okna tlače . Funkcia Tab posunie kurzor na daný stĺpec tlačovej linky . To umožňuje umiestniť na hlavičku stĺpca priamo nad dátami 
 3 
 Formátovanie prvej línii s potravinami položiek takto : . 
 
 Tlač 5 , tab ( 5 ) ; " jablká " , záložka ( 30 ) ; FormatNum $ ( 1,25 , 4 ) 
 
 Tento príkaz umiestni množstvo 5 v prvom stĺpci , karty viac než na piatom stĺpci a umiestni slovo " jablká " , potom karty na stĺpec 30 umiestniť množstvo 1.25 . Funkcie FormatNum $ pridá medzery na každé číslo , ktoré chcete zarovnať podľa desatinnej čiarky 
 4 
 Pridajte niekoľko viac riadkov s potravinami položky do zoznamu takto : . 
 
 Tlač 1 ; karta ( 5 ) , " Milk " , záložka ( 30 ) ; FormatNum $ ( 2.29 , 4 ) tlač 1 , tab ( 5 ) , " Roštenka " ; karta ( 30 ) ; FormatNum $ ( 12,95 , 4 ) tlač 1 ; karta ( 5 ) , " Chocolate Bar " , záložka ( 30 ) . FormatNum $ ( 0,59 , 4 ) 
 5 
 Vytlačiť celkom 
 
 karta tlač ( 5 ) ; " , Total " , záložka ( 30 ) ; FormatNum $ ( 1,25 + 2,29 12,95 + 0,59 , 4 ) 
 
 Tento riadok umiestni slovo Total pod popisov umiestni celkom pod číslami 
 < . br > 6 
 Definujte $ funkciu FormatNum . Umiestnite tento kód nižšie v tlačových vyhláseniach . 
 
 Funkcia FormatNum $ ( x , i ) s $ = str $ ( x ) l = ľan ( str $ ( int ( x ) ) ) , ak l < i thens $ = priestor $ ( i - l ) + y $ koniec ifFormatNum $ = y $ end funkcie 
 
Prvý riadok deklaruje funkciu x , ktorá obsahuje množstvo a i, ktorá obsahuje počet znakov požadovaných pred desatinnou čiarkou < . br >
 riadok 2 uloží číslo ako reťazec znakov v premennej s $ . 
 
riadok 3 spočíta počet číslic v súčasnej dobe pred desatinnou čiarkou . Je-li číslo 12.34 , celé číslo je 12 , takže l bude obsahovať hodnotu 2. Celým
 riadok 3 až 5 využíva priestor $ funkcie možno pridať do medzery v prednej časti s $ . Keby som je 2 a požadované priestory ( i ) je 4 , musíme pridať ďalšie dve miesta v prednej časti s $ . 
 
 Linka 6 vráti formátovaný číslo späť do volajúci program . 
 
 7 
 spustite program . Kliknite na tlačidlo SHIFT a F5 spoločne vidieť výsledky .