用VF计算S=1 2 - 100
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/14 06:26:52
store0tosume,sumofori=1to100ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"1~100偶数累加和=",sume
clears=1input"请输入n的值:"tonfori=2tonk=(-1)^im=k/is=s+mendfor"s=1+1/2-1/3+1/4+...+1/n",s
结果是2right("student",4)是指右边数4个字符即'dent'at是指这个字符表达式在另外一个字符表达式中出现的位置区分大小写at("en","dent")=2en在dent第二位置出现
s=0k=1whilei
clears=0m=0fori=1to22m=m+is=s+mendfor?"S=1+(1+2)+(1+2+3)+…+(1+2+3+4+…+22)=",s
没有直接的函数,dow函数1-8,如果是星期日就是1,星期一,就显示2类推可以自己写函数来调用cdow是英文的如cdow(date())如果今天是星期三,就显示
假设求a开8次方写成:a^(1/8)依此类推
s=0fori=2to100step2s=s+inext再问:宝贝给点详细点的好不直接把代码给我一下~谢谢!!!再答:这就是代码啊。。。你在vf的命令窗口键入:modicomm练习1在弹出的程序编辑器
简单,程序如下:cleam=0n=0sm=1sn=1s=0@4,4say'inputm'getmread@5,4say'inputn'getnreadfori=1tomsm=sm*iendforfor
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=0fori=2to100step2s=s+iendfo
迭加,把前一次算得的和作为后一次运算的一个加数,如S=0+1算得S=1,下一步S=S+2=1+2=3再问:FORi=100TO1step-2麻烦解释一下嘛再答:S初值应该是0吧,(1)S=100+0=
clears=0?"1到100之间的素数为:"fori=2to100x=0forj=2toi-1ifi/j=int(i/j)x=1endifendforifx=0?alltrim(str(i))+""
SETTALKOFF**关掉人机对话,就是屏幕不显示运行结果N=2**赋值语句S=0**赋值语句DOWHILEN
clears=1a=1b=1fori=1to9c=a+ba=bb=ck=a/bs=s+kendfor"s=1+1/2+2/3+3/5+.,前10项之和是:",s
clearfori=1to100k=sqrt(i)alltrim(str(i))+"的平方根是:",kendfo
clears=0fori=1to100step2s=s+iendfor"100以内奇数之和是:",s
1.input"请输入一个小于6,大于2的正整数:"tonifn=6"输入数据不符合要求,请重新运行程序再输入!"elses=0k=0dowhilk
用for循环计算inta=2;ints=0;for(inti=1;i