VF程序题库

1.从键盘上输入3个不同的数，将他们从小到大排序。inputa=toainputb=tobinputc=tocifabt=aa=bb=tendififact=aa=cc=tendififbct=bb=cc=tendif?a,b,c3.从键盘上输入一个数N，计算N的阶乘。settalkoffinput请输入n的值tons=1fori=1tons=s*iendfor?ssettalkonreturn5.求连乘数1*2*3*…..，当积大于720时退出程序。settalkoffs=1i=1dowhile.t.s=s*iifs720exitendifi=i+1enddo?s=,s2．求[1,100]内所有能被3或被5整除的数以及个数。settalkoffn=0fori=1to100ifmod(i,3)=0.or.mod(i,5)=0??in=n+1endifendforsettalkon?n4.求自然数5的阶乘。settalkoffs=1fori=1to5s=s*iendfor?ssettalkonreturn6.从键盘上任意输入2个数，然后这2个数从小到大显示输出。inputa=toainputb=tobifabt=aa=bb=tendif?a,bVF程序题库7.求最大值题目，从键盘上输入5个数，求最大的一个数。settalkoffinput请输入第一个数toxfori=2to5input请输入一个数toyifxyx=yendifendfor?xsettalkon9.求自然数1至100的和并输出。settalkoffs=0i=1dowhilei=100s=s+ii=i+1enddo?ssettalkonreturn11.从键盘输入10个数，将其中的奇数与偶数分别相加后输出。settalkoffcleai=1a=0j=0dimeno(10)dowhilei=10input输入整数：tomifm/2=int(m/2)a=m+aelsej=j+mendifi=i+1enddo?奇数和：,j,偶数和,a8.为自来水公司计算水费，如果用户水费不超过5吨，每吨0.8元；超过5吨，超出部分每吨1.4元。settalkoffinput请输入用水量towifw5x=0.8*welsex=0.8*5+(w-5)*1.4endif?应交水费为：+str(x)+元settalkonreturn10.求S=1！+2！+3！+…..N！cleas=1y=0input请输入N的值tonfori=1tons=s*iy=y+sendfor?yreturn13.用dowhile循环语句编写程序，实现功能为竖向输出显示“优秀学生”，横向显示“学生优秀”。settalkoffstore优秀学生toaclean=1dowhilen8?substr(a,n,2)n=n+2enddo?substr(a,5,4)??substr(a,1,4)settalkonreturn12.为鼓励存款，对定期存款时间少于1年的，利率为3%，等于或大于1年而少于三年的，利率为5%，等于或大于3年而少于5年的，利率为7%，五年以上的，利率为9%，请根据输入年限，确定利率。settalkoffnx=0@5,10say输入定期年限getnxreaddocasecasenx1ll=0.03casenx3ll=0.05casenx5ll=0.07otherwisell=0.09endcase@8,10sayllsettalkon15.分别计算200以内的所有奇数和偶数的和并输出。settalkoffcleax=0y=0fori=1to200ifmod(i,2)=0y=y+ielsex=x+iendifendfor?奇数之和为：,x?偶数之和为：,ysettalkonreturn14.求1/2+1/3+1/4+….1/100的和。settalkoffcleai=1n=2s=0dowhilen=100s=s+1/nn=n+1enddo?1/2+1/3+....+1/100的和是：,ssettalkonreturn16.用dowhile循环完成1-100之间所有能被13整除的数的个数t并求和s。settalkoffs=0t=0i=1dowhilei=100ifmod(i,13)=0t=t+1s=s+iendifi=i+1enddo?s,tsettalkon