演示文稿控制结构循环结构程序设计.pptVIP

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 嵌套结构 当前第31页\共有48页\编于星期二\10点 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 程序运行后,单击命令按钮,在窗体上显示的值是 ( 2 3 ) 当前第32页\共有48页\编于星期二\10点 6.5 嵌套结构 Exit Do和Exit For语句在循环嵌套时的作用 当前第33页\共有48页\编于星期二\10点 6.5 嵌套结构 当前第34页\共有48页\编于星期二\10点 演示文稿控制结构循环结构程序设计 当前第1页\共有48页\编于星期二\10点 （优选）控制结构循环结构程序设计 当前第2页\共有48页\编于星期二\10点 本章内容及要求： （1）掌握For…..Next语句及Exit For语句的使用； （2）掌握Do….Loop循环语句与Exit Do语句的使用； （3）掌握循环结构的嵌套应用； （4）掌握循环结构和选择结构的嵌套应用。 当前第3页\共有48页\编于星期二\10点 6.1 概述 在Visual Basic程序设计中，实现循环结构的语句主要有下列几种： l For…Next语句 Do…Loop语句 l While…Wend语句 Do While条件 …Loop形式 Do …Loop While 条件形式 Do Until 条件 …Loop形式 Do …Loop Until 条件形式 Do …Loop形式 当前第4页\共有48页\编于星期二\10点 打印九九乘法表????? 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? 当前第5页\共有48页\编于星期二\10点 For循环语句 (一般用于循环次数已知) 形式： For 循环变量＝初值 to 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量] 循环体 =0 循环变量=终值 0 循环变量=终值 =1 可省略 步长 6.2 For...Next循环结构 当前第6页\共有48页\编于星期二\10点 循环次数 例: For I=2 To 13 Step 3 Print I , Next I Print “I=“, I 循环执行次数 4 输出I的值分别为: 2 5 8 11 出了循环输出为: I=14 6.2 For...Next循环结构 当前第7页\共有48页\编于星期二\10点 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 当前第