资源描述：
《【北邮】vfp上机指导 综合实验代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、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 else1 use 成绩表repl all 平均分 with (计算机+英语+数学)/3
2、use2 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 else1 use 成绩表repl all 平均分 with (计算机+英语+数学)/3use2 CLEARFOR I=1 TO 5@i,1 SAY LEFT("123
3、45",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 "请输入第"+s
4、tr(i,1)+"个数：" to aif maxa 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 !eo
5、f() 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 clearcl
6、ose 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
7、 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 cl
8、earfor i=3000 to 4000 if (i%4=0 and i%100!=0)or(i%100=0 and i%400=0
