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

1use成绩表replall平均分with(计算机+英语+数学)/3use2CLEARFORI=1TO5i,1SAYLEFT(12345,I)NEXT3clearfori=1to5i,isayreplicate(chr(i+64),5)Next4clearused:教学工作2011年第一学期vfp综合实验第4套学生.dbfi=0j=0scanif少数民族否theni=i+1elsej=j+1endifendscan?少数民族人数为：,i?非少数民族人数为：,j5clearinput请输入第1个数：toa1max=a1min=a1sum=a1fori=2to10input请输入第+str(i,1)+个数：toaifmaxathenmin=aendifsum=sum+a?anexti?平均值为：,sum/10?最大值为：,max?最小值为：,min6clear?100以内的所有素数为：,2fori=3to100forj=2toiifi%j=0exitendifnextifj=i?iendifnext7clearx1=0x2=0x3=0use图书销售表dowhile!eof()if书店名=唐人书店x1=x1+销售额endifif书店名=南大书店x2=x2+销售额endifif书店名=吉大书店x3=x3+销售额endifskipenddo?唐人书店销售总额为：,x1?南大书店销售总额为：,x2?吉大书店销售总额为：,x3use8clearfori=1to4i,5-isayreplicate(substr(1234,i,1),2*i-1)nexti9clearclosealln1=0n2=0sum1=0sum2=0use学生scanif性别=男sum1=sum1+年龄n1=n1+1elsesum2=sum2+年龄n2=n2+1endifendscan?男同学的平均年龄,int(sum1/n1)?女同学的平均年龄,int(sum2/n2)10clears=0fori=1to10s=s+(-1)(i+1)*1/inexti?s11clearusercdainput请输入姓名：toxlocatefor姓名=xiffound()dispelse?查无此人endifuse12clears=0fori=1to100s=s+1/(2*i*(2*i-1)nexti?s13clearinput请输入一个整数：tonp=1s=0fori=1tonp=p*is=s+1/pnexti?s14cleardimensiona(20)a(1)=1a(2)=1?a(1),a(2)fori=3to20a(i)=a(i-1)+a(i-2)?a(i)nexti15clearfori=3000to4000if(i%4=0andi%100!=0)or(i%100=0andi%400=0)?i,是闰年endifnexti16cleardimensiona(10)input请输入第一个数toa(1)max=a(1)min=a(1)fori=2to10input请输入数toa(i)ifa(i)maxmax=a(i)endififa(i)minmin=a(i)endifnexti?max,minreplaceall平均分with(计算机+英语+数学)/318cleardimensiona(10)fori=1to10input请输入数toa(i)nextifori=1to9forj=i+1to10ifa(i)maxmax=奖金endifendscanthisform.text1.value=maxendif11thisformset.form2.showthisformset.form1.hide12locatefor姓名=this.valuethisform.refresh13closealluse职工表dowhile!eof()ifthisform.text1.value=姓名andthisform.text2.value=密码domecd.mprexitendifskipenddoifeof()messagebox(用户名或密码有误！,0)endififthisform.label1.leftthisform.width-thisform.label1.widthn=0endififn=1thisform.label1.left=thisform.label1.left+5elsethisform.label1.left=thisform.label1.left-5endif14thisform.grd销售表.recordsourcetype=4thisform.grd销售表.recordsource=select*from销售表where书号=(select书号from图书表where书名=thisform.text1.value)intocursortempthisform.refresh15countallfor年龄25toxthisform.text1.value=xthisform.refreshthisform.grd学生表.recordsourcetype=4thisform.grd学生表.recordsource=select*from学生表where年龄25intocursortemplatethisform.refresh16clearthisform.grd成绩表.recordsource=select*from成绩表where班级=this.valueintocursortemplatecountallfor班级=this.valuetoxthisform.text1.value=xthisform.refreshreportform成绩报表18thisform.timer1.enabled=.t.thisform.timer1.enabled=.f.appendblankdeletepackskip-1ifbof()gobottomendifthisform.refresh19thisform.grd人员.recordsour