电子章循环结构

VisualBasic语言程序设计循环结构

循环结构For循环控制结构用于需要重复执行的语句.

格式：

For循环变量=初值To终值[Step步长] [循环体][ExitFor]Next[循环变量]

注意:

循环变量,用于控制循执行的变量.1.初值,终值,步长其值是数值表达式(可以是浮点数)2.初值小于终值,步长为正数.

初值大于终值,步长为负数.*

步长不能取值为0,如果步长为1,则可省略不写.

4.ExitFor用于提前退出循环过程.5.Next的循环变量和For循环变量一样,也可以不写.ForI=1to100step2sum=sum+INexti6.For循环执行步骤:(1).步长值为正值时

forI=1to10step2printinext

第一次执行时是把初值赋给循环控制变量,接着判断循环变量是否小于等于终值.

如果小于等于终值,就执行一次循环,否则跳出循过程.以后执行循环时,是把循环控制变量加上步长值,赋给循环控制变量,接着判断是否小于等于终值,满足条件就执行,不满足就不执行.

例:打印AAAAAAAAA(2).步长值为负值时

forI=10to1step-2printInext

第一次执行时是把初值赋给循环控制变量,接着判断循环变量是否大于等于终值.如果大于等于终值,就执行一次循环,否则跳出循过程.以后执行循环时,是把循环控制变量加上步长值,赋给循环控制变量,接着判断是否大于等于终值,满足条件就执行,不满足就不执行.先判断后执行的原则7.循环次数的确定:

循环次数=int((终值-初值)/步长)+1

在循环体内可以被引用或着赋值.

引用时,称作“操作变量”,不被引用的循环变量叫做“形式变量”.

8.关于循环体内使用ExitFor语句例:判断一个数是否为素数.

把一个循环放在另一个循环体内.叫做嵌套循环或者叫多重循环.

格式:N个循环.当具有相同终点时,可以写成

next i,j,k….

当循环当循环(WhileWend)格式:While条件

[语句]Wend

当条件为true时就执行循环.否则就不执行循环.

例:我国现有人口13亿,人口年增长率1.2%,计算多少年后增加到20亿.while1print“k”;wendDoLoop循环格式:1.DoWhile条件2.DoUntil条件

[语句][语句][ExitDo][ExitDo]LoopLoop

3.Do4.Do[语句][语句][ExitDo][ExitDo]LoopWhile条件LoopUntil条件说明:1.第一,三两种叫当循环(条件为真时执行)

第二,四两种叫直到循环（条件为假时执行）

2.第三四两种不管条件满不满足,至少要执行一次循环.3.ExitDo用于提前退出循环过程。WhileWend里面没有。强化训练11.编写如下程序:PrivateSubCommand1_Click()Dimiasinteger,jasintegern=inputbox(“输入一个大于1的正整数”)Fori=2tonForj=2tosqr(i)Ifimodj=0thenexitforNextjIfj>sqr(i)thenprintiNextiEndsub该程序的功能是

A.输出n以内所有的素数B.输出n以内所有的奇数C.输出n以内所有的偶数D.判断n是否为素数2.窗体的单击事件过程如下:Privatesubform_click()K=1Fori=5to1step-1T=t*10+kS=s+tNextiPrintsEndsub运行程序时，单击窗体后,显示的是A.12345 B.11111 C.54321 D.023.For循环的循环控制变量

A.当出现在循环体内时,一定会改变循环次数

B.不能再循环体内出现

C.可以出现在循环体内,也可以不出现在循环体内

D.必须在循环体内出现4.有如下程序:PrivateSubForm_Click()DimsAsInteger,pAsIntegerp=1Fori=1To4Forj=1Tois=s+jNextjp=p*sNextiPrintpEndSub程序运行后,单击窗体，则输出结果是A.400 B.180C.800 D.903-45.在窗体上画1个名称为command1的命令按钮,并编写如下事件过程:PrivateSubCommand1_Click()x=1s=0Fori=1To5x=x/is=s+xNextPrintsEndSub该事件过程的功能是计算A.

B.

C.

D.56.窗体上有1个名称为command1的命令按钮,事件过程如下:Privatesubcommand1_click()Dimx%,y%,z%X=inputbox(“请输入第1个整数”)Y=inputbox(“请输入第2个整数”)DoUntilx=yIfx>ythenx=x-yelsey=y-xLoopPrintxEndsub运行程序,单击命令按钮,并输入2个整数169和39，则在窗体上显示的内容为A.39 B.13

C.23 D.1167.有下面程序代码:PrivateSubCommand1_Click()i=1DoWhilei<5 Doj=j+1print“*”;LoopUntili+j>103>104>1010>1011>105>10...printi=i+2

LoopEndSub程序运行时输出字符“*”的个数是A.15

B.50 C.16 D.2078.编写如下程序:Privatesubcommand1_click()Dimxasinteger,yasintegerx=1y=1

Doy=x*y