(1)编写程序VF,求200以内奇数的个数.-搜答案-大师作文网

cleardimea(3)a=0fori=1to3input"请输入第"+alltrim(str(i))+"个数"toa(i)endform=a(1)fori=2to3ifa(i)>mthenm=a(

clearsettalkoninput"请输入一个数:"tonifn%2=0?"这是一个偶数!"else?"这是一个奇数!"endifsettalkon

s=0fori=1to1000step2s=s+iifs>1000?s-iexitendifendforreturn

s=0k=1whilei

clears=0t=0fori=1to100step1ifi%5=0thens=s+it=t+1endifnexti?s,t

clearinput"请输入x的值："toxdocasecasex=2andx10y=-3*xendcase"y的值是：",y

clears=0fori=1to500ifi%6=0andi%7=0s=s+iendifendfor"1-500既能被6整除又能被7整除的数之和是：",s

s=0fori=1to100ifmod(i,5)=0s=s+iendif再问：能把源程序写出来吗？我是帮别人做的，我不会vf的语法，谢谢了……

clears=0fori=1to200step2s=s+iendfor"200以内所有奇数的和:",s

n=""@2,10say"计算n个数的平均值,先输入数值个数n"getnpicture"999999"readn=val(n)DIMENSIONx(n)store0toxs=0fori=1ton@4,

s=0k=0fori=1to100s=s+iifi%2=0k=k+iendifendfor?"s=1+2+3++100=",s?"1-100的偶数和：",k

这个可以这样做~cleara=rand(10,1);%产生一组随机数b=rand(10,1);%产生另一组随机数b=b-(dot(a,b)/dot(a,a)).*a;%可以使用施密特正交化的方法转化d

clears=0input"请输入N的值："tonfori=1tonk=2*i-1r=1forj=1tokr=r*jendforp=1/rs=s+pendfor?"1/1!+1/3!+1/5!+.+1

*1）有一个数列.前两个数是1,1,第三个数是前两个数之和,以后的每个数都是其前两个数之和.请编写程序,要求输出次数列的前30个数.CLEARDIMENSIONa(30)a[1]=1?"1",a[1]

lnSum=0fori=1to10lnTemp=1forj=1toilnTemp=lnTemp*jEndforlnSum=lnSum+lnTempendfor?lnSum再问：能不能用最基本的VF知识

clears=0fori=1to100k=i+1s=s+i*kendfor"1*2+2*3+3*4+4*5+…+100*101=",s

clear?"1~1000之内的同构数有："fori=1to1000k=i*im=len(alltrim(str(i)))if(k-i)%(10^m)=0?iendifendfor再问：alltrim

clears=1fori=1to100s=s*iendfor"1x2x3x4x.x100=",s

clear清楚屏幕store10toa定义a为10store20tob定义b为20setudfparmstoreference命令来强制改变自定义函数的参数传递方式按地址传递doswapwitha,(

inputtoNFORi=1tonifmod(i,7)=0?iENDifENDFo