vb控制结构循环结构程序设计.pptxVIP

会计学; ;6.1 概述;打印九九乘法表????? Dim?Sgs?As?String????? Dim?i,?j?As?Integer????? For?i?=?1?To?9?????’被乘数从1变到9????????? For?j?=?i?To?9???? ’乘数从1变到9????????????? Sgs?=?i??×??j??=??Str(i?*?j)? ’打印公式如1×1=1????????????? Picture1.Print?Tab((j?-?1)?*?9?+?1); Sgs;????????? Next?j????????? Picture1.Print? Next?I?; For循环语句 (一般用于循环次数已知) 形式： For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量];循环次数;6.2 For...Next循环结构;6.2 For...Next循环结构;练习：分析下面程序段结束时窗体上显示的值是多少？ ;例6.7 编程计算：S=1+2+3+…+100;前测型: Do While 条件 语句块 [Exit Do] 语句块 Loop;6.2 Do...Loop循环结构;后测型: Do 语句块 [Exit Do] 语句块 Loop While 条件;6.3 Do...Loop循环结构;前测型: Do Until 条件 语句块 [Exit Do] 语句块 Loop;6.3 Do...Loop循环结构;后测型: Do 语句块 [Exit Do] 语句块 Loop Until 条件;;;6.3 Do...Loop循环结构;本节小结： （1）当使用While条件构成循环时，当条件为“真”，则反复执行循环体，当条件为“假”，则退出循环。 （2）当使用Until 条件构成循环时，当条件为“假”，则反复执行循环体，直到条件成立，即为“真”时，则退出循环。; 思考:将一个十进制数转换成二进制。 ; 将一个十进制数转换成二进制。 ;将一个十进制数转换成二进制的程序如下: ;6.4.1 While…Wend语句 使用格式如下： While 条件 循环块 Wend 说明：该语句的功能与Do While 条件….Loop实现的循环完全相同。; 6.5.1 循环的嵌套——多重循环结构 如果在一个循环内完整地包含另一个循环结构，则称为多重循环，或循环嵌套，嵌套的层数可以根据需要而定，嵌套一层称为二重循环，嵌套二层称为三重循环。 上面介绍的几种循环控制结构可以相互嵌套，下面是几种常见的二重嵌套形式：;（1）For I=…. ….. For J=…. …. Next J ….. Next I;;; Private 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 嵌套结构;6.5 嵌套结构;例：打印九九乘法表. 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;6.5 嵌套结构;6.5 嵌套结构;6.5 嵌