【北邮】vfp上机指导 综合实验代码.docVIP

1??use?成绩表repl?all?平均分?with?(计算机+英语+数学)/3use2??CLEARFOR?I=1?TO?5@i,1?SAY?LEFT(12345,I)NEXT3??clearfor?i=1?to?5@i,i?say?replicate(chr(i+64),5)Next4??clearuse?d:\教学工作\2011年第一学期\vfp\综合实验\第4套\学生.dbfi=0j=0scan???if?少数民族否?then??i=i+1??else??j=j+1??endifendscan?少数民族人数为：,i?非少数民族人数为：,j5??clearinput?请输入第1个数：?to?a1max=a1min=a1sum=a1for?i=2?to?10input?请输入第+str(i,1)+个数：?to?aif?maxa?thenmax=aendifif?mina?thenmin=aendifsum=sum+a??anext?i?平均值为：,sum/10?最大值为：,max?最小值为：,min6??clear?100以内的所有素数为：,2for?i=3?to?100??for?j=2?to?i??if?i%j=0???exit??endif???next????if?j=i??????i???endifnext7??clearx1=0x2=0x3=0use?图书销售表do?while?!eof()????if?书店名=唐人书店??????x1=x1+销售额????endif????if?书店名=南大书店??????x2=x2+销售额????endif????if?书店名=吉大书店??????x3=x3+销售额????endif??skipenddo?唐人书店销售总额为：,x1?南大书店销售总额为：,x2?吉大书店销售总额为：,x3use????8??clearfor?i=1?to?4??@i,5-i?say?replicate(substr(1234,i,1),2*i-1)next?i9??clearclose?alln1=0n2=0sum1=0sum2=0use?学生scan???if?性别=男???sum1=sum1+年龄???n1=n1+1???else???sum2=sum2+年龄???n2=n2+1???endifendscan?男同学的平均年龄,int(sum1/n1)?女同学的平均年龄,int(sum2/n2)10??clears=0for?i=1?to?10??s=s+(-1)^(i+1)*1/inext?i?s11??clearuse?rcdainput?请输入姓名：?to?x???locate?for?姓名=x???if?found()???disp???else????查无此人???endifuse12??clears=0for?i=1?to?100??s=s+1/(2*i*(2*i-1))next?i?s13??clearinput?请输入一个整数：?to?np=1s=0for?i=1?to?n???p=p*i???s=s+1/pnext?i?s14??cleardimension?a(20)a(1)=1a(2)=1?a(1),a(2)for?i=3?to?20??a(i)=a(i-1)+a(i-2)????a(i)next?i15??clearfor?i=3000?to?4000??if?(i%4=0?and?i%100!=0)or(i%100=0?and?i%400=0)?????i,是闰年??endifnext?i16??cleardimension?a(10)input?请输入第一个数?to?a(1)max=a(1)min=a(1)for?i=2?to?10?input?请输入数?to?a(i)?if?a(i)max?max=a(i)?endif?if?a(i)min?min=a(i)?endifnext?i?max,minreplace?all?平均分?with?(计算机+英语+数学)/318??cleardimension?a(10)for?i=1?to?10??input?请输入数?to?a(i)next?ifor?i=1?to?9???for?j=i+1?to?10????if?a(i)a(j)??????t=