VB语言第5章教案课件

1、在第5章中，环路结构计程仪程序的设计可以通过采用环路计程仪程序来解决按照一定规则反复执行的问题。 例如，合计班级数十名学生，甚至学校数千名学生的学期成绩，分为平均分、不合格等本章的主要内容，第5章循环构造方案设计，Do.Loop，For.Next，退出，循环出口文(Exit )，循环文，多重循环，列表框和组合框，常用算法， 所谓堆计程仪例循环，是指由循环体VB提供在指定的条件下多次反复执行的一系列语句的循环语句For.Nextdo.loop while.wenddforeach.next中最常见的是for.next和do.loop语句， for.next循环主要在知道循环次数时使用。如果事先不

2、知道循环次数，则为正规循环Do.Loop 1. For.Next循环语句(计数控制) For循环变量初始值To结束值Step步进值环体Next环变量2. Do While.Loop语句(条件控制) Do While|Until条件环体Loop 5.1环语句的示例S=1 2 3 8，s=0 For k=1 To 8 s=s k Next k Print s=s普通堆计程仪的执行结果是s36，n=13360 s=0dowhilin=8s=snn=n 1循环打印=； s、5.2和k是循环变量，设置变量n以控制循环，5.2获得S=1 2 3 8，并在表单上表示结果。 s=0个累加器的初始值是0 For

3、 k=1 To 8 s=s k个累加器，其中，根据原始和，每次几个Next Print s=； s plum计程仪程序的执行结果在s36分析中，算法：通常，为了使用反复运算来解决问题的累积、累积等，按照级数/41 - 1/3 1/5 - 1/7设定循环变量，求出每个运算变量值有不同的控制循环计数控制和条件控制，实现循环结构程序计程仪程序s将长式加8次，使用打印直接输出到表格中，private subform _ load () showt=1forc=1to8t=t * cnextcprintt=； T40320语句t=t*c作为t End Sub堆计程仪程序的执行结果被称为乘法器。 先t为1

4、 (不能为0 )。 循环计程仪计划经常使用累积和累积来完成各种计算塔斯克。 求例5.3 t=8=1238、例5.3、例5.3t=8！=123 8、在网页上显示结果。 t=1累计器的初始值是For c=1 To 8 t=t * c累计器，根据原来的积，一次累计几个Next Print T=； 在T40320分析中，t形计程仪程序的执行结果使用打印直接输出到表单。 在该计程仪柱查询密码中，专用子加载()短整数和零整数整数pi=1s是其中for c=1to 10000步骤2 pi=pi s/c s=-s被交替相加的负整数pi * 4 End Sub计程仪柱的执行结果为3.141397，例子5.4是用

5、/41 - 1/3 1/5 - 1/7级数求出的近似值(取前面的5000项进行计算)，例子5.4，fort=1to3ift=1thena=3ift=2thena=2 nexttprinta.333b.123c.314d.114，下一个计程仪程序的执行结果是什么？ 请考虑一下。 思考问题，d，fort=1to3ift=1thena=3ift=2thena=2ift=3thena=1打印机； nexttprinta.33334 b.123 c.314 d.114，下一个计程仪程序的执行结果是什么？ 仔细想想，思考问题，c，在执行了下一个计划之后，循环体执行了_次。I=03360 n=1Dow hi

6、li关3.2字I=(I1) * (I1) n=n1loopprintna.2 b.3 c.4 d.5，请回答问题并考虑一下s=abcdefgh hij : c=fork=2托尔恩(s ) step 33 请考虑一下。 思考问题，使用c，Do While.Loop语句使用Print直接在表单上输出结果。 普拉姆查询密码：私有辅助加载() dimansinteger，销售额=1: s=0美元=100 s=sn * n=n 1循环打印=； s end sub plum的执行结果： S338350、例5.5求出s3382221002、例5.5，通过上述式，对/4的近似值，即按项进行累计，累计到某项的1

7、/n * (1/2 n 1/3 n)=10(-5 )的条件t10(-5 )为止，pi=。 t将累计当前项的s=-s交替为正，在负的n=n 2变动值n上加上2 t=1/n * (1/2 n 1/3 n )，得到当前项的绝对值Loop Print=； pi * 4普拉姆执行结果：3.141562、例5.6用级数、求出的近似值。 在最后一项的绝对值小于10-5的情况下，停止计算，例如5.6，“反相除法”算法：求出m/n馀数p，如果p0，n为最大公约数，p不为0，则将原来的分母n设为新的分子m，将馀数p设为新的分母n，继续求出设计步骤： (1) 示例5.7“计算”按钮Click上通告过程查询密码为：创

8、建应用程序的用户界面和要设置的属性，并输入两个示例5.7正整数，以确定它们的最大公约数。 隐私子命令1 _ click () dimmsassainteger， ncassainteger psascintegerm=val (text1. text ) : n=val (text2. text ) IFM0text3. text=mbendsub输入的m和n的值为8.5和6.8的情况下，执行结果如上图所示语句的格式： While条件循环Wend功能：条件成立(真)时执行循环体，语句的格式： While条件循环体Wend功能：条件成立(真)时执行循环体，条件不成立(假)时，结束循环。 此语句类

9、似于上面的Do While.Loop循环语句，但是While.Wend语句不能使用Exit语句脱离循环。5.1.3 While.Wend循环语句，提前结束循环形式： Exit For|Do功能：从For循环或Do循环直接执行结束程序时发生Exit语句时，不执行循环体中的语句而直接结束，循环语句(Next，Loop )的键入-1时终止的程序执行创建应用程序的用户界面和设置对象属性写入器查询密码private subform _ load () show sum=0dowhiletrue条件为真， 循环不结束，x=val (请输入inputbox (-1结束)输入数据) ifx=-1 thenex

10、itdomendifsum=sumxtext1. text=sumloopmsgbox (累计运算结束) End Sub 示例5.8设计“加法器”计程仪程序的示例5.8多重循环是指在循环中包含循环语句的示例5.9多重循环计程仪程序的执行结果privatesubform_load () 1show1fori=1to3外环1 7 For j=5 To 7内环25 print ij 26 next j 27 next I 35 end sub 3637注意内外循环层次明确且不能交叉，5.2多重循环，例5.9，本例可以通过双重循环实现。 外环控制输出7行，内环控制输出每行的请求字符数。 进入内循环之前

11、，使用Print Tab ()放置起始输出位置，退出内循环后，使用Print控制换行符。建立例子5.10的堆计程仪项，输出如下所示的图，例子5.10，使用打印直接将结果输出到表单，堆计程仪项查询密码定义为private subform _ load () show fori=1to7print tab (1.0-I )； nextjprintnextiendsubprintchr (I 4.8 )与Print i不同，(1)分析：一元硬币为a枚，二元硬币为b枚，五元硬币为c枚， 公式a b c=10 a 2b 5c=25并采用双循环，外循环变量a从010，内循环变量b从010生成应用程序的交互

12、界面，例子5.11有多少不同的方法支付一元、二元、五元硬币共计十枚，2.5元的钱，例子5.11、(3) private subform _ load () showcurrenctx=03360 currency=1500开始显示的坐标Print，5元，2元单元n=0勒查询密码解析的组数fora=0to 1.0 forb=0to 1.0 c=1.0-b-a FIFA2* bb n； c，b，a End If Next b，a End Sub，如果执行以下段，则变量t的值为 t=0forx=2to3n=1dowhilin=xtt=tnn=n1 loopnextxa.8b.9c.10d.1.1，回答问题，思考，思考，思考，思考，结果1.6 执行以下步骤后，显示的结果为： _ _ _ _ _ _ _ _ _ _ s=0form=1to4step2n=1dowhilin=MSN=n1loopnextmprint，示例5.12a， 在5.3列表框和组合框中，列表框和组合框是可以为用户提供多种选项的用户可以任意选择的5.3.1列表框(listbox )列表腻子粉：字符类型数组，存储列表框的表项目数组例如，List1.List(0)的值是“教授”，而List1.List(1)的值是“副教授”。 list count property :表项目数text property :当前选定表项目的