vf编写程序1 2 3-- 100之和
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/21 13:11:47
input"请输入第一个数:"toainput"请输入第二个数:"tobinput"请输入第三个数:"toc?"最大值为:",max(a,b,c)
settalkoff&&关闭系统对话clear&&.清理内存,清屏k=1&&.赋初始值1给ks=0&&赋初始值0给sdowhilek10&&条件判断,满足条件执行exit退&&循环,返回主程序endd
clearsettalkoninput"请输入一个数:"tonifn%2=0?"这是一个偶数!"else?"这是一个奇数!"endifsettalkon
s=0k=1whilei
clears=0t=0fori=1to100step1ifi%5=0thens=s+it=t+1endifnexti?s,t
clearinput"请输入x的值:"toxdocasecasex=2andx10y=-3*xendcase"y的值是:",y
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
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]
迭加,把前一次算得的和作为后一次运算的一个加数,如S=0+1算得S=1,下一步S=S+2=1+2=3再问:FORi=100TO1step-2麻烦解释一下嘛再答:S初值应该是0吧,(1)S=100+0=
变量上带括号是值传递(单向传递),变量不带括号是地址传递(双向传递)再问:也就是说X的值就是3~对么?再答:对,X到子程序(过程)中值不变,而Y的值就会与A2一起变化
clears=0fori=1to100k=i+1s=s+i*kendfor"1*2+2*3+3*4+4*5+…+100*101=",s
什么样的年是闰年啊,我忘记了给你修改了下程序,注意ifthen和endif总是成对出现.Forendfor也是成对出现.而且endfor在VF里语法格式貌似是在一起的.set talk&nb
cleari=0dowhilei
inputtoNFORi=1tonifmod(i,7)=0?iENDifENDFo
clearinput"请输入圆的半径:"torl=2*pi()*rs=pi()*r*r?"周长是:",l?"面积是:",s
input"输入角度值:"tojdhd=jd/180*pi()"角度转换为弧度值为:",hd