文档介绍:*,重复执行某些操作。例如,按照人口某增长率,对人口增长统计;根据各课程的学分、绩点和学生的成绩,统计每个学生的平均绩点等。这类问题都可通过循环结构来方便地实现。VB中提供了主要的两类循环语句:For循环语句(一般已知循环次数);Do条件型循环语句(一般未知循环次数).*。 For循环变量=初值To终值[Step步长] 语句块[ExitFor] 语句块 Next[循环变量]循环变量必须为数值型。循环次数>0初值<终值=1时,可省略<0初值>终值=~100的奇数和Dimi%,sum%Fori=1To100Step2sum=sum+iNextiMsgBox(sum)*For循环语句循环流程:(1)循环变量被赋初值,它仅被赋值一次。(2)判断循环变量是否在终值内,如果是,执行循环体(语句块);如果否,结束循环,执行Next的下一语句。(3)循环变量加步长,转到步骤(2):在ASCII码中,空格到“~”是可显示的字符(其余为不可显示的控制字符),编码值为32~126。Chr()函数将ASCII码值转换成字符。程序如下:SubForm1_Load(……),="ASCII码对照表"&vbCrLfFori=&=Chr(i)&"="&i- &Space(8-Len(CStr(i)))j=j+1Ifj=7Thenj=0'&=vbCrLf'换行EndIfNextiEndSub*…Loop循环语句用于循环次数未知的循环结构。形式1:Do{While|Until}<条件>语句块[ExitDo语句块]Loop形式1为先判断后执行,有可能一次也不执行;形式2为先执行后判断,至少执行一次。形式2:Do语句块[ExitDo语句块]Loop{While|Until}<条件>*Do…Loop流程*,%计算,多少年后我国人口超过26亿。解此问题两种方法,可根据公式:直接利用标准函数对数可求得,但求得的年数不为整数;也可利用循环求得。SubButton1_Click(……)%,m!,x!x=13n=0DoWhilex<26x=x*=n+(“用循环求得的年数为:"&n&"人数为:"&x)m=(2)/()'利用对数函数求得IfInt(m)<>mThenm=Int(m)+("用对数求得的年数为:"&m)EndSub*。求最大公约数的算法思想:(1)对于两数m,n,使得m>n(2)m除以n得余数r(3)若r=0,则n为最大公约数,结束;否则执行(4)(4)mçn,nçr,再重复执行(2)Ifm<nThent=m:m=n:n=tr=mmodnDoWhiler<>0m=nn=rr=mmodnLoopSubButton1_Click(……)=InputBox("输入n1")  m1=InputBox(“输入m1”)  Ifm1>n1Then          ‘比较m1,n1变量,使得m>n     m=m1:n=n1         Else     m=n1:n=m1  EndIf  Do     r=mModn     m=n     n=r  LoopWhile(r<>0)  (m1&","&n1&"的最大公约数为"&m)  ("最小公倍数="&m1*n1/m)EndSub