469-第7章VB控制结.pptVIP

第7章 VB控制结构 （3）.用Do Until condition statements Loop结构 ? Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0 i = 1 Do Until i 100’条件不成立时执行循环体。 sum = sum + i i = i + 1 Loop Print sum End Sub 第7章 VB控制结构 (4).用Do statements Loop Until condition结构 Private Sub Command1_Click() Dim i As Integer, sum As Integer sum = 0: i = 1 Do sum = sum + i i = i + 1 Loop Until i 100’条件不成立时执行循环体。 Print sum End Sub 第7章 VB控制结构 3、For...Next For 循环变量=初值 To 终值 [Step 步长] 循环体 Next [循环变量] 例如： For i=1 To 100 Step 2 循环体 Next i ? For i=100 To 1 Step –2 循环体 Next i 适用于循环次数已知的情况。 ? For 循环使用一个叫做计数器的变量，每重复一次循环之后，计数器变量的值就会自动增加或者减少步长的数值。 第7章 VB控制结构 注意： (1)、步长 参数可正可负。如果步长为正，则循环变量的初值必须小于等于终值，否则不能执行循环体内的语句。如果步长为负，则循环变量的初值必须大于等于终值，这样才能执行循环体。如果没有设置步长，则步长的缺省值为1。 第7章 VB控制结构 （2）、执行 For 循环的步骤： 1. 设置循环变量的初值 。 2. 测试循环变量的初值是否大于终值。若是的话，则 Visual Basic 退出循环。（若步长为负，则 Visual Basic 测试循环变量的初值是否小于终值。） 第7章 VB控制结构 3. 执行语句。 4. 循环变量增加一，或者增加一个步长（如果已指定的话）。 5. 重复步骤 2 到步骤 4。 第7章 VB控制结构 例题1：单重循环 以下代码打印出所有有效的屏幕字体名： Private Sub Form_Click () Dim I As Integer For i = 0 To Screen.FontCount Print Screen.Fonts (i) Next End Sub * 第1章 Visual FoxPro 6.0初步 第7章 VB控制结构 一、顺序结构 按照整个程序的书写顺序依次执行。 1、[Let] 变量名=表达式 Private Sub Command1_Click() Dim a As Integer, b As Integer Let a = 1:Let b = 2 Print a=; a:Print b=; b End Sub 第7章 VB控制结构 2．没有使用 Let的 语句 Private Sub Command1_Click() Dim a As Integer, b As Integer a = 1:b = 2 Print a=; a Print b=; b End Sub 第7章 VB控制结构 二、选择结构 Visual Basic 过程通过测试条件表达式，根据测试结果(真或假)执行不同的操作。Visual Basic 支持的判定结构有： 1、If...Then格式：单行条件语句的两种形式 （1）、If 条件 Then 语句： 条件和语句在同一行中。 第7章 VB控制结构 Private Sub Command1_Click() Dim a As Integer, b As Inte