《Visual Basic程序设计 教学课件 ppt 作者 刘瑞新 VB6》由会员分享，可在线阅读，更多相关《Visual Basic程序设计 教学课件 ppt 作者 刘瑞新 VB6（20页珍藏版）》请在金锄头文库上搜索。
1、本章主要内容： For.Next循环语句 Do.Loop循环语句 列表框和组合框控件,第6章 循环结构设计,6.1 ForNext循环语句 1. For.Next语句的语法格式 For.Next语句的语法格式为： For 循环变量=初值 To 终值 Step 步长 语句组1 Exit For 语句组2 Next 循环变量,说明： 循环变量为必要参数，是用做循环计数器的数值变量，这个变量不能是数组元素。 初值和终值都是必要参数。 步长可以是正数或负数。当步长的值为1时，可以省略。 如果省略Next语句中的循环变量，将不影响循环的执行。但如果Next语句在它相对应的For语句之前出现，则会产生错误
2、。,2. For.Next语句的执行过程 进入ForNext循环后，首先把初值赋给循环变量，检查循环变量的值是否超过终值。如果超过就停止执行循环体，跳出循环，执行Next后面的语句；否则执行一次循环体，然后把循环变量+步长的值赋给循环变量，重复上述过程。 这里所说的“超过”有两种含义，即大于或小于。 当步长为正值时，检查循环变量的值是否大于终值； 当步长为负值时，检查循环变量的值是否小于终值。 可以在循环中的任何位置放置任意个Exit For语句，随时退出循环。,3. For.Next循环的循环次数 ForNext循环遵循“先检查，后执行”的原则，即先检查循环变量是否超过终值，然后决定是否执行
3、循环体。因此，在下列两种情况下，循环体不被执行： 当步长为正数时，初值大于终值。 当步长为负数时，初值小于终值。 因次，循环的最少执行次数为0次。 当初值等于终值时，不管步长是正数还是负数，均执行一次循环体。 循环次数由初值、终值和步长三个因素决定。可以通过下式计算： 循环次数=INT(终值-初值)/步长+1) 如果计算出的循环次数小于或者等于0，循环次数为0，这时系统将不执行循环体。,4. For.Next语句使用示例 【例6-1】 【例6-2】 5. For.Next语句的嵌套 For.Next循环可以嵌套使用，嵌套层数没有具体限制，其基本要求是： 每个循环必须有一个唯一的变量名作为控制变
4、量； 内层循环必须完全放在外循环体内，内外循环不得互相交叉骑跨。 例如，下面的嵌套是错误的： For a=1 To 5 For b=3 To 9 . Next a Next b,For.Next循环的嵌套通常有以下3种形式： 一般嵌套形式。 For a1=. For a2=. For a3=. . Next a3 Next a2 Next a1 上式中Next后面的a1、a2、a3可以省略不写。, 当内层循环与外层循环有相同的终点时，可共用一个Next语句。但是，控制变量名不能省略。例如： For a=1 To 2 For b=2 To 3 For c=3 To 4 Print a , b ,
5、 c Next c , b , a 【例6-3】 【例6-4】 【例6-5】,6.2 DoLoop循环语句 6.2.1 前测型DoLoop循环语句 1. 前测型DoLoop的语法格式 前测型DoLoop循环结构的循环特点是：先判断循环条件，根据条件决定是否执行循环体，执行循环体的最少次数为0。 其语法格式为： Do While | Until 条件 语句组1 Exit Do 语句组2 Loop 说明： 条件是条件表达式，为循环的条件，其值为True或False。 语句组是一条或多条命令（循环体），当或直到条件为True时被重复执行。,2. 前测型DoLoop的执行过程 前测型DoLoop循环语
6、句是先判断条件，再执行循环体。根据条件，分为当型和直到型。 l 当型Do WhileLoop：当条件为真（True）时执行循环体，条件为假（False）时，终止循环。 l 直到型Do UntilLoop：当条件为假时执行循环体，直到条件为真时，终止循环。 在DoLoop中，可以在循环体中放置任意个数的Exit Do语句，随时跳出DoLoop循环。Exit Do通常用于条件判断之后，例如IfThen，在这种情况下，Exit Do语句将控制权转移到紧接在Loop命令之后的语句。如果Exit Do使用在嵌套的DoLoop语句中，则Exit Do会将控制权转移到Exit Do所在位置的外层循环。 3.
7、 前测型DoLoop使用示例 【例6-6】 【例6-7】 【例6-8】,6.2.2 后测型DoLoop循环语句 后测型DoLoop循环结构的执行特点是：先执行循环体，然后判断条件，根据条件决定是否继续执行循环，因此执行循环的最少次数为1。 1. 后测型DoLoop的语法格式 后测型DoLoop循环结构的语法格式为： Do 语句组1 Exit Do 语句组2 Loop While | Until 条件 说明： 条件是条件表达式，为循环的条件，其值为True或False。 语句组是一条或多条命令（循环体）。当或直到条件为True时，被重复执行。,2. 后测型DoLoop的执行过程 后测型DoLoo
8、p是先执行一次循环体后，再进行条件判断。分为当型和直到型： l 当型DoWhile Loop：当条件为真（True）时继续执行循环体，条件为假（False）时，终止循环。 l 直到型DoUntil Loop：当条件为假时继续执行循环体，直到条件为真时，终止循环。 在DoLoop中，可以在循环体中放置任意个数的Exit Do语句，随时跳出DoLoop循环。 3. 后测型DoLoop使用示例 【例6-9】 【例6-10】,6.3 列表框与组合框控件 如果需要向用户提供包含一些选项和信息的列表，由用户从中进行选择，可使用列表框和组合框。 列表框与组合框在使用中是不相同的。 l 列表框：任何时候都能看
9、到多个选项。 l 组合框：平时只能看到一个选项，用鼠标单击向下按钮可看到多项的列表。 6.3.1 列表框 列表框（ListBox）通过显示多个选择项，供用户选择其中一项，达到与用户对话的目的。如果有较多的选择项，超出所画的区域而不能一次全部显示时，VB会自动加上垂直滚动条。,如图6-14所示，画出两个列表框，选中某列表框，在属性框中修改其List属性值，每输入一个选项后，按Ctrl+Enter换行，继续输入下一选项。,1. 列表框的属性 (1) 基本属性 列表框的常用属性有Name、Enabled、Visible、Index等。 (2) List属性 设置或返回列表中选项。该属性是一个字符型数
10、组，存放列表框的项目。List数组的下标是从0开始的，例如List1.List(1)表示列表框List1中第2项的值。 (3) Text属性 设置或返回列表中当前选项的文本内容。 (4) ListCount属性 返回列表框中项目的数量。ListCount 1 表示列表中最后一项的序号。 (5) ListIndex属性 返回选中的列表项序号。如果未选中任何项，则ListIndex的值为 1。,(7) Sorted属性 决定列表框中项目在程序运行期间是否按字母顺序排列显示。如果Sorted为True，则项目按字母顺序排列显示；如果Sorted为False，则按项目的加入先后顺序排列显示。 (8)
11、MultiSelect属性 0None：禁止多项选择，这时在一个列表框中只能选择一项。 1Simple：简单多项选择，用鼠标单击或按空格键表示选定或取消选定一个选择项。 2Extended：扩展多项选择，按下Ctrl键不放，同时用鼠标单击或按空格键表示选定或取消选定一个选择项，按下Shift键同时单击鼠标，或者按下Shift键并且移动光标键，就可以从前一个选定的项扩展选择到当前选择项，即选定多个连续项。,2. 列表框的方法 列表框控件常用的方法见表6-1。 表6-1 列表框控件常用的方法,3. 列表框使用示例 【例6-11】 【例6-12】 【例6-13】 6.3.2 组合框 组合框有3种不同
12、风格，即下拉组合框、简单组合框和下拉列表框。组合框的风格由Style属性值决定，其值分别为0、1、2。如图6-20所示。,1. 下拉组合框 下拉组合框的Style属性为0（缺省），显示在屏幕上的仅是文本编辑框和一个下拉箭头。执行时，用户可用键盘直接在文本框区键入内容，也可用鼠标单击右边的下拉箭头，打开列表框供用户选择，选中内容显示在文本框上。 2. 简单组合框 简单组合框的Style属性为1。它列出所有的项目供用户选择，右边没有下拉箭头，列表框不能被收起和拉下，与文本编辑框一起显示在屏幕上。可以在文本框中用键盘输入列表框中没有的选项。,3. 下拉列表框 下拉列表框的Style属性为2。其功能与下拉组合框类似，区别是不能输入列表框中没有的项。 4. 组合框使用示例 【例6-14】 6.4 习题,
