VF常见20道编程题.doc

《VF常见20道编程题.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1、求解AX^2+BX+C=0的根、其中A、B、C三个参数由键盘输入。一元二次方程的求根公式是：X=-b±√b²-4ac/2acleartext一元二次方程求解ax^2+bx+c=0endtextinput"请输入a的值："toainput"请输入b的值："tobinput"请输入c的值："tocm=b*b-4*a*cifm>=0x1=(-b+sqrt(m))/(2*a)x2=(-b-sqrt(m))/(2*a)?"x1的值是：",x1?"x2的值是：",x2else?"此方程无实根!"endif2、编写程序将1-100之间所有能被7和3整除的整数输出clearfori=1to100ifi%3

2、=0andi%7=0??iendifendfor3、编写程序计算e，e的近似值计算公式为：e=1+1/1!+1/2!+1/3!+...+1/n!，直到1/n!<0.000001为止cleare=1n=1dowhile.t.k=1fori=1tonk=k*iendform=1/ke=e+mifm<0.000001exitendifn=n+1enddo?"e=1+1/1!+1/2!+1/3!+…+1/n!=",e4、编写程序，计算1！+2！+3！+.......N!=？clearinput"请输入n的值："tons=0t=1fori=1tont=t*is=s+tendfor?"1！+2！+3！+.

3、......N!=",s5、从键盘输入十个数，将它们进行降序排列。cleardimea(10)fori=1to10input"请输入一个数："toa(i)endfor?"降序排列为："fori=1to9forj=i+1to10ifa(i)

4、dforendfor（2）*************************clearfori=1to5?space(5-i)forj=1to2*i-1??"*"endforendfor7、编写一个程序产生一个有20项的Fibonacci数列并输出。注：Fibonacci数列的前两项为1，从第三项开始每一项是其前两项只和。cleara=1b=1??a,bfori=1to18c=a+ba=bb=c??cendfor8、九九乘法表clearfori=1to9forj=1toi??alltrim(str(i))+"*"+alltrim(str(j))+"="+alltrim(str(i*j))+sp

5、ace(3)endfor?Endfor9、显示1－100之间的所有素数，并求它们的和。clears=0??"1到100之间的素数为："fori=2to100x=0forj=2toi-1ifi/j=int(i/j)x=1endifendforifx=0??alltrim(str(i))+""s=s+iendifendfor?"它们的和是：",s10、求100到999之间的水仙花数。clear?"100-999之间的水仙花数有："fori=100to999k=int(i/100)m=(int(i/10))%10n=i%10ifk^3+m^3+n^3=i??alltrim(str(i))+space

6、(2)endifendfor11、从键盘输入10个数，找出其中的最大数和最小数。clearinput"请输入第1个数："toak=afori=2to10input"请输入第"+alltrim(str(i))+"个数："tobifabk=bendifendfor?"其中最大的数是：",a?"其中最小的数是：",k12、从键盘输入一个字符串，统计其中各个字符的个数，包括数字，大小写英文字母和特殊字符。clearaccept"请输入一串字符："toxstore0todyw,xyw,kg,sz,qtm=len(x)fori=1tomx1=substr(x,i,1)k=asc

7、(x1)docasecasek=32kg=kg+1casek>=48andk<=57sz=sz+1casek>=65andk<=90dyw=dyw+1casek>=97andk<=122xyw=xyw+1otherqt=qt+1endcaseendfor?"其中空格有："+alltrim(str(kg))+"个"?"大写字母有："+alltrim(str(dyw))+"个"?"小写字母有："+al