VB第5章电子教案ppt课件.ppt

《VB第5章电子教案ppt课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章循环结构程序设计VisualBasic提供了循环语句来解决处理重复工作的问题，循环语句由“循环控制”和“循环体”两部分构成。VisualBasic提供了三种不同风格的循环语句，它们分别是：（1）For…Next循环语句；（2）Do…Loop循环语句；（3）While…Wend循环语句。5.1For…Next循环语句For...Next循环主要是用在知道循环次数的情况下For…Next循环语句的格式For循环变量=初值To终值[Step步长][循环体][ExitFor]Next[循环变量]2.For…Next循环语句的执行过程（

2、1）系统将初值赋给循环变量，并自动记下终值和步长。（2）检查循环变量的值是否超过终值。如果超过就结束循环，执行Next后面的语句；否则，执行一次循环体。（3）执行Next语句，将循环变量增加一个步长值再赋给循环变量，转到（2）继续执行。循环变量获得初值循环变量超过终值执行循环体循环变量=循环变量+步长Next下面的语句超过未超过For循环语句执行流程【例5.1】用For循环语句求解100以内所有偶数的和。分析：100以内的偶数有50个，需要重复进行50次加法（用循环结构实现），并把和累加到一个变量中保存，循环完之后输出这个和，程序结

3、束。PrivateSubForm_Click()DimsAsInteger，xAsInteger，nAsIntegers=0:x=0Forn=1To50Step1x=x+2s=s+xNextnPrint"1～100所有偶数和=";sEndSub思考：例5.1退出循环之后n的值是多少？循环体中两条语句交换位置后运行结果如何？有没有更简单的循环实现方法？3.说明(1)循环变量——数值变量(2)初值,终值,步长——数值表达式(3)步长——可正可负,但不能为0,为1时可以省略步长>0时，必须:初值<=终值循环结束条件——循环变量的值>终值步

4、长<0时，必须:初值>=终值循环结束条件——循环变量的值<终值(4)For和Next必须成对出现，缺一不可，且For必须在Next之前。(5)ExitFor——退出循环，一般与IF条件配合使用，满足条件则立即退出循环。(6)Next之后的循环变量应与For语句中的循环变量应一致，也可以省略(7)循环次数=Int（（终值－初值）/步长）+1【例5.2】求N！(N!=1×2×3×…×N)。设计界面运行界面源程序代码如下：PrivateSubCommand1_Click()DimNAsInteger,IAsInteger,FAsLongN

5、=Val(Text1.Text)F=1ForI=1ToNF=F*INextIText2.Text=FEndSub【例5.3】求水仙花数。水仙花数是指三位数（100~999）中符合如下条件的数。各位数字的立方和等于该数，如153=1^3+5^3+3^3，则153为一个水仙花数。水仙花数运行界面源程序代码如下：PrivateSubCommand1_Click()Label1.FontSize=14Label1.Caption="100到999中的水仙花数有："Forn=100To999a=Int(n/100)b=Int((n-a*100

6、)/10)c=Int(n-a*100-b*10)Ifn=a^3+b^3+c^3ThenLabel1.Caption=Label1.Caption&Chr(13)_&Chr(10)&nEndIfNextEndSubPrivateSubCommand2_Click()Label1.FontSize=14n=Val(Text1.Text)a=Int(n/100)b=Int((n-a*100)/10)c=Int(n-a*100-b*10)Ifn=a^3+b^3+c^3ThenLabel1.Caption=n&"是水仙花数"ElseLabel

7、1.Caption=n&"不是水仙花数"EndIfEndSubPrivateSubCommand3_Click()EndEndSub5.2Do…Loop循环语句1．DoWhile…Loop循环语句的格式Dowhile<条件>[<循环体>][ExitDo]Loop5.2.1DoWhile…Loop循环语句DoWhile…Loop循环语句又叫“当型循环”语句。2．DoWhile…Loop循环语句的执行过程首先判断“条件”，根据“条件”决定是否执行循环体。如果“条件”成立（值为真），则执行循环体，否则退出循环；执行完一次循环体后，再判断“

8、条件”看是否再次进入循环。流程图如下图所示开始执行循环体判断条件Loop下面的语句成立不成立用DoWhile…Loop循环语句求解100以内所有偶数的和。源程序代码如下：PrivateSubForm_Click()DimsAsInte