IF ____________________ ST=ST+X ENDIF ENDFOR
?”原字符串为:”+RS ?”新字符串为:”+ST RETU
2 下面为核对口令的程序段，口令最多输入三次，请阅读并填空。 Set talk off
Set device to screen Set escape off Clea I=1
Do while .T.
@3,2 say “[请输入口令]” set console off accept to pass
if upper(pass)=”OK” do main.prg else
wait “第”+str(I,1)+”次输入有错” if I=3
@ 4,10 say space(60)
endif I=I+1 enddo set talk on return
1. 在JSDA?DBF中查找用户输入的编号，如果查找成功，显示教师的职称，否则，显示一个说明信息。请完成如下程序： CLEAR
USE C：\\JSGL\\JSDA “请输入教师的编号:” TO BH LOCATE FOR 编号= =BH IF DO CASE
CASE 职称=“高级教师” WAIT “该教师是高级教师” WINDOW AT 15，50 TIMEOUT 1 CASE 职称=“一级教师”
21
WAIT “该教师是一级教师” WINDOW AT 15，50 TIMEOUT 1 CASE 职称=“二级教师” WAIT “该教师是二级教师” WINDOW AT 15，50 TIMEOUT 1
WAIT “该编号不存在” WINDOW AT 15，50 TIMEOUT 1 ENDIF USE
RETURN
* 注: AT m,n 在VisualFoxPro中，指定信息窗口在屏幕上的位置
2、在JSDA.DBF表中查找用户指定的编号。如果查找成功，显示找到的记录，否则，显示一条说明信息。请完成如下程序。 USE JSDA.DBF DO WHILE .T. CLEAR
ACCEPT ”请输入编号：”TO BH LOCATE FOR IF FOUND( ) DISPLAY ELSE
WAIT ”不存在该编号” WINDOW TLMEOUT 1
WAIL ”是否继续查找？(Y/N)” TO ANSWER WINDOW IF UPPER(ANSWER)〈〉”Y”
ENDIF ENDIF ENDDO USE
RETURN
4、使用自定义函数计算5！=7！+10！。请完成如下程序。 CLEAR
？”5！+7！+10！=“+ALLTRIM(STR(JS)(5)+JS(7)+JS(10))) RETURN
FUNCTION &&定义自定义函数 XS= FOR N=1 TO X XS=XS*N RETURN ENDFUNC
四、阅读程序,写出程序运行结果(每小题6分，18共) 1.主程序 main.prg 子程序 sub.prg set talk off priv b public a b=5
22
stor 2 to a,b a=2*b a=a+b return b=a+b ? a,b do sub ? a,b return
程序执行的结果是: 2.对于职工工资数据库ZGGZ.DBF,执行下面程序。 SET TALK OFF USE ZGGZ
INDE ON 工资 TO GZ STOR 0 TO S,N GO TOP
DO WHIL .NOT.EOF( ) DO CASE
CASE 性另='男' S=S+工资
CASE 职称='工程师' N=N+1 ENDC SKIP ENDD USE
SET TALK ON
程序执行后,变量S表示__________________ 变量N表示___________________。
3.现有学生档案数据库XSDA.DBF,其记录如下:
记录号 姓名 性别 班级 团员否 1 王 红 女 2 T 2 张长江 男 4 T 3 黄一品 男 2 T 4 高 峰 男 1 F 5 肖 丹 女 1 F 6 赵婷婷 女 2 T 7 张雅芝 女 1 T 8 刘 刚 男 2 F 执行下面程序: SET TALK OFF USE XSDA
INDE ON 班级 TO BJ N=0 K=班级 GO TOP
23
DO WHILE .NOT.EOF( ) IF K<>班级 ？ K，N ENDIF N＝N＋1 K＝班级 SKIP
ENDDO ？K，N USE
SET TALK ON
程序执行的结果是：
五、阅读程序,写出程序运行的结果。(每空3分,共18分) 1.*主程序 main.prg *子程序 sub.prg set Talk off private B public B B=10 A=7 A=N^2 N=3 Return B=5 Do Sub ? A,B Return
程序运行结果为:_______________ ____________ 2.现有XSCJ.DBF数据库,其记录内容如下所示: 记录号# 姓名 成绩 1 李梅 78.5 2 张燕 89.5 3 孙静 45.8 4 李雪 65.0 5 杨东 90.0 现依次执行如下命令,试写出程序运行结果 Set talk off use XSCJ
Index on - 成绩 To IXSCJ GO TOP ? 成绩
____________ skip 2 ? Recno()
____________ use
set talk on Return
24
3.Set talk off
Sour=\ N=2 I=1
S＝” ” Do while I<4
If Int(/2)=I/2 N=N-3 Else
N=N+6 EndIF
S=S+Substr(Sour,N,I) I=I+1 Enddo ? S,N
Set talk On Return
执行以上程序后,其运行结果为___________ __________
四、阅读程序，写出程序运行结果(每空4分，共16分) 1、SET TALK OFF CLEA
ACCE“输入密码：”TO STRING ?“破译密码：” I＝1
DO WHILE I＜＝3
CH＝SUBSTR(STRING，I，1)
IF CH＞＝’A’ .AND.CH＜＝’Z’ CH＝CHR(ASC(CH)＋32) ELSE
IF CH＞＝’a’.AND.CH＜＝’z’ CH＝CHR(ASC(CH)－32) ENDIF ENDIF ？？CH I＝I＋1 ENDDO
SET TALK ON 输入密码：Aim
破译密码： 。 2、SET TALK OFF I＝1
DO WHILE I＜＝3 J＝I
25