v 您现在的位置:八十年代交流网 ->>编程天地》版   文字大小:[][][默认]

v 第1/1页
跳至
[刷新]

主题: [顶楼] 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

[留言] [回复]
------------------------------
★冰峰★ 写


v 第1/1页
跳至
[刷新]

v 您现在的位置:八十年代交流网 ->>编程天地》版
[返回]

公司简介 - 相关条款 - 站点地图 - 合作信息 - 网站建设 - 广告业务
Copyright  ©  2002-2004  八十年代·版权所有