搜索结果 - 八十年代交流网

今天是： 2004年10月29日星期五

　v 您现在的位置：交流网首页 >> 编程天地版 >> 正文阅读

[查看相关贴][文本保存][打包邮寄][打印][关闭窗口]

vfp代码3

作者：★冰峰★(xzwn82) 发表于2004-2-11 18:23:16

*口令
set talk off
clear
n=0
for i=1 to 5
input "请输入七位数字的密码(1234567)：" to m
t=trim(str(m,7))
if t="1234567"
?"口令正确，欢迎使用！"
exit
else
?"口令错！请重新输入。"
n=n+1
if n=3
?
?"对不起，你无权使用。"
exit
endif
endif
endfor

set talk on
*©80*

[查看相关贴][文本保存][打包邮寄][打印][关闭窗口]