分页:
上一页 1 2 3 4 [5] 6 7 8 9 下一页
SKIP -1
ENDDO
USE
SET TALK ON
第8题
给定程序MODI1.PRG 的功能是:识别用户密码,保护系统不被非授权用户使用。该程序给用户三次输入密码的机会(要求输入的密码不显示在屏幕上),超过三次,系统退出。用户密码保存在P1DB数据库中。修改调试如下程序,使之能正确运行。
改错要求:程序中共有三处错误,请修改*****found****下面的错误,并调试运行。
注意:要求在原来位置修改,不得增加或删减程序行。
set talk off
set exact on
clear
k=0
do while k<3
@ 10,10 say "请输入密码: "
*******************found********************
set safety on &&参考答案:set console off
accept to mima
*******************found********************
set safety off &&参考答案:set console on
use p1db
locate all for trim(code)==mima
*******************found********************
if code=&mima &&参考答案:if .not. eof()
clear
@ 10,10 say "你好,欢迎光临!"
wait "请按任意键,进入系统开始执行程序"
exit
else
@ 10,10 say "您输入的密码不对"
n=80000
do while n>=1
n=n-1
enddo
endif
k=k+1
enddo
if k>=3
@ 15,10 say "对不起,您不能使用本系统"
分页:
上一页 1 2 3 4 [5] 6 7 8 9 下一页