[计算机软件及应用]vb循环结构.ppt

第4章：循环结构 主要内容: 1:循环结构 2:Do…Loop语句 3:For…Next语句 4:循环嵌套 5:列表框、组合框 小测验 任意输入一个整数，判断其奇偶性 例4.1 在窗体上打印出1~20以内的所有偶数 分析与思考从1开始判断1是否为偶数，若是则打印1判断2是否为偶数，若是则打印2判断3……判断20是否为偶数，若是则打印20结束 例4.1 直接写代码If 1 Mod 2 = 0 Then Print 1If 2 Mod 2 = 0 Then Print 2…If 20 Mod 2 = 0 Then Print 20 分析与思考“判断一个数是否为偶数若是则打印”这样的处理被重复了20次！ 例4.1 高效率的处理 1）赋予变量x初值为1 2）如果x=20，那么若x是偶数则打印x； 反之若x20则跳至第5步 3）赋予x值为下一个要判断的数 4）跳至第2步 5）结束 例4.1 程序代码Private Sub Command1_Click() Dim x As Integer  x = 1  Do While x = 20  If x Mod 2 = 0 Then Print x  x = x + 1  LoopEnd Sub 代码的这种结构称为“循环结构” Do While…Loop是典型的循环语句 循环结构 循环：指在满足指定条件下重复多次执行相同语句序列的程序结构 循环体：被重复执行的语句序列 执行时，先测试条件，若满足，则执行一遍语句序列，然后跳回到条件处，再次测试条件；若不满足，则跳出循环 VB提供的循环语句有 For...Next Do...Loop While...Wend For Each...Next 其中最常用的是For...Next和Do...Loop语句 前测型Do...Loop语句 格式：Do [{While|Until} 条件] 循环体Loop Do While...Loop语句的功能：当条件为真时，执行循环体；当条件为假时，退出循环。此循环称为“当型循环”。先测试条件再决定是否执行循环体！ Do Until...Loop语句的功能：当条件为假时，执行循环体，直到条件为真时，退出循环。此循环称为“直到型循环”。先测试条件再决定是否执行循环体！ 小测验 程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）和（ ）Private Sub Command1_Click() Dim x As Integer, n As Integer x = 0 Do While x 50 x = (x + 2) * (x + 3) n = n + 1 Loop Text1.Text = Str(n) Text2.Text = Str(x)End Sub 例4.2 题目：求S = 1 + 2 + … + 100之和 分析与思考累加问题：求一组有规律的数的和可用循环结构解题，但关键是找出其中“重复执行”的部分，观察下面代码： s=s+1s=s+2…s=s+100 “重复执行”部分：将s和一个数相加重新赋予s其中变化的是那个数，设该数为n，显然n的初值为1，然后不断加1，直到100 例4.2 程序代码如下：Private Sub Command1_Click() Dim n As Integer,s As Integer n=1 s=0 Do While n=100 s=s+n n=n+1 Loop Print s=;sEnd Sub 例4.2 程序代码如下：Private Sub Command1_Click() Dim n As Integer,s As Integer n = 1 s = 0 Do Until  s = s+n n = n+1 Loop Print s=;sEnd Sub 例4.3 题目：利用公式π/4＝1 - 1/3 + 1/5 - 1/7 + ……求π的近似值。要求：当加数项的绝对值小于10-5时，停止计算 分析与思考 这是累加问题的变型 公式中的每项的分母是规律的奇数列。且奇数项为加法运算，偶数项为减法运算 循环条件为：累加项的绝对值小于10-5可写为 Until 1/n0.00001 例4.3 程序代码Private Sub Command1_Click() Dim pi As Single, n A