2、endifa=xb=yc=z?a,b,c3题：统计STUDENT.DBF数据表中法律系和中文系两个系的总人数和奖学金总额。表结构如下：学号(C,4)，姓名(C,6)，出生日期(D,8)，英语(N,3)，计算机(N,3)，系别(C,10)，奖学金(N,3)并将总人数存入变量R中,奖学金总额存入S中.（用循环语句完成）Usestudentdowhile.not.eof()if系别=”法律系”or系别=”中文系”r=r+1s=s+奖学金endifskipenddo?r,suse4题：编一程序打印一个数列，前两个数是0、1第三个数是前两个数之和，以后
3、的每个数都是其前两个数之和。编程输出此数列，并将第20个数的结果存入变量OUT中。P=0S=1Fori=3to20N=p+s?nP=sS=nEndforOut=n?out5题：判断整数是否为质数(只能被1和本身整除的数)。是质数则函数返回1，否则函数返回0Input“请输入一个数:”tonFori=2ton-1Ifmod(n,i)=0exitendifendforifi=nout=1elseout=0endif?out6题：用循环程序求出1-15之间数能被3整除的整的阶乘和将结果输出并存入变量OUT中。s=0fori=1to15ifmod(i
4、,3)=0p=1forj=1toip=p*jendfors=s+pendifendforOut=s?out7题：编程函数FUN(A)完成：从键盘输入任意一个数X时，求其相应的Y值。
5、1X>0Y=-
6、0X=0
7、-1X<0DocaseCasex>0Y=1Casex=0Y=0Casex<0Y=-1endcase?y8题：从键盘输入一个整数，输出所有能整除该数，并且本身也能被3整除的数的和。（例如：输入6，则输出3，6）结果存于变量x中。Input“请输入n的值：”tonFori=1tonIfmod(n,i)=0andmod(I,3)=0X=x+iE
8、ndifEndfor?x9题：利用循环程序输出图形：4333222221111111并将最后一行存入变量S中ForI=1to4Forj=1to4-i??”“EndforForn=1to2*i-1??str(5-I,1)Endfor?EndforS=”1111111”10题：利用循环程序输出图形：**************************并将第3行输出并存入变量S中Fori=1to5Ifi=1ori=5??”*******”ElseForj=1to5-i??”*”EndforForm=1to2*i-3??”“EndforForn=1t
9、o5-i??”*”EndforEndif?Endfor?”****”S=”****”11题：把输入一个三位数，各个数位按个、十、百位顺序拆开别输出存入变量Ｓ中，用加号分隔。如输入345分开后为3+4+5Input“请输入一个三位数”toni=int(n/100)j=int((n-i*100)/10)m=n-i*100-j*10s=str(i,1)+”+”+str(j,1)+”+”+str(m,1)?s12.题：用子程序求出1~15之间的能被3整除的整数的平方和。将结果输出并存入变量OUT中。S=0Fori=1to15Ifmod(I,3)=0S
10、=s+i*iEndifEndfor13.题：在STUDENT.DBF数据表中按照计算机和英语对奖学金做相应的修改：两科之和为120分以上（包括120）的每人30元；两科之和为100分以上（包括100）的每人20元；其他人10元。表结构如下：学号(C,4)，姓名(C,6)，出生日期(D,8)，英语(N,3)，计算机(N,3)，系别(C,10)，奖学金(N,3)（用循环语句完成）Dowhile.not.eof()DocaseCase计算机+英语>=120Replace奖学金with30Case计算机+英语<120and计算机+英语>=100Rep
11、lace奖学金with20OtherwiseReplace奖学金with10EndcaseSkipEnddoUse1、cleara="计算机等级考试"fori=1t
