vb课件第五章选择分支与循环.ppt

1、学习目标 掌握三大基本结构的语法细节，会利用三种基本结构解决一般的实际问题。 2、学习重点 if分支语句的多种格式； 循环结构中for…next语句和do…loop语句。 3、学习难点 算法设计和三种基本结构在解决实际问题中的运用。 5.2 循环结构与循环结构语句 5.2.1 Do-loop循环结构语句（条件循环） 5.2.2 For-Next 循环结构语句（计数循环） 5.2.3 循环嵌套 写出下列程序的运行结果 5.3 程序示例 格式五（特殊形式）： Do 循环体 Loop 执行过程：反复执行循环体。 该结构称为“死循环“，在循环体内必须通过 Exit Do 语句强制退出循环体。 Exit Do语句一般与If-then语句结合使用，即当满足某一条件时，才强制退出循环。 If 条件 Then Exit Do 循环体 Loop后续语句 Do print “hello” i=i+1 If i=10 then Exit Do Loop （1）Do和Loop为循环结构关键字，必须成对出现，缺一不可； （2）循环体为可执行语句组成,可以嵌套分支结构和循环结构； （3）语句 Exit Do 用于无条件退出循环，可在任意Do-Loop语句结构的循环体中出现。 （4）使用循环结构，一定要避免死循环的出现。 Do-Loop语句使用说明 [算法分析]：求最大公约数的常用方法是 辗转相除法。 例：求两个数的最大公约数。 P 67 例5-3 18 10 M N R 8 10 8 2 8 2 0 2 0 R=8 R=2 R=0 M=2即最大公约数 在该例中，我们使用了三个变量，分别表示被除数（m）、除数（n）及余数（r）。 Do r=m Mod n m=n n=r Loop Until r=0 最大公约数是（ ）？ 由于输入的数据M和N要求是自然数，在程序中应加入对数据的合法性进行检验的部分； 考虑到程序的应用范围，数据类型可选用长整型。 问题分析及界面设计 Private Sub Command1_Click() Dim m As Long, n As Long, r As Long m = Val(Text1.Text) ‘取数据M n = Val(Text2.Text) ‘取数据N If m Int(m) Or m 1 Or n Int(n) Or n 1 Then Text3.Text = 数据错误！ Else Do ‘求最大公约数 r = m Mod n m = n n = r Loop Until r = 0 Text3.Text = CStr(m) ‘输出最大公约数 End If End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = End Sub Private Sub Command3_Click() End End Sub 检验数据合法性 Mod 前后加空格 例：将十进制数转换成二进制。 [算法分析]：十进制向二进制转换， 采取的是除2取余法。 45 2 22 2 1 11 2 1 2 2 2 5 2 1 0 1 0 0 1 高位 低位 （45）10=（101101）2 解决这类问题必须考虑的是如下几点： （1）需要重复运行的操作——除2取余 （2）终止循环的条件——商为0 a=0? a Mod 2 a=a\2 F 结束循环 T 注意： ①在循环控制条件中必须出现变量，且该变量在循环体中一定要改变值，否则会造成“死循环”，即无休止的循环