stor "Y"to YN
use "E:\visulFox Pro\學生庫.dbf"
index on 學號 to sno
do whil upper (YN) ="Y"
acce "請輸入要查詢的學生號" to cxstudent
seek cxstudent
if found()
disp
else
?"沒有要查的學生"
endif
wait "繼續查找么？繼續請按Y/y結束請按N/n"to YN
endd
?"謝謝，再見！"
return