第05章循環结构程序设计.pptVIP

Visual Basic;四种基本结构;循环结构;循环结构;For循环语句;功能： For： 循环变量置初值、确定终值和步长。 判断是进入循环还是跳过循环。 Next：实现循环变量“增值”。 判断是继续循环还是跳出循环。 循环终止条件： 循环变量的值沿变化方向“超过”终值。;For循环的流程图;看几个简单的例子;看几个简单的例子;看几个简单的例子;循环次数的计算;循环变量的用法;一个原则;求 S=1+2+…+10;求 T=1*2*…*10;Exit For 语句;例题：将1～100间各奇数（1、3、5、7…）顺序累加，直到其和大于100时为止。 Dim s As Integer, i As Integer s = 0 For i = 1 To 100 Step 2 s = s + i If s 100 then Exit For Next i Print “S=”; s;While…Wend语句;例题：将1～100间各奇数（1、3、5、7…）顺序累加，直到其和大于100时为止。 Dim s As Integer, i As Integer s = 0 i = 1 While s = 100 s = s + i i = i + 2 Wend Print “S=“; s;Do…Loop语句;Do…Loop语句的三种主要用法： 1、Do — If 型循环 Do 循环体 If 逻辑表达式 Then Exit Do 循环体 Loop;例题：将1～100间各奇数（1、3、5、7…）顺序累加，直到其和大于100时为止。 Dim s As Integer, i As Integer s = 0 : i = 1 Do s = s + i If s 100 then Exit Do i = i + 2 Loop Print “S=“; s;Do…Loop语句的三种主要用法： 2、当型Do循环 Do While 逻辑表达式 循环体 Loop 注意：当型Do循环是前测试型，循环体有可能一次也不执行。;Do…Loop语句;Do…Loop语句;Do…Loop语句;循环的五种结构;For — If 型循环;While…Wend 型循环;Do — If 型循环;当型 Do 循环;直到型 Do 循环;循环的嵌套; 循环嵌套的规则;; 一个简单的二重循环; 一个简单的二重循环;打印九九乘法表;打印九九乘法表;有一个问题;;With语句;循环;程序设计三剑客;穷举法;递推法;递归法;递归法的基本思路： 递归法类似于数学证明中的反推法，一般是从结果出发，归纳出后一结果与前一结果的关系，寻找其规律性。 递归法实现的关键： 建立递归函数； 确定递归终止条件。;题型：累加;题型：累加;题型：累加;题型：累乘;题型：累乘;题型：累加＋累乘;题型：累加＋累乘;题型：累加＋累乘;题型：累加＋累乘;例题：求 S = 20 + 21 + 22 + …+ 2n，n = 63。; 题型：判断m能否被n整除; 题型：判断m能否被n整除;例题：求2000～2050年之间的所有闰年。闰年的条件是： （1）能被4整除，但不能被100整除的年份是闰年； （2）能被100整除，又能被400整除的年份是闰年。 程序如下： Dim i As Integer For i = 2000 To 2050 If i Mod 4=0 And i Mod 1000 Then Print i; If i Mod 100=0 And i Mod 400=0 Then Print i; Next i; VB的取子串函数; 题型：打印图形; 题型：打印图形; 题型：打印图形;分析：1）首先确定图形中心线位置——第20个字符处。 2）将第 n 行的起始打印位置，表示为行号 n 的函数，起始打印位置 = F(21 - n) 。 3）将第 n 行打印星号的个数，表示为行号 n 的函数， 星号个数 = F(2 * n - 1) 。 4）可先将一个有十五个星号的字符串赋给串变量 S，打印时取其子串输出。;程序如下： Private Sub Form_Click() Dim s As String, i As Integer s = *************** For i