vb控制结构-循环结构程序设计

1、第6章 vb控制结构（2）,循环结构程序设计,本章内容及要求： （1）掌握for.next语句及exit for语句的使用； （2）掌握do.loop循环语句与exit do语句的使用； （3）掌握循环结构的嵌套应用； （4）掌握循环结构和选择结构的嵌套应用。,6.1 概述,在visual basic程序设计中，实现循环结构的语句主要有下列几种： l fornext语句 doloop语句 l whilewend语句,do while loop形式 do loop while 形式 do until loop形式 do loop until 形式 do loop形式,打印九九乘法表 dim sg

2、s as string dim i, j as integer for i = 1 to 9 被乘数从1变到9 for j = i to 9 乘数从1变到9 sgs = i next j picture1.print next i,for循环语句 (一般用于循环次数已知) 形式： for 循环变量初值 to 终值 step 步长 语句块 exit for 语句块 next 循环变量,6.2 for.next循环结构,循环次数,例: for i=2 to 13 step 3 print i , next i print “i=“, i,循环执行次数 4 输出i的值分别为: 2 5 8 11 出了

3、循环输出为: i=14,6.2 for.next循环结构,6.2 for.next循环结构,注意跳出for循环时的循环变量的值,for i= 1 to 10 step 1 s=s+i next i print i,for i= -1 to -10 step -1 s=s+i next i print i,6.2 for.next循环结构,注意对于fornext语句来说，一旦进入循环，其“终止值”和“增量”便不会再改变了。,private sub form_click() dim i as integer, j as integer, k as integer j = 10: k = 1 for

4、 i = 1 to j step k print i j = j - 1 k = k + 1 next print j, k end sub,练习：分析下面程序段结束时窗体上显示的值是多少？,(2) i2=0 for i = 1 to -2 step -1 i2 = i2+1 next print i , i2,（-3 4）,(1) for i = 1 to 10 i2 = i2+1 next print i,(11),(3) i2=0 for i = 1 to 5 step 2 i2 = i2+1 next print i,（7）,(4) i2 = 1 for i = 1 to 10 i =

5、 i + 1 i2 = i2 + 1 next print i, i2,(11 6),(5) i2 = 1 i3 = 10 i = 10 for i = 1 to i3 i = i + 1 i2 = i2 + 1 i3 = i3 + 1 next print i, i2,(11 6),(6) i2 = 0 for i = 1 to 10 i2 = i2 + 1 if i 6 then exit for next print i, i2,(7 7),(7) i2 = 0 i = 10 do i2 = i2 + 1 loop while i = i2 print i2,(1),例6.7 编程计算：

6、s=1+2+3+100,dim s%, i% s=0 累加前变量s为0 for i=1 to 100 s=s+i next i print s=,s,例6.7的算法流程图,6.2 for.next循环结构,前测型: do while 语句块 exit do 语句块 loop,doloop循环语句使用形式,6.3 do.loop循环结构,6.2 do.loop循环结构,private sub form_click() dim i as integer: dim a as integer 定义所需变量 i = 0: a = 0 给变量赋初值0,这两条语句可省略 do while i 100 i =

7、 i + 1 每次循环，变量i都增加1 a = a + i 每次循环，变量a都加变量i的值 loop print a 计算完毕，变量a的值即为所求 end sub,例:使用do whileloop循环语句计算1+2+3+100的值,后测型: do 语句块 exit do 语句块 loop while ,6.3 do.loop循环结构,6.3 do.loop循环结构,例:使用do loop while循环语句计算1+2+3+n的值,n的值由文本框输入。,private sub command1_click() dim i as integer, n as integer, a as intege

8、r 定义所需变量 n = text1.text 得到输入的值 do i = i + 1 每次循环，变量i都增加1 a = a + i 每次循环，变量a都加变量i的值 loop while i n text2.text = a 显示计算结果，变量a的值即为所求 end sub,前测型: do until 语句块 exit do 语句块 loop,doloop循环语句使用形式,6.3 do.loop循环结构,6.3 do.loop循环结构,例:计算阶乘 n！的值（n的值由文本框输入）。,private sub command1_click() dim i as integer, n as inte

9、ger dim a as long n = text1.text 得到输入的值n a = 1 必须为变量a赋初值1 do until i = n i = i + 1 每次循环，变量i都增加1 a = a * i 每次循环，变量a都乘以变量i的值 loop text2.text = a 计算完毕，变量a的值即为所求 end sub,后测型: do 语句块 exit do 语句块 loop until ,6.3 do.loop循环结构,例:使用级数求的值。 根据下式，计算圆周率的近似值，当计算到绝对值小于0.0001的通项时，认为满足精度要求，停止计算。 /4=1- 1/3 + 1/5 -1/7

10、+(-1)n+11/2n-1+,6.3 do.loop循环结构,private sub cmdpi_click() dim a as single 变量a保存通项之和 dim m as single 变量m保存通项的绝对值 dim s as integer 变量s产生通项的符号 dim i as integer 变量i产生通项的分母 s = 1 第一项符号为正 i = 1 第一项为1 do 开始循环 m = 1 / i 计算通项的绝对值 a = a + s * m 总和加上一个通项 i = i + 2 产生下一个通项分母 s = -s 轮流转换通项的正负号 loop until m 0.000

11、1 测试是否满足精度要求 text1.text = a * 4 输出计算结果 end sub,6.3 do.loop循环结构,6.3 do.loop循环结构,do 语句块 exit do 语句块 loop,private sub command1_click() dim i as integer, n as integer dim a as long n = val(text1.text) a = 1 do i = i + 1 a = a * i if i = n then exit do loop text2.text = a end sub,例6.5:计算n!,本节小结： （1）当使用wh

