打印本文   关闭窗口

计算机二级VF程序设计的实例

作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:52:13  文章录入：杜斌  责任编辑：杜斌

（一） 随机出10道100以内的整数加减法算数题 clear ts=1 do whie ts<=10 czf=iif(rand()>0.5,"+","-") num1=rand()*100 num2=rand()*100   if =czf="+"   if num1+num2>100     loop   else      if num1<num2       loop     endif   endif  ?"("+str (ts,2)+")"+” “+str (num1,2)+czf+str(num2,2)+"=” ts=ts+1 enddo   （二）  计算1，1/2，1/3...1/n之和,当<0.001时停止 set decimal +0 2 n=1 nsum=0 do while .t. if 1/n <0.001   exit endif nsum=nsum+2 n=n+1 enddo wait windows "该系统之和为"+ （三） 计算生肖自定义函数sx() function sx arameters nyear local n,csx csx="羊猴鸡狗猪鼠牛虎兔龙蛇马" if parameters()=0 nyear =year(date()) endif  n=mod(nyear,12)         return substr (ncsx,2+"N"+1,2) endfunc （四） 计算 S=1!+2!+3!+4!+5!+6!+7!+8!+9! s=0 for i=1 to 9   s=s+fjc(i) endfor ?s function fjc parameters x p=1 for n=1 to x   p=p*x endfor return p endfunc

打印本文   关闭窗口