REM to enter 5 students' name and search the input name in the array CLS DIM a$(5) DIM r$(5) FOR i = 1 TO 5 INPUT "enter name of student and result"; a$(i), r$(i) NEXT i CLS INPUT "enter the name to view result"; n$ FOR i = 1 TO 5 IF UCASE$(a$(i)) = UCASE$(n$) THEN PRINT r$(i) C = C + 1 END IF NEXT i IF C = 0 THEN PRINT "NO RECOCRD FOUND" END