《vb循环结构》PPT课件.ppt
《《vb循环结构》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《vb循环结构》PPT课件.ppt（60页珍藏版）》请在装配图网上搜索。
循环结构,,DoLoop之“当”循环,形式1:形式2:DoWhileDo语句块(循环体)语句块(循环体)LoopLoopWhile,,当条件为真（true）时循环！,DoLoop循环示例1,PrivatesubForm_click()Dimnum%num=1Dowhilenum<=10PrintnumNum=num+1LoopEndsub,PrivatesubForm_click()Dimnum%num=1DoPrintnumNum=num+1Loopwhilenum<=10Endsub,,,,,,S=1+2+3+……+100,PrivateSubForm_Click()DimiAsInteger‘i为累加数DimsumAsInteger‘sum为累加和i=1sum=0DoWhilei<=100sum=sum+ii=i+1LoopPrintsumEndSub,S=1+2+3+……+100,PrivateSubForm_Click()DimiAsIntegerDimsumAsIntegeri=1sum=0Dosum=sum+ii=i+1LoopWhileinsum=sum+ii=i+1LoopText2.Text=sumEndSub,S=1+2+3+……+n,PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimsumAslongn=Val(Text1.Text)sum=0i=0Dosum=sum+ii=i+1LoopUntili>nText2.Text=sumEndSub,5.2For循环语句,For循环语句是计数型循环语句，用于控制循环次数已知的循环结构。语句形式如下：For循环变量=初值To终值[Step步长][循环体]Next[循环变量],For循环变量=初值To终值[Step步长][循环体]Next[循环变量],（1）“循环变量”：必须为数值型，取值范围在初值和终值之间。（2）“初值”、“终值”：都是数值型，可以是数值表达式。（3）“步长”：是数值型，可以是数值表达式。步长不能为0。如果步长是1，则Step1可以省略不写。（4）“循环体”：在For和Next之间一条或多条语句，他们将被执行指定的次数。（5）Next后面的循环变量与For语句中的循环变量必须相同。,使用For循环计算1+3+5+……+99的值,PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimsumAsIntegersum=0Fori=1to99step2sum=sum+iNextiPrintsumEndSub,For循环变量=初值To终值[Step步长][循环体]Next[循环变量],使用For循环计算1+3+5+……+99的值,PrivateSubCommand1_Click()DimiAsInteger,nAsIntegerDimsumAsIntegersum=0Fori=99to1step-2sum=sum+iNextiPrintsumEndSub,For循环变量=初值To终值[Step步长][循环体]Next[循环变量],For和DoLoop的比较,采用For语句比DoLoop更加简明。一般情况下，能够预先确定循环次数时，应优先采用For语句，否则的话应该使用DoLoop语句,【例5.13】利用随机数函数模拟抛硬币,采用的方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。,在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入抛硬币次数、出现正面的次数和出现反面的次数，如图所示。,PrivateSubCommand1_Click()DimnAsLongDimn1AsLong,n2AsLongRandomizen=Val(Text1.Text)n1=0n2=0Fori=1Tonr=Int(Rnd*2)Ifr=1Thenn1=n1+1Elsen2=n2+1EndIfNextText2.Text=n1Text3.Text=n2EndSub,循环的嵌套——多重循环结构如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。下面是几种常见的二重嵌套形式：,,,,（1）ForI=….…..ForJ=….….NextJ…..NextI,（2）ForI=….…..DoWhile/Until….….Loop…..NextI,（3）DoWhile….…..ForJ=….….NextJ…..Loop,（4）DoWhile/Until….…..DoWhile/Until….….Loop…..Loop,,,,循环嵌套,PrivateSubForm_Click()DimiAsInteger,jAsIntegerFori=1To3Print"i=”;iForj=1To3PrintTab;"j=";jNextjNextIEndSub,图5.6例5.4显示结果,,,循环嵌套,Fori=1To3Step1Print"i=”;iForj=1To3Step1PrintTab;"j=";jNextjNexti,i=1,,i<=3,,,,i=i+1,,,,,,,,Print"i=”;iForj=1To3PrintTab;"j=";jNextj,,N,Y,,,,循环嵌套,i=1,,i<=3,,,,i=i+1,,,,,,,,Print“i=“;i,j=j+1,j=1,j<=3,PrintTab;"j=";j,,,,,,,,,,,Y,N,Y,N,Fori=1To3Step1Print"i=”;iForj=1To3Step1PrintTab;"j=";jNextjNexti,,,,,循环嵌套,Fori=1To3Step1Print"i=”;iForj=1To3Step1PrintTab;"j=";jNextjNexti,i=1,,i<=3,,,,i=i+1,,,,,,,,Print"i=”;iForj=1To3PrintTab;"j=";jNextj,,N,Y,循环嵌套,i=1,,i<=3,,,,i=i+1,,,,,,,,Print“i=“;i,j=j+1,j=1,j<=3,PrintTab;"j=";j,,,,,,,,,,,Y,N,Y,N,Fori=1To3Step1Print"i=”;iForj=1To3Step1PrintTab;"j=";jNextjNexti,,循环嵌套,Fori=1To3Print"i=”;iForj=1To3PrintTab;"j=";jNextjNexti,i=1,,i<=3,,,,i=i+1,,,,,,,,,j=j+1,j=1,j100ThenExitDoLoopPrintsumEndSub,ExitFor语句,ExitFor语句可以用来结束For..Next循环。一般也和选择结构语句一起配合使用。它必须放置在For..Next语句的循环体中。当执行到ExitFor时，程序会立即结束循环，跳到Next后执行下面的语句。当有多个循环嵌套使用时，ExitFor语句只跳出所在的最内层的For..Next循环。,【例5.7】给定一个数n，判断它是否是素数,分析：素数就是一个大于2且只能被1和本身整除的整数。判断一个数是否为素数比较简单的方法是：用n逐个除以2~n-1之间的每个整数只要有一个可以整除，则说明n不是素数；如果全部不能整除，则说明n是素数。,PrivateSubForm_Click()DimiAsIntegerDimnAsIntegern=InputBox("请输入一个整数")Fori=2Ton-1IfnModi=0ThenExitForEndIfNextIIfi
- 配套讲稿：
如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制：
部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词：
- vb循环结构 vb 循环 结构 PPT 课件
装配图网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
链接地址：https://www.zhuangpeitu.com/p-3381414.html