vb编程实现循环求和1到100

你好,可以这样编程]#includeintmain(){inti,sum=0;//定义循环变量和存放求和的变量sumfor(i=1;i

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

Private Sub Command1_Click()    Dim i As Integer &

1.阶乘函数：FunctionFactorial(nAsLong)AsLongIfn=1ThenFactorial=1ElseFactorial=n*Factorial(n-1)EndFunction

Subtest()DimiAsInteger'声明i是整数变量Fori=1To10'循环1到10Cells(i,1)=i'赋值NextEndSu

1su=0;fori=1:100ifmod(i,5)==0su=su+i;endendfprintf('所求和为：%d',su);2a=1;b=10;disp('x(1)=1\nx(2)=10');f

#includeusingnamespacestd;intmain(){intsum=0;for(inti=1;i

你确定n是22吗?如果N是22,那这个式子无规律可循,您需要把省略的内容贴出来.这样,我说个思路,您看看是不是这样当n为偶数时,sn=1+1/3+1/5+1/7+.+1/（n-1）+1/n当n为奇数时

PrivateSubCommand1_Click()Dimi,sAsIntegers=0Fori=1To100IfiMod3=0OriMod7=0Thens=s+1EndIfNextiPrintsEn

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

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

#includeintmain(){\x09inti,sum=0;\x09for(i=1;i

代码如下：dimi,a(100)asintegerrandomizefori=0to99a(i)=int(rnd*(100-1+1))+1'这是一个公式,next

1.不明白你是什么意思2.逆序输出PrivateSubText1_Change()Text2=Right(Text1,1)&Left(Text1,1)EndSub3.华氏转摄氏PrivateSubTe

DimsumAsLongDimiAsIntegerDimnAsLongn=InputBox("n=","输入")Fori=1Tonsum=sum+i^2NextiDebug.Printsum

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton

vara,b,c,x,y:integer;beginread(a)whilea0dobeginifa