文档介绍：循环控制语句是基本流程控制语句之一。VB提供三种不同风格的循环语句:………-Next循环结构通常用于事先已知循环次数,可使用For-Next循环结构形式如下:Forv=e1Toe2[Stepe3] …… [ExitFor] ……Nextvv是循环控制变量,整型或单精度型;,e2为终值,,、终值及步长变量=变量+步长TFFori=1to10step2printi;Nextiprint"i=";iFori=9to1step-2printi;Nextiprint"i=";i循环次数:?次退出循环后循环变量值?)循环变量的初值、终值及步长只在进入For循环时计算一次。例题:a=5:b=10:c=2Fork==3printkNextk2)For-Next循环的正常循环次数可用以下公式:正常指在循环体内不给循环变量重新赋值。循环次数=Int((终值-初值)/步长)+1对上例循环体中加条语句i=i+1则属于非正常执行循环体循环变量超过终值循环变量赋初值计算初值、终值及步长变量=变量+)循环变量和循环参数(初值、终值或步长)的类型不一致,先将表达式的最后结果转换为循环变量的类型,再执行循环。单精度实数赋给整型变量---四舍五入DimxasintegerForx=:mand1_Click()DimiAsInteger,nAsIntegerFori=0To50i=i+3n=n+1Ifi>=Str(n)()DimStrNAsString,Str1AsString,Str2AsStringDimiAsIntegerStr1=""Fori=Len(Str1)To1Step-2Str2=Mid(Str1,i-1,2)StrN=StrN&()DimpAsInteger,iAsIntegerp=1Fori=1To5p=p+2/iPrintpIfp>=5ThenExitForNextiPrinti;pEndSubFORk=1TO3SELECTCASEkCASE1a=3CASE2a=2CASE3a=1ENDSELECTPRINTa;(忌记录代码,应跟着思考)【例2】用FOR循环求1+2+3+…+100【例1】输出所有的水仙花数。要求按以下格式将结果显示在列表框中:思考-循环编程主要解决的问题重复执行的操作是什么?重复执行次数的控制?【例3】猴子吃桃问题。猴子第一天摘下若干个桃子,当即吃了一半,还不过瘾,又多吃了一个。第二天早上又将剩下的桃子吃掉一半,又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时,就只剩一个桃子了。求第一天共摘了多少桃子。