VF计算1 2 3 ..... 100的和
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/20 14:31:14
store0tosume,sumofori=1to100ifi%2=0sume=sume+i&&偶数累加elsesumo=sumo+i&&奇数累加endifnext"1~100偶数累加和=",sume
1、计算50—100之间数的和.clears=0fori=50to100s=s+iendfor?"50—100之间数的和:",s2、计算200以内自然数奇数与偶数的平方和之差.cleara=0b=0f
s=0k=1whilei
现在命令窗口输入:modifycommandqh让后在弹出了窗口中输入:clearstore0tosfori=8to100ifmod(i,8)=0s=s+iendifendfor"10到100之间的所
没有直接的函数,dow函数1-8,如果是星期日就是1,星期一,就显示2类推可以自己写函数来调用cdow是英文的如cdow(date())如果今天是星期三,就显示
假设求a开8次方写成:a^(1/8)依此类推
1、clears=0fori=1to100ifi%3=0s=s+iendifendfor"1~100之间所有3的倍数之和:",s2、值太大,计算不出结果3、clears=0fori=1to100s=s
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
clears=0i=i+1dowhilei
在循环语句dowhil或for中使用,返回到循环语句的开始部分.如,dowhile--enddo循环,遇到loop跳回到dowhile语句接着判断,见下例:DOWHILE.T.\x09.**(省略)\
clears=0fori=2to100step2s=s+iendfo
PrivateSubCommand1_Click()DimiAsInteger,sAsLongFori=1To100IfiMod3=0OriMod4=0Thens=s+iEndIfNextiPrint
在命令中输入:x=7.5回车y=9.7回车xxxx=1+x/y回车xxxx屏幕显示结果
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
^,**,都是乘幂,优先级高于乘除,求余,27-6/3%8,27-2%8,2%8余数为2,所以结果是25
clearfori=1to100k=sqrt(i)alltrim(str(i))+"的平方根是:",kendfo
clears=1fori=1to100s=s*iendfor"1x2x3x4x.x100=",s
clearinput"n="tons=1fori=1tons=s*iendfor"n!=",s