用电脑Vf编程1 1 2 2 3 3 5

clearinput"请输入第1个数："toainput"请输入第2个数："tobc=min(a,b)dowhilec>0ifa%c=0andb%c=0s=cexitendifc=c-1enddo?"

store0tosume,sumofori=100to1000ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"100~1000偶数累加和=

gs=0"1-6中的所有两位数为："forn=1to6fork=1to6sj=n*10+kgs=gs+1sjendfendf"1-6中的所有两位数个数为：",gs

clears=1input"请输入n的值："tonfori=2tonk=(-1)^im=k/is=s+mendfor"s=1+1/2-1/3+1/4+...+1/n",s

***1-100能被3整除的所有奇数之和s=0FORi=1TO100\x05IFMOD(i,3)=0ANDMOD(i,2)0\x05\x05s=s+i\x05ENDIFENDFOR"s="+ALLTR

clears=0fori=1to10m=1forj=1toim=m*jendfors=s+mendfor?"S=1!+2!+3!+…10!=",s

现在命令窗口输入：modifycommandqh让后在弹出了窗口中输入：clearstore0tosfori=8to100ifmod(i,8)=0s=s+iendifendfor"10到100之间的所

SETTALKOFFS1=0S2=1FORi=1TO100IFmod(i,2)=1S1=S1+iELSES2=S2*iENDIFENDFORs1,s2再问：亲，我把上面的复制到了软件里为什么会显示“找

clearfori=500to1000ifi%26=0?iendifendfo

s=0fori=1to1000step2s=s+i^2endfo

x=""@2,10say"输入任意一个正整数"getxpicture"999999999999999"readlx=len(alltrim(x))lx=alltrim(str(lx))@4,14say

clearinput"请输入x的值："toxs=0dowhilex>0m=x%10s=s+mx=(x-m)/10enddo?"s=",s再问：x=(x-m)/10这步是什么意思？再答：就是逐步减少，你

clears=0input"n="tonfori=1tonk=1forj=1toik=k*jendfors=s+kendfor?"s=1!+2!+3!+4!……+n!=",s

clears=0fori=1to100ifi%3=0s=s+iendifendfor"100以内所有能被3整除的整数的和是：",s

（1）题程序如下：settalkoffs=0i=1dowhilei

1.clearInput"请输入圆的半径"toc=3.14*r*2s=3.14*r*r?"圆的周长为：",c,"圆的面积为:",sreturn2.clearinput"请输入计程车公里数"towifw

在循环语句dowhil或for中使用,返回到循环语句的开始部分.如,dowhile--enddo循环,遇到loop跳回到dowhile语句接着判断,见下例：DOWHILE.T.\x09.**（省略）\

clearfori=1to100k=sqrt(i)alltrim(str(i))+"的平方根是：",kendfo

clears=0fori=1to100step2s=s+iendfor"100以内奇数之和是：",s

clearinput"n="tons=1fori=1tons=s*iendfor"n!=",s