12、ile构成循环时，当条件为“真”，则反复执行循环体，当条件为“假”，则退出循环。 （2）当使用until 构成循环时，当条件为“假”，则反复执行循环体，直到条件成立，即为“真”时，则退出循环。,（3）在循环体内一般应有一个专门用来改变条件表达式中变量的语句，以使随着循环的执行，条件趋于不成立（或成立），最后达到退出循环。 （4）语句exit do的作用是退出它所在的循环结构，它只能用在do/loop结构中，并且常常是同选择结构一起出现在循环结构中，用来实现当满足某一条件时提前退出循环。,6.3 do.loop循环结构,思考:将一个十进制数转换成二进制。,算法流程图,6.3 do.loop循环结

13、构,用do.loop循环的五种形式分别完成,将一个十进制数转换成二进制。,算法流程图,6.3 do.loop循环结构,分析: 将一个十进制数转换成二进制采用连除2取余数的方法，即将十进制数除以2取余数，直到商为0，然后所得的余数即为二进制数各位的数码，从右到左排列，第一次除2的余数在最右边。算法设计如下：用变量dec表示十进制数，bin表示转换所得的二进制数字符串。 （1） 输入十进制dec （2） dec除以2得余数res,商又赋值给dec；让bin = res dec do res = dec mod 2 求出除以2的余数 bin = res bin end sub,6.3 do.loop

14、循环结构,6.4.1 whilewend语句 使用格式如下： while wend 说明：该语句的功能与do while .loop实现的循环完全相同。,6.4 whilewend语句,6.5.1 循环的嵌套多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：,6.5 嵌套结构,（1）for i=. . for j=. . next j . next i,（2）for i=. . do while/until . . l

15、oop . next i,（3）do while. . for j=. . next j . loop,（4）do while/until. . do while/until . . loop . loop,6.5 嵌套结构,对于循环的嵌套，要注意以下事项： (1) 内循环变量与外循环变量不能同名； (2) 外循环必须完全包含内循环，不能交叉； 下面是正确的嵌套,6.5 嵌套结构,for i =1 to 10 for j=1 to 20 next i next j,for i =1 to 10 for i=1 to 20 next i next i,下面是不正确的嵌套,6.5 嵌套结构,pri

16、vate sub form_click() dim i as integer, j as integer for i = 1 to 3 print i=; i for j = 1 to 3 print tab; j=; j next next end sub,循环嵌套的执行流程:,6.5 嵌套结构,6.5 嵌套结构,private subcommand1_click() dim x%, a%,y% for x = 1 to 2 a=0 for y = 1 to x+1 a = a+1 next y print a; next x end sub 程序运行后,单击命令按钮,在窗体上显示的值是 (

17、 2 3 ),6.5 嵌套结构,exit do和exit for语句在循环嵌套时的作用,6.5 嵌套结构,例：打印九九乘法表. for i = 1 to 9 for j = 1 to 9 se = i next j picture1.print next i,6.5 嵌套结构,6.5 嵌套结构,例:,编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个三位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为：,6.5 嵌套结构,private sub form_click() dim i as integer, j as integer, k as integer dim n a

18、s integer for i = 1 to 9 i表示百位上的数 for j = 0 to 9 j表示十位上的数 for k = 0 to 9 k表示个位上的数 n = i * 100 + j * 10 + k if i 3 + j 3 + k 3 = n then print n next k next j next i end sub,解法一:,6.5 嵌套结构,解法二:,private sub form_click() dim i as integer, j as integer, k as integer dim n as integer for n = 100 to 999 i =

19、 n 100 得到百位上的数字 j = n 10 - i * 10 得到十位上的数字 k = n mod 10 得到个位上的数字 if i 3 + j 3 + k 3 = n then print n next n end sub,6.5.2 循环结构与选择结构的嵌套,在循环结构中可以完整嵌套选择结构,即整个选择结构都属于循环体。在选择结构中嵌套循环结构时，则要求整个循环结构必须完整地嵌套在一个分支内，一个循环结构不允许出现在两个或两个以上的分支内。,6.5 嵌套结构,（1）for i= if then end if next i,（6） if then for i= end if next

20、i,（5）select case for i= case case next i end select,（3）for i= if then next i end if,（2）if then for i= next i end if,（4）for i= select case case case end select next i,6.5 嵌套结构,6.6强制退出循环,6.6.1用exit for语句强制退出for循环,exit for 语句可以使程序从for循环中退出来，转到next语句后面的程序继续执行，而不必等到循环变量到达终值时才退出来。 注意：在循环体外面，不可以使用exit for

21、语句，而且exit for通常与if语句一起使用。 例：用300元买100只鸡，母鸡9元1只，小鸡1元1只，问母鸡、小鸡各应买多少只？ 分析：设买母鸡x只，则x的变化范围为130只，因为买的母鸡只数不可能超过30只，超过30只就不可能买到100只鸡。设小鸡为y只，则y=100-x。下面要做的工作就是求x为何值时，9x+y=300成立。,6.6强制退出循环,程序代码： option explicit private sub form_click() dim x as integer dim y as integer for x=1 to 30 y=100-x if 9*x+y=300 then exit for next x print “母鸡有”;x;”只”,”小鸡有”;y；”只” end sub,6.6强制退出循环,6.6.2用exit do语句强制退出do循环 exit do语句可以使程序从do循环中退出来，转到loop语句后面的