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

第6章 VB控制结构（2） ——循环结构程序设计 本章内容及要求： （1）掌握For…..Next语句及Exit For语句的使用； （2）掌握Do….Loop循环语句与Exit Do语句的使用； （3）掌握循环结构的嵌套应用； （4）掌握循环结构和选择结构的嵌套应用。 6.5 嵌套结构 6.5 嵌套结构 Exit Do和Exit For语句在循环嵌套时的作用 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 嵌套结构 例: 编一程序，显示出所有的水仙花数。所谓水仙花数，是指一个三位数，其各位数字立方和等于该数字本身。例如，153是水仙花数，因为： 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形式 打印九九乘法表????? 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 [循环变量] 循环体 =0 循环变量=终值 0 循环变量=终值 =1 可省略 步长 6.2 For...Next循环结构 循环次数 例: 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循环结构 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循环结构 注意对于For…Next语句来说，一旦进入循环，其“终止值”和“增量”便不会再改变了。 Private Sub Form_Click() Dim i As Integer, j As Integer, k As Integer j = 10: k = 1 For 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