【正文】
all for 政治面目=團員 to tuanyuancount all for 政治面目=群眾 to quanzhongsele 4appe blan repl 班級 with banji,男 with man,女 with woman,黨員 with dangyuan,團員 with tuanyuan,群眾 with quanzhong,少數(shù)民族 with minzu***********FOUND**********sele 3 banji=left(學號,2)count all for 性別=男 to mancount all for 性別=女 to womancount all for 民族漢 to minzucount all for 政治面目=黨員 to dangyuancount all for 政治面目=團員 to tuanyuancount all for 政治面目=群眾 to quanzhongsele 4***********FOUND**********appe blank repl 班級 with banji,男 with man,女 with woman,黨員 with dangyuan,團員 with tuanyuan,群眾 with quanzhong,少數(shù)民族 with minzuclose databaseset talk onreturn3.**【程序改錯】**題目:,如果有則顯示該職工的* 工資和職稱,否則顯示查無此人!。**注意:不可以增加或刪除程序行,也不可以更改程序的結構。*SET TALK OFFUSE RSHXM=趙紅LOCATE FOR 姓名 = XM***********FOUND**********IF BOF() 改成eof() WAIT 查無此人! ELSE***********FOUND********** ? 工資,職稱ENDIFUSE SET TALK ONRETU4.**【程序改錯】**題目:計算出130以內(包含30)能被5整除的數(shù)之和。**注意:不可以增加或刪除程序行,也不可以更改程序的結構。*SET TALK OFFCLEARX=0**********FOUND**********y=0DO WHILE .T. X=X+1 DO CASE CASE MOD(X,5)=0 Y=Y+X CASE X=30**********FOUND********** loop CASE x30**********FOUND********** exit ENDCASEENDDO?YSET TALK ONRETU5.* *【程序改錯】**題目:首先把b所指字符串中的字符按逆序存放, 然后將a所指字符* 串中的字符和b所指字符串中的字符, 按排列的順序交叉合* 并到c所指字符串中,過長的剩余字符接在c所指字符串的尾* 部。 * 例如,當a所指字符串中的內容為abcdefg,b所指字符串* 中的內容為1234時,c所指字符串中的內容為a4b3c2d1efg* ; 而當a所指字符串中的內容為1234,b所指字符串* 中的內容為abcdefg時,c所指字符串中的內容該為* 1g2f3e4dcba。**注意:不可以增加或刪除程序行,也不可以更改程序的結構。*set talk offcleara=abcdefgb=1234c=m=len(a)n=len(b)if len(a)len(b) for i=1 to m ***********FOUND********** c=c+subs(a,i,1)+subs(b,n+i+1,1) subs(b,ni+1,1) endforelse***********FOUND********** for i=1 to m for i=1 to n c=c+subs(a,i,1)+subs(b,ni+1,1) endfor***********FOUND**********endf endif ? cSET TALK ONRETU6*題目:,其中學號字段的前兩位是班號。* :選擇所有少數(shù)民族(非漢族)的學* 生參加某項活動,按民族的拼音次序升序排列,同民族的按* 照學號升序排列,并為之生成編號。編號的前兩位是班號,* 后兩位是統(tǒng)一新編序號。并將學號、編號、姓名、性別和* 民族添加到數(shù)據(jù)庫文件BS中。**注意:不可以增加或刪除程序行,也不可以更改程序的結構。*SET TALK OFFSET SAFETY OFFstor 0 to numstor to bianhaosele 2use std***********FOUND**********index on 民族,學號 to 民族+學號sele 1use bszapsele 2do while .not. eof()***********FOUND********** if 民族=漢 民族漢 num=num+1***********FOUND********** bianhao=學號 +NUM left(學號,2) +str(NUM,2) SELE 1 APPE BLAN repl 學號 with b學號,編號 with bianhao,姓名 with b姓名,性別 with b性別,民族 with b民族 endif sele 2 skipenddoCLOSE DATABASESET TALK ONRETURN(三)程序設計1.**【程序設計】**題目:編程求出1*1+2*2+......+n*n=1000中滿足條件* 的最大的n。* 將結果存入變量OUT中。* 請按照題目要求,在下面編寫程序代碼。 *SET TALK ONSET LOGERRORS ONOUT=1**********Program**********Sum=0N=0 Do while sum=1000 N=n+1 Sum=sum+n*nEnddo Out=n1********** End **********DO YZJ WITH OUTSET LOGERRORS OFFSET TALK OFF