1、1第五章第五章 循环结构、列表循环结构、列表框和组合框框和组合框5.1 循环语句循环语句 5.2 循环嵌套循环嵌套 5.3 列表框和组合框列表框和组合框25.1 循环语句循环语句5.1.1 ForNext结构结构For 循环变量循环变量=初值初值 To 终值终值 Step 步长步长 Exit ForNext 循环变量循环变量3（1）计算初值、终值及步长表达式的值，并将初值）计算初值、终值及步长表达式的值，并将初值赋给循环变量；赋给循环变量；（2）判断循环变量的值是否）判断循环变量的值是否“超过超过”终值：终值：当步长为正时，当步长为正时，“超过超过”是指循环变量的值是指循环变量的值终值；终值；
2、当步长为负时，当步长为负时，“超过超过”是指循环变量的值是指循环变量的值终值；终值；若若“超过超过”时，退出循环，转到时，退出循环，转到Next语句的下一语语句的下一语句；句；（3）执行循环体中的语句；）执行循环体中的语句；（4）执行）执行Next语句，语句，循环变量增加一个步长循环变量增加一个步长；（5）返回第（）返回第（2）步。）步。4循环变量 终值?循环变量=初值执行循环体Y循环变量=循环变量+步长N步长为负步长为负循环变量 终值?循环变量=初值执行循环体Y循环变量=循环变量+步长N步长为正步长为正结构流程图结构流程图5（1）“循环变量循环变量”必须为数值型必须为数值型；（2）“初值初值
3、”、“终值终值”为数值表达式，若值不是整为数值表达式，若值不是整数，系统会自动取整；数，系统会自动取整；（3）“步长步长”为数值表达式，可为正数，也可为负数，为数值表达式，可为正数，也可为负数，若值不是整数，系统会自动取整；若值不是整数，系统会自动取整；分步长大于分步长大于0、步长、步长小于小于0、步长等于、步长等于0这几种情况这几种情况。步长等于。步长等于1时，可省略时，可省略Step子句；子句；例如：例如：For i10 To 1 Step 1 Print i Next i6（4）循环次数的计算公式循环次数的计算公式：循环次数循环次数Int(终值终值-初值初值)步长步长+1)，若所得为负数
4、，则取循环次数若所得为负数，则取循环次数0。（5）循环必须遵循循环必须遵循“先检查、后执行先检查、后执行”的原则的原则。（6）Exit For语句语句。该语句允许在循环体内出现一次或。该语句允许在循环体内出现一次或多次。多次。（7）Next后面的循环变量与后面的循环变量与For语句中的循环变量语句中的循环变量必须必须相同相同，且两者必须，且两者必须成对出现成对出现。（8）在）在For循环体中改变循环控制变量的值，将会影响循环体中改变循环控制变量的值，将会影响循环次数。循环次数。例如：例如：Dim s As Integer,i As Integer For i1 To 10 s=s+i ii+1
5、 Next i执行几次？执行几次？5 5次次71、单击窗体时，在窗体上打印输出、单击窗体时，在窗体上打印输出5个个“_”符符号。号。8程序代码如下：程序代码如下：Private Sub Form_Click()For i=1 To 5 Print _ 循环体循环体 Next i End Sub 92、通过循环变量的变化在窗体上输出彩色字，、通过循环变量的变化在窗体上输出彩色字，程序运行界面如图所示。程序运行界面如图所示。10i 2000?i=1green=Int(255*Rnd+1)blue=Int(255*Rnd+1)CurrentX=500+iCurrentY=500+iForeColor
6、=RGB(i,green,blue)Print 欢迎来到VB世界Yi=i+200N11Private Sub Form_Click()Dim i As Integer,green As Integer,blue As Integer Randomize Timer For i=1 To 2000 Step 200 green=Int(255*Rnd+1)blue=Int(255*Rnd+1)CurrentX=500+i CurrentY=500+i ForeColor=RGB(i,green,blue)Print 欢迎来到欢迎来到VB世界世界 Next iEnd Sub12编写程序找出编写程序
7、找出100999之间的所有之间的所有“水仙花水仙花数数”。所谓。所谓“水仙花数水仙花数”是指一个三位数，其是指一个三位数，其各位数字的立方和等于该数本身。各位数字的立方和等于该数本身。13Private Sub Form_Click()Dim x As Integer Dim y As Integer Dim z As Integer For i=100 To 999 x=i 100 y=(i-x*100)10 z=i-x*100-y*10 If x 3+y 3+z 3=i Then Text1.Text=Text1.Text&CStr(i)End If Next iEnd Sub145.1.
8、2 DoLoop结构结构1、DoLoop语句语句2、Do WhileLoop语句语句3、DoLoop While语句语句4、Do UntilLoop语句语句5、DoLoop Until语句语句151、DoLoop语句语句Do Exit DoLoop 其中，其中，Exit Do语句是可选语句，它提供一种语句是可选语句，它提供一种退出退出Do循环的方法，并且只能在循环的方法，并且只能在Do循环中使用，循环中使用，可以在循环体任何位置放置任意多个可以在循环体任何位置放置任意多个Exit Do语句。语句。根据所在位置，确定要退出的循环根据所在位置，确定要退出的循环。要有退出循环要有退出循环的语句的语句
9、16Dim n As Integer n0 Do n=n+1 If n10 Then Exit Do End If Loop程序运行时程序运行时，循环体语句循环体语句nn+1被重复执行被重复执行10次次后后，因执行语句因执行语句If n10 Then Exit Do End If时时，满足条件满足条件n10，退出循环。退出循环。17 Do While Exit Do Loop2、Do WhileLoop语句语句18条件为真?执行循环体YN首先判断首先判断条件表达式的条件表达式的值是否为值是否为True。若为。若为True，则执行循环体中，则执行循环体中的语句，当执行到的语句，当执行到Loop语
10、句时，返回到语句时，返回到Do While语句，继续判断条语句，继续判断条件表达式的值是否为件表达式的值是否为True；若为；若为False，则，则退出循环，执行退出循环，执行Loop后后面的语句。如此反复执面的语句。如此反复执行，直到条件表达式的行，直到条件表达式的值为值为False才退出循环。才退出循环。必须存在改必须存在改变条件表达变条件表达式的语句式的语句19 Do、Loop、While都是关键字，都是关键字，Do While和和Loop应成对出现应成对出现；条件表达式为关系或逻辑型条件表达式为关系或逻辑型，若为数值型，以，若为数值型，以0表示表示False，非，非0表示表示True；
11、Do WhileLoop语句是语句是先判断条件后执行循环先判断条件后执行循环体，有可能一次也不执行体，有可能一次也不执行；遇到遇到Exit Do语句时，将强制提前结束循环语句时，将强制提前结束循环，执行执行Loop后的下一条语句，该语句允许在循环体后的下一条语句，该语句允许在循环体内出现一次或多次。内出现一次或多次。203、Do Loop While语句语句 Do Exit Do Loop While21首先执行首先执行一次循环体一次循环体内的语句，执行到内的语句，执行到Loop while语句时，判语句时，判断条件表达式的值是断条件表达式的值是否为否为True。若为。若为True，则返回到循
12、环体的开则返回到循环体的开始语句，再次执行循始语句，再次执行循环体，这样一直到条环体，这样一直到条件表达式的值为件表达式的值为False时才退出循环。时才退出循环。执行循环体条件为真？NY必须存在改必须存在改变条件表达变条件表达式的语句式的语句22区别：区别：Do While.Loop循环先测试条件是否循环先测试条件是否成立；成立；Do.Loop While循环先执行一次循环循环先执行一次循环体。体。条件为真？执行循环体YN执行循环体条件为真？NY23例如：例如：程序段程序段1：Dim n As Integer n=1 Do While n1 n=n+1 Loop Print n程序段程序段2
13、：Dim n As Integer n=1 Do n=n+1 Loop While n1 Print n输出结果为：输出结果为：1 输出结果为：输出结果为：2244、Do UntilLoop语句语句 Do Until Exit Do Loop25首先判断首先判断条件表达式的条件表达式的值是否为值是否为False。若是。若是False，则执行循环体，则执行循环体，当执行到当执行到Loop语句时，语句时，返回到返回到Do Until语句，语句，继续判断条件表达式的继续判断条件表达式的值是否为值是否为False；若是；若是True，则退出循环，执，则退出循环，执行行Loop后面的语句。如后面的语句。
14、如此反复执行，直到条件此反复执行，直到条件表达式的值为表达式的值为True才退才退出循环。出循环。条件为真？执行循环体NY26例如：求例如：求s=1+2+3+100的值。的值。方法方法1：用用Do WhileLoop语句实现的：语句实现的：Dim n As Integer,s As Integer n=1 s=0Do While n100 s=s+n n=n+1LoopPrint sn=100 s=s+n n=n+1 Loop Print sn10028 Do Exit Do Loop Until 5、Do Loop Until语句语句29首先执行首先执行一次循环体内一次循环体内的语句，执行到
15、的语句，执行到Loop Until 语句时，判断条语句时，判断条件表达式的值是否为件表达式的值是否为False。若为。若为False，则，则返回到循环体的开始语返回到循环体的开始语句，再次执行循环体，句，再次执行循环体，这样一直到条件表达式这样一直到条件表达式的值为的值为True时才退出循时才退出循环。环。执行循环体条件为真？YN30例例【5-6】：编写程序在标签中显示：编写程序在标签中显示1100之之间既能被间既能被3整除又能被整除又能被7整除的整数，并计算它整除的整数，并计算它们的和。要求用们的和。要求用DoLoop While和和DoLoop Until两种语句分别编写循环体部分。两种语
16、句分别编写循环体部分。31编程思路：编程思路：程序的循环次数是确定的，即从程序的循环次数是确定的，即从1到到100。对于用对于用DoLoop While语句编写循环体部分，语句编写循环体部分，While后的条件表达式是满足条件执行循环，所以条件表达后的条件表达式是满足条件执行循环，所以条件表达式是式是“n 100”。32Private Sub ComputeCmd _Click()Dim n As Integer,s As Integer Dim t As String n=1：s=0：t=Do If n Mod 3=0 And n Mod 7=0 Then t=t&Str(n)t=t&,s=
17、s+n End If n=n+1 Loop While n 100 NumLabel.Caption=t SumLabel.Caption=sEnd Sub34按下列公式计算：按下列公式计算：e=1+1/1！+1/2！+1/3！+1/n！+使使1/n！小于！小于0.000001Private Sub Form_Click()Dim e As Double Dim i As Integer Dim fact As Double Dim result As Long e=0:i=1:fact=1:result=1 Do fact=1/result e=e+fact result=result*i
18、i=i+1 Loop While fact 0.000001 Label1.Caption=Val(e)End Sub35S=1*(1+2)*(1+2+3)*(1+2+3+n)编程求编程求S不大于不大于20000时最大的时最大的n值值 36Private Sub Form_Click()Dim sum As Long Dim s As Long Dim n As Integer sum=0:s=1:n=0 Do n=n+1 sum=sum+n s=s*sum Loop Until s 20000 Label3.Caption=Val(n-1)End Sub37定义：定义：在一个循环体中含有另一
19、个循环结构，这就在一个循环体中含有另一个循环结构，这就构成了循环的嵌套。以上几节介绍的循环语句都可构成了循环的嵌套。以上几节介绍的循环语句都可以实现循环嵌套。两层的循环嵌套，称为二重循环，以实现循环嵌套。两层的循环嵌套，称为二重循环，三层以上的循环嵌套，称为多重循环。三层以上的循环嵌套，称为多重循环。5.2 循环嵌套循环嵌套38(1)对于对于ForNext的循环嵌套，的循环嵌套，在每层循环中的在每层循环中的控制变量要使用不同的变量名控制变量要使用不同的变量名。(2)内循环结构语句必须完整地嵌在外循环体中，内循环结构语句必须完整地嵌在外循环体中，不可交叉不可交叉。DoLoop或或ForNext语
20、句需成对使用，语句需成对使用，Visual Basic会给会给每个循环结构结束语句每个循环结构结束语句(Loop或或Next)匹配最近的循环结构开始语句匹配最近的循环结构开始语句(Do或或For)。(3)多重循环执行时，多重循环执行时，外循环每重复执行一次，内外循环每重复执行一次，内循环则要完整地执行其应重复的次数循环则要完整地执行其应重复的次数。39例例【5-8】：打印如图：打印如图5-15所示的上三角的所示的上三角的九九乘法表。九九乘法表。40程序代码如下：程序代码如下：Private Sub Form_Click()Dim s As String Print Tab(45);九九乘法表九
21、九乘法表 Print Tab(45);=For i=1 To 9 For j=1 To i s=i&*&j&=&i*j Print s;Spc(5);Next j Print Next iEnd Sub41在窗体上打印星号在窗体上打印星号“*”矩形矩形42Private Sub Command1_Click()Dim n As Integer n=Val(Text1.Text)For i=1 To n For j=1 To n Print*;Next j Print Next iEnd Sub435.3 列表框与组合框列表框与组合框1.常用属性常用属性(1)Columns属性：属性：用于设置列
22、表项排列的列数。用于设置列表项排列的列数。取值为取值为0，按单列显示，垂直滚动条；取值为，按单列显示，垂直滚动条；取值为1，按单列显示，水平滚动条；取值大于按单列显示，水平滚动条；取值大于1，多列显示。，多列显示。(2)List属性：属性：是一个是一个字符型数组字符型数组，用于存放列表框，用于存放列表框的选项内容，其元素与列表的选项相对应，的选项内容，其元素与列表的选项相对应，下标从下标从0开始开始。(3)ListCount属性：属性：列表框中条目的个数，列表框中条目的个数，ListCount-1表示最后一项的序号。表示最后一项的序号。只能在程序中引只能在程序中引用用。5.3.1 列表框列表框
23、44(4)ListIndex属性：属性：表示运行时被选定的选项的序表示运行时被选定的选项的序号（下标）。号（下标）。只能在程序中引用只能在程序中引用。(5)Selected属性：属性：一个逻辑型数组，表示运行时对一个逻辑型数组，表示运行时对应选项被选中或未被选中。应选项被选中或未被选中。只能在程序中引用只能在程序中引用。(6)Sorted属性：属性：列表框中的条目是否按字母顺序列表框中的条目是否按字母顺序排列显示。排列显示。只能在属性窗口设置只能在属性窗口设置。(7)Text属性：属性：返回当前被选中项目的文本内容。返回当前被选中项目的文本内容。只能在程序中引用只能在程序中引用。(8)Mult
24、iSelect属性：属性：设置能否多项选项以及如何设置能否多项选项以及如何进行选择。进行选择。只能在属性窗口设置只能在属性窗口设置。(9)Style属性：属性：设置控件外观。设置控件外观。452.常用方法常用方法(1)AddItem方法方法格式：格式：列表框名列表框名AddItem，下标，下标说明：说明：用于在列表框指定位置上添加一个新项目。用于在列表框指定位置上添加一个新项目。如果下标省略，则把如果下标省略，则把文本添加到列表框的文本添加到列表框的尾部，下标范围从尾部，下标范围从0到到ListCount-1。(2)Clear方法方法格式：格式：列表框名列表框名Clear说明：说明：用于清除列
25、表框中的全部内容。执行该方法用于清除列表框中的全部内容。执行该方法后，后，ListCount重新被设置为重新被设置为0。463.事件事件 列表框能够响应列表框能够响应Click事件和事件和DblClick事件。事件。如果如果在在Click事件中有代码，则事件中有代码，则DblClick事件将永远不会事件将永远不会被触发被触发，因为，因为Click事件是优先被触发的事件。事件是优先被触发的事件。(3)RemoveItem方法方法格式：格式：列表框名列表框名RemoveItem 说明：说明：用于删除列表框中指定位置上的项目，下标用于删除列表框中指定位置上的项目，下标必须小于必须小于ListCoun
26、t-1，否则程序出错。，否则程序出错。471.特有属性特有属性(1)Style属性：属性：决定组合框的类型和显示方式。决定组合框的类型和显示方式。取值为取值为0，下拉式组合框；取值为，下拉式组合框；取值为1，简单组合，简单组合框，没有下拉箭头；取值为框，没有下拉箭头；取值为2，下拉列表式组合框。，下拉列表式组合框。(2)Text属性属性 获取组合框当前选定项目值的最简单最常用方法获取组合框当前选定项目值的最简单最常用方法就是使用就是使用Text属性。组合框在运行时属性。组合框在运行时Text属性都与属性都与最后文本框中显示的文本相对应。该文本既可以是选最后文本框中显示的文本相对应。该文本既可以
27、是选中的列表项目，也可以是用户在文本框中输入的文本。中的列表项目，也可以是用户在文本框中输入的文本。5.3.2 组合框组合框MultiSelect、Selected属性属性与列表框形同与列表框形同482.事件事件组合框响应的事件与组合框响应的事件与Style属性有关。属性有关。Style=0时，能响应时，能响应Click、Change和和DropDown事件。事件。Style=1时，能响应时，能响应DblClick、Click和和Change事件。事件。Style=2时，只能响应时，只能响应Click和和DropDown事件。事件。小结小结 本章主要介绍本章主要介绍ForNext语句、语句、DoLoop语语句、句、Do WhileLoop语句、语句、DoLoop While语语句、句、Do UntilLoop语句和语句和DoLoop Until语句。语句。本章最后介绍了列表框和组合框的使用。本章最后介绍了列表框和组合框的使用。
