vb第5讲 循环结构程序设计.pptVIP

第5章 循环结构程序设计 实现语句： 计数循环（For-Next） 当循环（While-Wend） Do循环（Do-Loop） 5.5 Go To型控制语句 1．GoTo语句 【格式】GoTo 标号|行号 【功能】无条件地使程序的执行转到“标号或行号”所指定的那行语句。 【说明】 （1）“标号”是一个以英文字母开头，以冒号结尾的标识符；“行号”是一个整型数，不以冒号结尾，例如： Start: 一个标号 1200???????????????????????????一个行号 （2）GoTo语句中的标号和行号都必须与GoTo语句出现在同一个过程中，并且是唯一的。 （3）使用GoTo语句，容易使程序结构不清晰、可读性差，在结构化程序设计中应尽量少用或不用GoTo语句。 AddItem 对象.AddItem item [, index] RemoveItem 对象.RemoveItem index Clear 对象.Clear 说明：“对象”可是列表框、组合框或剪贴板。 5.7 应用举例 Private Sub Form_Click() Dim a As Long, b As Long, temp As Long Dim n As Integer, k As Integer:Dim sum As Long a = 0: b = 1: :sum = 0 For n = 1 To 40 sum = sum + a temp = a: a = b: b = temp + a Next n Print Print 前40项的和为： sum End Sub n a b sum 1 0 1 0 1 1 1 2 2 3 3 5 6 5 8 f1=0 (n=1) f2=1 (n=2) fn=fn-1+fn-2 (n≥3) If k = 5 Then Print: k = 0 k = k + 1 k = 1 1 2 4 7 12 Print Tab(k * 16 - 15); a; 当前项 下一项 在指定条件下多次反复执行一组语句。 实现循环结构程序设计。 5.1 For循环语句 5.2 当循环语句 5.3 Do-Loop循环语句 5.4 多重循环 5.5 GoTo型控制语句 5.6 列表框、组合框和滚动条 5.7 应用举例 5.1 For循环语句 For 循环变量 = 初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量] “计数循环”，循环次数已知。 循环变量：一个数值变量。 初值、终值和步长：数值表达式，常量、变量或运算式。 【说明】 0 : 初值终值 步长=1 时,可省略 0: 初值终值 =0: 死循环 步长 T F 循环变量得初值 循环变量加步长 循环变量在终值内 语句块 Exit For 语句块 循环次数 For i=2 To 13 Step 3 Print i , Next i 循环执行次数 2 5 8 11 i=14 省略：１ For 循环变量 = 初值 To 终值 [Step 步长] 语句块 [Exit For] 语句块 Next [循环变量] T F 循环变量得初值 循环变量加步长 循环变量在终值内 语句块 Exit For 语句块 【说明】 循环体：For和Next之间，每次循环被重复执行的部分。 Exit For：强制退出循环。 可放置在循环体的任意处，数量不限，在条件语句中使用。 相同 在循环体内，可以引用循环变量，但如果改变了循环变量的值，容易引起意外的错误。 For i=1 To 5 i=i+1 Next i 循环次数? 3 练习：分析下面程序段结束时窗体上显示的值是多少？ (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 1