Email is:
(none)
SUBJECT: SUBMIT
DATE: 7-17-02 4:54pm
Written by:
yochatwitme@yahoo.com
ALPHABETICAL SORTING PROGRAM
CLS DIM Word(8), TempWord AS STRING Word(1)="ZEBRA" Word(2)="GRAPE" Word(3)="BEAR" Word(4)="INTERNET" Word(5)="SOFTWARE" Word(6)="CAT" Word(7)="BOOK" Word(8)="ADVENTURE" FOR PassNum = 1 TO 7 FOR Sort = 1 TO 8 - PassNum IF Word(Sort)> Word(Sort+1) THEN TempWord = Word(Sort) Word(Sort) = Word(Sort+1) Word(Sort+1) = TempWord END IF NEXT NEXT 'View the list in alphabetical order FOR I = 1 TO 8 PRINT Word(I) NEXT
Return to QBASIC MESSAGE BOARD