2011编程题.doc

For i=1 to 3 ?space(3-i) For j=1 to 2*i-1 ??chr(119+i) Endfor Endfor For i=1 to 2 ?space(i) For j=1 to 5-2*i ??chr(122-i) Endfor Endfor Accept to s K=len(s) C=”” For i=1 to k R=substr(s,I,1) If r” “ C=c+r Endif Endfor ? c Use chengji.dbf Copy to progout.dbf Use progout.dbf Go top Scan If 计算机50 Repl 计算机 with 计算机*1.1 Else Repl 计算机 with 计算机*1.05 Endif Endscan Use Use 学生成绩表 Repl all 总分 with 数学+英语+计算机 Go top Maxi=总分 Mini=总分 Do while not eof() If maxi总分 Maxi=总分 Endif If mini总分 Mini=总分 Endif Skip Enddo Locate for 总分=maxi Disp Locate for 总分=mini Disp Use 参考期中考试题目中的答案。 Input to m Ma=0 Mb=0 Mc=0 K=int(m) If k0 Mc=mc+1 K=abs(k) Endif Ch1=alltrim(str(k)) Ma=len(ch1) N=abs(m) H=n-k Ch2=alltrim(str(h)) Mb=len(ch2)-1 P=len(ch2) Do while substr(ch,p,1)=”0” Mb=mb-1 P=p-1 Enddo Mc=ma+mb Input to n Input to x Store x to maxi,mini For i=1 to n-1 Input to x If maxix Maxi=x Endif If minix Mini=x Endif Endfor ? maxi*mini Use progin.dbf Do while not eof() If 成绩=90 Repl 等级 with “优” Endif If 成绩=80 and 成绩90 Repl 等级 with “良” Endif If 成绩=70 and 成绩80 Repl 等级 with “中” Endif If 成绩=60 and 成绩70 Repl 等级 with “及格” Endif If 成绩 成绩60 Repl 等级 with “不及格” Endif Skip Enddo Use Accept to s X=1 K=len(s) For i=1 to k C=substr(s,I,1) If mod(val(c),2)=1 x=x*val(c) endif endfor Input to x Use gzb.dbf Count to m for 工资x and xb=”男” Count to n for 工资x and xb=”女” Use Accept to st Ch=dz(st) ?ch Function dz Para x h=”” K=len(x) For i=1 to k P=substr(x,I,1) If p” “ h=p+h Endif Endfor Return h endfunc Input to d St=xx(d) ? st Function xx Para y Ch=”日一二三四五六” N=dow(y) K=substr(ch,2*n-1,2) Return k endfunc Use stud8.dbf Y=0 Scan If 系别=”外语系” and 是否团员 Y=y+1 Endif Endscan Use ? y Set talk off Clear dime a(10) for i=1 to 10 input a(+str(i,1)+)= to a(i) endfor for i=1 to 9 for j=i+1 to 10 if a(i)a(j) b=a(i) a(i)=a(j) a(j)=b endif endfor endfor ? for i=1 to 10 ?? str(a(i),6,2) endfor set talk on