程序設計實作試題(一)

1、（一）閱讀程序 XSqk.dbf表記錄如下：學號 姓名 性別 出生日期 團員否 入學成績050601 王小梅 女 02/02/87 T 480.0050602 劉毅 男 10/02/86 F 455.0050603 李小芳 女 11/15/86 F 460.0050604 朱丹 女 03/07/87 T 510.5050605 劉志強 男 05/01/86 F 465.0050606 王強 男 07/06/86 T 508.51、use xsqk Age=0 Do while not eof() If 性別=“男” Age=age+（year(date()-year(出生日期) Endif S

2、kipEnddo?str(age/reccount(),4,1)輸出結果為：2、use xsqk Scan If val(substr(學號,6)%2=0 Loop Else ?姓名 Endif Endscan輸出結果為：3、Clear Use xsqk ScanIF Not 團員否 and 入學成績1986 into table xs Use xsS=0Do while not eof() S=s+入學成績 SkipEnddoUse?”s=”,Str(s,6,1)程序的運行結果為：6、clear Use xsqk Index on 學號 tag xh descGo topStore 0 to

3、 sFor n=1 to 3 S=s+入學成績 I=i+2 SkipEndfor?“s=”+str9s,5,1)Use程序運行結果為：7、use xsqk Dele for len(allt(姓名)=0 PackScanIf len(allt(姓名)4 ? 姓名EndifEndscanuse程序運行結果為：8、clear N=1X=Mm=”計算機教研組”Do while n=len(mm)-2 M=substr(mm,n,2) X=m+x N=n+2EnddoX=substr(mm,n)+x?破譯密碼為:+x程序運行結果為：9、在銷售表xsb中，有銷售員C（6）、銷售額N（10，2）和服務態(tài)度

4、C（1）等字段，記錄如下：銷售員 銷售額 服務態(tài)度張圣職 3000 A李紅 5000 A楊華 1000 C劉國強 8000 A李小杰 2000 BUse xsbStore 0 to n,kScan If 服務態(tài)度n N=年齡Endif Endscan ?“年齡為：”+str(n,3) use 程序運行結果為：（四）閱讀程序1、設有一數據表rs.dbf，其結構和記錄內容如下表所示，執(zhí)行如下命令序列：職工號姓名性別出生日期職稱基本工資001敖開明男07/15/63副教授650002李國軍男12/22/68講師550003李宗云女05/26/63副教授650004陳鄭軍男10/07/76助教450005李明明女06/20/67講師550006吳建國男08/16/60教授8201、Use rsIndex on 職稱 tag zc unique descendingBrowse fields 姓名,職稱在瀏覽窗口中顯示的最后一條記錄是：_2、Use rsDo while not eof() If 性別=”男” and 出生日期1963-10-10 Xm=姓名 Csrq=出生日期 ExitEndifSkipEnddoY=year(date()-year(csrq)If not eof() ?xm,yEndifUse3、Select * from rs where 職稱=”副教授” ;