VB程序循环结构、列表框和组合框.ppt

1 第五章 循环结构、列表 框和组合框 5.1 循环语句 5.2 循环嵌套 5.3 列表框和组合框 2 5.1 循环语句 5.1.1 ForNext结构 For 循环变量=初值 To 终值 Step 步长 Exit For Next 循环变量 具体格式：具体格式： 3 （1）计算初值、终值及步长表达式的值，并将初值 赋给循环变量； （2）判断循环变量的值是否“超过”终值： 当步长为正时，“超过”是指循环变量的值终值； 当步长为负时，“超过”是指循环变量的值 Exit Do Loop 其中，Exit Do语句是可选语句，它提供一种 退出Do循环的方法，并且只能在Do循环中使用， 可以在循环体任何位置放置任意多个Exit Do语句 。根据所在位置，确定要退出的循环。 要有退出循环 的语句 16 Dim 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 Loop 2、Do WhileLoop语句 18 条件为真? 执行循环体 Y N 首先判断条件表达式的值 是否为True。若为True ，则执行循环体中的语句 ，当执行到Loop语句时 ，返回到Do While语句 ，继续判断条件表达式的 值是否为True ；若为 False，则退出循环，执 行Loop后面的语句。如 此反复执行，直到条件表 达式的值为False才退出 循环。 必须存在改 变条件表达 式的语句 19 Do、Loop、While都是关键字，Do While和 Loop应成对出现； 条件表达式为关系或逻辑型，若为数值型，以 0表示False，非0表示True； Do WhileLoop语句是先判断条件后执行循环 体，有可能一次也不执行； 遇到Exit Do语句时，将强制提前结束循环， 执行Loop后的下一条语句，该语句允许在循环体 内出现一次或多次。 注意事项：注意事项： 20 3、Do Loop While语句 具体格式：具体格式： Do Exit Do Loop While 21 首先执行一次循环体内 的语句，执行到Loop while语句时，判断条 件表达式的值是否为 True。若为True，则 返回到循环体的开始语 句，再次执行循环体， 这样一直到条件表达式 的值为False时才退出 循环。 执行循环体 条件为真？ N Y 必须存在改 变条件表达 式的语句 22 区别：Do While.Loop循环先测试条件是否 成立；Do.Loop While循环先执行一次循环 体。 条件为真？ 执行循环体 Y N 执行循环体 条件为真？ N Y 23 例如： 程序段1： Dim n As Integer n=1 Do While n Exit Do Loop 25 首先判断条件表达式的 值是否为False。若是 False，则执行循环体 ，当执行到Loop语句时 ，返回到Do Until语句 ，继续判断条件表达式 的值是否为False；若 是True，则退出循环， 执行Loop后面的语句。 如此反复执行，直到条 件表达式的值为True才 退出循环。 条件为真？ 执行循环体 N Y 26 例如：求s=1+2+3+100的值。 方法1：用Do WhileLoop语句实现的： Dim n As Integer ,s As Integer n=1 s=0 Do While n=100 s=s+n n=n+1 Loop Print s n100 28 具体格式：具体格式： Do Exit Do Loop Until 5、Do Loop Until语句 29 首先执行一次循环体内 的语句，执行到Loop Until 语句时，判断条 件表达式的值是否为 False。若为False，则 返回到循环体的开始语 句，再次执行循环体， 这样一直到条件表达式 的值为True时才退出循 环。 执行循环体 条件为真？ Y N 30 例【5-6】：编写程序在标签中显示1100之 间既能被3整除又能被7整除的整数，并计算它 们的和。要求用DoLoop While和DoLoop Until两种语句分别编写循环体部分。 31 编程思路：程序的循环次数是确定的，即从1到100 。对于用DoLoop While语句编写循环体部分， While后的条件表达式是满足条件执行循环，所以条 件表达式是“n 100”。 32 Private 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 “九九乘法表“ Print Tab(45); “=“ For i = 1 To 9 For j = 1 To i s = i Spc(5); Next j Print Next i End Sub 41 在窗体上打印星号“*”矩形 42 Private 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 i End Sub 43 5.3 列表框与组合框 1.常用属性 (1) Columns属性：用于设置列表项排列的列数。 取值为0，按单列显示，垂直滚动条；取值为1， 按单列显示，水平滚动条；取值大于1，多列显示。 (2) List属性：是一个字符型数组，用于存放列表框 的选项内容，其元素与列表的选项相对应，下标从0 开始。 (3) ListCount属性：列表框中条目的个数， ListCount-1表示最后一项的序号。只能在程序中引 用。 5.3.1 列表框 44 (4) ListIndex属性：表示运行时被选定的选项的序 号（下标）。只能在程序中引用。 (5) Selected属性：一个逻辑型数组，表示运行时对 应选项被选中或未被选中。只能在程序中引用。 (6) Sorted属性：列表框中的条目是否按字母顺序排 列显示。只能在属性窗口设置。 (7) Text属性：返回当前被选中项目的文本内容。只 能在程序中引用。 (8) MultiSelect属性：设置能否多项选项以及如何 进行选择。只能在属性窗口设置。 (9) Style属性：设置控件外观。 45 2.常用方法 (1) AddItem方法 格式：列表框名AddItem ，下标 说明：用于在列表框指定位置上添加一个新项目。 如果下标省略，则把文本添加到列表框的 尾部，下标范围从0到ListCount-1。 (2) Clear方法 格式：列表框名Clear 说明：用于清除列表框中的全部内容。执行该方法 后，ListCount重新被设置为0。 46 3.事件 列表框能够响应Click事件和DblClick事件。如果 在Click事件中有代码，则DblClick事件将永远不会 被触发，因为Click事件是优先被触发的事件。 (3) RemoveItem方法 格式：列表框名RemoveItem 说明：用于删除列表框中指定位置上的项目，下标 必须小于ListCount-1，否则程序出错。 47 1.特有属性 (1) Style属性：决定组合框的类型和显示方式。 取值为0，下拉式组合框；取值为1，简单组合 框，没有下拉箭头；取值为2，下拉列表式组合框。 (2) Text属性 获取组合框当前选定项目值的最简单最常用方法 就是使用Text属性。组合框在运行时Text属性都与 最后文本框中显示的文本相对应。该文本既可以是选 中的列表项目，也可以是用户在文本框中输入的文本 。 5.3.2 组合框 MultiSelect、 Selected属性 与列表框形同 48 2.事件 组合框响应的事件与Style属性有关。 Style=0时，能响应Click、Change和DropDown事件