📄 程序2.prg
字号:
set talk off
set bell on
set defa to E:\成绩跟综
clear
@11,26 to 30,60 clear
@11,26 say"学生成绩管理系统" FONT"中黑体",24 color W+/R+
@17,26 say"编 写: 陈 克 毅 2001.1."
n=1
kl=space(7)
do while n<=3
set color to w+/b,n/bg
@15,0 clear
@20,30 say"请输入口令:"
set cons off
accept to kl
set cons on
if kl<>"3515287"
set color to /g
if n=3
@15,20 to 19,50 clear
@17,24 say"对不起,不能使用本系统"
wait""
return
else
@15,20 to 19,50 clear
@17,24 say"口令不对,请重新输入"
wait""
n=n+1
loop
endif
else
exit
endif
enddo
set color to
do menu1.mpx
clear
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -