VB程序设计--循环结构ppt课件

1、Visual Basic Visual Basic 程序设计程序设计目 录 前言 第1讲 第2讲 第3讲 第4讲 第5讲 第6讲 第7讲 第8讲 第第9 9讲讲 第10讲 第11讲 第12讲 第13讲 第14讲 第15讲 第16讲回想上一讲学习的内容 多分支选择构造及运用本卷须知多分支选择构造及运用本卷须知 IfElseifElseEndifIfElseifElseEndif Select casecaseEnd selectSelect casecaseEnd select For For 循环构造循环构造练习题 执行下面程序后，问循环次数和s的值。 S=5 For i=2.6 to 4.9

2、 step 0.6 S=s+1 Next i第五章第五章 根本的控制构造根本的控制构造 (5 (5学时学时判别条件进展循环 WhileWhile循环循环While While wendwend DoDo循环循环例：设例：设s=123n，求求s不大于不大于4000时的最时的最大的大的n。Do循环控制构造Doloop循环：对于事先不知道循环次数的操作，运用Do循环方便有效。语法格式有四种： Do whileloop语句do while exit do loop条件条件循环体循环体TFExit Do循环体循环体Do循环控制构造条件条件循环体循环体FTExit Do循环体循环体循环体条件TFExit

3、Do循环体Do循环控制构造循环体循环体条件条件FTExit Do循环体循环体Do循环控制构造例题：输出120之间能被3整除的 一切整数及它们的和 用ForNext循环实现 用Do WhileLoop循环实现 用DoLoop While循环实现 用Do UntilLoop循环实现多重循环 把循环体内不含有循环语句的循环叫单层循环，把循环体内又含有循环语句的循环叫多重循环多层循环或嵌套循环 在运用多重循环时，要留意循环的完好性，一个循环必需完全包含在另一个循环的内部，不能出现交叉景象。Exit forDo Until LoopDo while LoopNextForExit DoDo while

4、LoopDo while LoopLoopDo while =, n 例7： 用辗转相除法求两自然数m，n的最大公约数和最小公倍数 m n r14 6 2 6 2 0Do While m n If m n Then m = m - n Else n = n - m End IfLoopm n 14 6 8 6 2 6 2 4 2 2辗转相减法求最大公约数辗转相减法求最大公约数的算法：的算法：对于知两数对于知两数m m、n n： 假设假设mn mn 那么那么m mn nm m ，假设假设nmnm那么那么n nm mn n ； mn mn，反复执行，反复执行 ；假设假设m=nm=n，那么，那么m

5、m、n n为最大为最大公约数公约数辗辗转转相相减减 For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Picture1.Print Tab(j - 1) * 9 + 1); se; Next j Picture1.Print Next i思索：打印左下三角或右上三角，程序如何改动？思索：打印左下三角或右上三角，程序如何改动？例例8 8 打印九九乘法表打印九九乘法表For j = 1 To iFor j = i To 9选择构造运用中的常见错误选择构造运用中的常见错误1.不循环或死循环的问题不循环或死循环的问题 主要是循环条件、循环初值

6、、循环终值、循环步长的设置有问题。主要是循环条件、循环初值、循环终值、循环步长的设置有问题。2.循环构造中短少配对的终了语句循环构造中短少配对的终了语句 For 短少短少 配对的配对的Next 3.循环嵌套时循环嵌套时,内外循环交叉内外循环交叉4.累加、连乘时，存放累加、连乘结果的变量赋初值问题累加、连乘时，存放累加、连乘结果的变量赋初值问题 在一重循环中，存放累加、连乘结果的变量赋初值在一重循环中，存放累加、连乘结果的变量赋初值应在循环语句前。应在循环语句前。 多重循环多重循环 这要视详细问题分别对待。这要视详细问题分别对待。循环运用中的常见错误循环运用中的常见错误四.其他辅助控制语句作用：

7、作用：EndEnd终了一个程序的运转；其他表示某个构造终了一个程序的运转；其他表示某个构造的终了，与对应的构造语句配对出现。的终了，与对应的构造语句配对出现。语句方式如下： With 对象 语句块 End With作用：对某个对象执行一系列的操作，而不用反复指出对象的称号。等价等价五、常用算法一五、常用算法一算法：是对某个问题求解过程的描画。1.累加、连乘例:1100的5或7的倍数的和 Sum = 0 For i = 1 To 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If Next i Print Sum例:310的乘积

8、 t = 1 For i =3 To 10 t = t * i Next i Print t思索：假设把循环体前面置各变量初值的语句放在循环体内，程序运转时会产生什么情况？m1i0ii!11i!1 . !1.3!1! 211!11ei例例4.14 4.14 求自然对数求自然对数e e的近似值的近似值要求：误差小于0.00001，近似公式为:m1i0ii!11i!1 . !1.3!1! 211!11ei例例4.14 4.14 程序代码程序代码要求：误差小于0.00001 NotNextM: NotNextM: Next m Next mm能否为素数求100以内的素数思索： 此例用Go To语句对

9、非素数不再判别，假设不用GoTo语句，如何修正程序？见例4.152.2.求素数求素数3.3.穷举法穷举法“穷举法也称为“枚举法或“试凑法。即将能够出现的各种情况一一测试，判别能否满足条件，普通采用循环来实现。 例4.16：百元买百鸡问题。假定小鸡每只5角,公鸡每只2元，母鸡每只3元。如今有100元钱要求买100只鸡，编程列出一切能够的购鸡方案。设母鸡、公鸡、小鸡各为x、y、z只，根据标题要求，列出方程为：x+y+z=100 3x+2y+0.5z=100三个未知数，两个方程，此题有假设干个解。采用“穷举法，把每一种情况都思索到。 方法一：最简单三个未知数利用三重循环来实现。 方法二：从三个未知数

10、的关系，利用两重循环来实现。4.4.递推法递推法 “递推法又称为“迭代法，其根本思想是把一个复杂的计算过程转化为简单过程的多次反复。每次反复都从旧值的根底上递推出新值，并由新值替代旧值。 例4.17 猴子吃桃子。小猴在一天摘了假设干个桃子，当天吃掉一半多一个；第二天接着吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半零一个，到第7天早上要吃时只剩下一个了，问小猴那天共摘下了多少个桃子？2) 1(12111nnnnxxxx也就是：即：例4.17 分析 这是一个“递推问题，先从最后一天推出倒数第二天的桃子，再从倒数第二天的桃子推出倒数第三天的桃子。 设第n天的桃子为Xn，那么它是前一天的桃子

11、数。例：随机产生例：随机产生1010个个100100200200之间的数，求最大值。之间的数，求最大值。Private Sub Command1_Click() Max = 100 For i = 1 To 10 x = Int(Rnd * 101 + 100) Print x; If x Max Then Max = x Next i Print Print 最大值=; MaxEnd Sub5.5.最小、最大值最小、最大值 在假设干个数中求最大值，普通先假设一个较小的数为最大值的初值，假设无法估计较小的值，那么取第一个数为最大值的初值；然后将每一个数与最大值比较，假设该数大于最大值，将该数交换为最大值；依次逐一比较。例4.18 实践运用，求最短残料。 有一根长度为321米的钢资料，要将它截取成两种规格a、b的长度分别为17米和27米的短料，每种至少1段，问分隔成a,b各多少段后，剩余的残料r最少？ 分析，该题利用“试凑法经过二重循环求残料r的最小值正数，残料不能够是负数。 程序如下：本讲