用for循环和do-loop两种循环求自然对数e的近似值-搜答案-搜搜做题作业网

懂英语不?Do做,While当……时,Loop循环,Until直到……时.所以：DoWhile...Loop：当……时候做XX且循环（先判断条件是否满足,若【满足】,则进入循环,即可能不进入循环）Do

都是循环语句,之间都可以相互转换的,至于选择什么情况下选什么样的循环,就随便你了,一般是尽量选择简便的,先和你说一下各个循环的情况吧1.fori=1to10next'这里next的作用是返回到for循

PrivateSubForm_Click()Dima(10),b(10),c,d,i,j,NumAsIntegerc=0d=0RandomizeFori=1To10Num=Int(Rnd*10+1)I

i=100dowhilei

dimheaslong,naslonghe=0n=1dohe=he+nn=n+1loopuntilln>100msgbox"累加和是："&he‘以上是VB的写法.

PrivateSubForm_Click()DimnAsLong,m,k,jAsLong,iAsLongOnErrorGoToerrn=InputBox("请输入一个整数：")m=0Forj=1Ton

PrivateSubCommand1_Click()DimmAsLong,nAsLong,tAsLongm=Val(Text1.Text)n=Val(Text2.Text)'两个文本框中分别输入整数m

PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimi

给你做到第4题吧：Private Sub Command1_Click() Dim i As Long,

For---next,在循环变量控制下,循环若干次DoWhile---Loop,在满足条件下进入循环,不满足时,退出循环

'a是你的精度.b是最终结果i是循环变量ConstpiAsDouble=3.14159PrivateFunctionGetPi(ByValaAsDouble)DimbAsDouble,iAsLongD

//用whileinti=1,sum=0;while(i

do…while循环语句总能保证循环体被执行一次,其形式如下：do{Statement;}while(expression);注意,在do…while循环结构中,while语句的括号内指定循环的条件,

请参阅我的一个回答：

dimhe,ihe=0i=1dountili>1000ifimod70thenhe=he+iendifi=i+1loopmsgboxhe'dimhe,ihe=0i=1whilei

这样算的：ijx1123134145156167178189191022352462572682792810

刚写的:DimiAsInteger,jAsIntegeri=1:j=iDoUntili=10j=1DoUntilj=i+1Printj&"*"&i&"="&i*j,j=j+1LoopPrinti=i+

LZ不妨这样理DoWhile为当（）时即（）里的条件成立时循环开始到Loop继续下一个循环Dountil为直到（）时也就是说只有（）里的条件不成立时开始循环到Loop继续下一个循环Do...loopu

dimsumaslongfori=1to999sum=sum+i^2nextmsgboxsumdimi,sumaslongdowhilei

第1题hjs=0i=1dowhilei