急！！谁给我写个程序啊 VFP的

来源：百度知道 编辑：UC知道 时间：2024/05/30 03:02:15
编写一个密码校对程序：密码为字符串“Foxpro"。用户从键盘上输入密码，如果输入的密码正确，则显示”身份确认，欢迎您使用本系统“;如果密码不正确，则显示”请重新输入密码！“。只给用户三次机会，若用户连续三次输入错误，则显示”你是非法用户，本系统拒绝你进入！”

set talk off
clear
c=""
for i=1 to 3
accept c+"请输入口令：" to psw
if psw=="Foxpro"
?"身份确认，欢迎您使用本系统！"
exit
slse
?"请重新输入密码！"
endif
endfor
if i>3
?"你是非法用户，本系统拒绝你进入！"
endif
set talk on

sys_bl_1 = ÐÕÃû
IF RECNO()=1
REPL ȨÏÞ WITH 'ϵͳ¹ÜÀíÔ±'
ELSE
REPL ȨÏÞ WITH 'ϵͳ²Ù×÷Ô±'
ENDI
sys_bl_2 = ȨÏÞ
DO form a.scx
thisform.release