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

《【北邮】vfp上机指导综合实验代码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1use成绩表replall平均分with(计算机+英语+数学)/3use2CLEARFOR1=1TO5@i,lSAYLEFT(”12345“,I)NEXT3clearfori=lto5@i,isayreplicate(chr(i+64),5)Next4clearused:教学工作2011年第一学期vfp综合实验第4套学生.dbfi=0j=0scanif少数民族否theni=i+lelsej=i+iendifendscan?”少数民族人数为：”,i?”非少数民族人数为：”,j5clearinput"Vr输入第1个数：”toalmax=almin=alsum=alfor

2、i=2to10i叩ut”请输入第”+str(i,l)+”个数："toaifmaxathenmin=aendifsum=sum+a??anexti?”平均值为：”,sum/10?”最大值为:",max?”最小值为:u,min1clear?”100以内的所有索数为：”,2fori=3to100forj=2toiifi%j=Oexitendifnextlfj>=l??iendifnext2clearxl=0x2=0x3=0use图书销售表dowhile!eof()if书店名二”唐人书店”xl=xl+销售额endifif书店名=”南大书店”x2

3、=x2+销售额endifif书丿占名二”吉大书店“x3=x3+销售额endifskipenddo?“唐人书店销售总额为:?“南大书店销售总额为:n,x2?“吉大书店销售总额为:use3clearfori=lto4@i,5-isayreplicate(substrC，1234H,i,l),2*i-l)nexti4clearcloseallnl=0n2=0sum1=0sum2=0use学生scanif性别二”男”suml=suml+年龄nl=nl+lelsesum2=sum2+年龄n2=n2+lendifendscan丫男同学的平均年龄M,int(suml/nl)丫女同学的平均年龄M

4、,int(sum2/n2)1clears=0fori=lto10s=s+(-l)A(i+l)*l/inexti?s2clearusercdainpu「请输入姓名：”(oxlocatefor姓名=xiffound()dispelse?“查无此人“endifuse3clears=0fori=lto100s=s+l/(2*i*(2*i-l))nexti?s4cleari叩ut”请输入一个整数：”tonP=1s=0fori=ltonp=p*is=s+l/pnexti?s5cleardimensiona(20)a(l)=la(2)=l?a(l),a(2)fori=3to20a(i)=a(i

5、-l)+a(i-2)??a(i)nexti1clearfori=3000to4000if(i%4=0andi%l(X)!=0)or(i%100=0andi%400=0)?「是闰年“endifnexti2cleardimensiona(10)input"请输入第一个数”toa(l)max=a(1)min=a(l)fori=2to10input”请输入数"toa(i)ifa(i)>maxmax=a(i)end讦ifa(i)

6、ori=lto10input"请输入数”toa(i)nextifori=lto9fbrj=i+lto10ifa(i)

7、plateMthisform.refresh2locatefor姓名=this.valuethisform.refresh5skipthisform.refreshskip-1thisform.refresh6docasecasethisform.optiongroupl.value=1thisform.grdstudent.recordsource=nselect*fromstudentwhere姓=thisform.textLvalueintocursortempncaset