2010年河北省普通高等学校对口招生考试计算机理论试题A(22)

STORE l TO YM

USE MIMA. DBF

DO WHILE YM<=3 ACCEPT " 请输入用户名："TO MYNAME

ACCEPT " 请输入密码：" TO MYKEY SEEK MYNAME IF .NOT. EOF()

IF MYKEY=TIRM(密码)