VB语言程序设计循环结构程序设计.ppt

循环结构程序设计 第五章 第第5 5章章 循环结构循环结构 本章内容 5.1 循环语句 5.2 多重循环 5.3 列表框与组合框 5.4 常用算法 5.5 程序举例 第第5 5章章 循环结构循环结构 循环结构 循环三要素： (1) 初始化：决定循环的初始状态，即与循 环相关的变量的初始值； (2) 循环体：循环中反复执行的部分； (3) 循环的条件：决定循环结束的条件。 三种循环结构： for、 while 、do。 第第5 5章章 循环结构循环结构 FOR 循环 格式： For 循环变量初值 To 终值 Step 步 长 循环体 Exit For Next 循环变量 功能：按循环变量的初值、终值和步长所确 定的次数执行循环体。 第第5 5章章 循环结构循环结构 5.2 多重循环 在一个循环结构的循环体内含有另一个完 整的循环结构，称之为多重循环或嵌套循环 。 说明： 内外循环之间必须完整包含，不得交 叉。 内循环变量与外循环变量不能同名 。 第第5 5章章 循环结构循环结构 多重循环 正例：for i=1 to 10 for j=1 to 10 next j next i 内循环 j外循环 i 错例：for i=1 to 10 for j=1 to 10 next i next j 第第5 5章章 循环结构循环结构 例5.9 多重循环程序示例 Private Sub Form_Load() Show For i = 1 To 3 外循环 For j = 5 To 7 内循环 Print i, j Next j Next i End Sub 注意内、外循环层次要分清，不能交叉 第第5 5章章 循环结构循环结构 本例可采用两重循环来实现。外循环控制输出7行 ，内循环控制每行输出要求的字符数。 在进入内循环之前，使用Print Tab()来对起始输 出位置定位，退出内循环后，使用Print来控制换行。 例5.10 编一程序，输出下列所示的图形 第第5 5章章 循环结构循环结构 Private Sub Form_Load() Show For i = 1 To 7 Print Tab(10 - i); 输出位置 For j = 1 To 2 * i - 1 Print Chr(i + 48); Next j Print Next i End Sub 注意：Print Chr(i+48)与 Print i 有所不同 第第5 5章章 循环结构循环结构 (1)分析：设1元硬币为a枚，2元硬币为b枚，5元硬币为c枚 ，可列出方程 a+b+c=10 a+2b+5c=25 采用两重循环，外循环变量a从010，内循环变量b从010 (2)创建应用程序的用户界面 例5.11 取1元、2元、5元的硬币共10枚，付给25元钱，有 多少种不同的取法? 第第5 5章章 循环结构循环结构 Private Sub Form_Load() Show CurrentX = 0 : CurrentY = 1500 Print , “5元“, “2元“, “1元“ n = 0 记录解的 组数 For a = 0 To 10 For b = 0 To 10 c = 10 - b - a If a + 2 * b + 5 * c = 25 And c = 0 Then n = n + 1 Print “(“; n; “)“, c, b, a End If Next b, a 合并两个Next 语句 End Sub 第第5 5章章 循环结构循环结构 例 题 打印九九乘法表 。 第第5 5章章 循环结构循环结构 思考： 程序如何改动，可以得到如下结果 。 第第5 5章章 循环结构循环结构 列表框(ListBox) 第第5 5章章 循环结构循环结构 列表框(ListBox) 如果列表项数量超过列表框所能显示的数目， VB会自动为列表框加上滚动条。 列表框只能从其中选择，而不能直接修改其中 的内容(不像文本框Text)。 第第5 5章章 循环结构循环结构 列表框的属性 属性名属性值说 明 List(i)字符 该属性是一个字符串数组，存放列表框的项目,下标i 从0开始，List(0)是第一个列表项。该属性值既可 在设计 状态下设置，也可在程序中设置或引用。 ListCount数值其值为 列表项目的总数。该属性只能在程序中引用。 For i = 0 to List1.ListCount - 1 step 1 Print List1.List(i) Next i 第第5 5章章 循环结构循环结构 列表框的属性 属性名值说 明 ListIndex 数 值 选中的项目的序号，其值从0开始直到ListCount-1. 该属性只能在程序运行时使用，没有项目被选定 时为 -1. Text 字 符 该属性只能在程序中引用。其值为 列表项中被选定的 内容，与表达式List(List1.ListIndex)的返回值相 同。 Selected(i) 逻 辑 值 该属性是一个逻辑 型数组，其元素的个数是列表框中 的项目数。 True：表示此列表项被选中 False(默认值 )：表示此列表项未被选中。该属性只 能在程序中被设置或引用 。 Print List1.List( List1.ListIndex ) Print List1.Text 第第5 5章章 循环结构循环结构 列表框的属性 属性名属性值说 明 MultiSelect数值 设置列表框一次可选择 的项数 0：一次只能选择 一项 1：用鼠标单击 可选择 多项 2：按住Ctrl、shift键鼠标单击 可选择 多 项 该属性只能在设计 状态下设置 Style数值 0：标准 1：复选框形式 第第5 5章章 循环结构循环结构 Multiselect和Style属性举例 第第5 5章章 循环结构循环结构 列表框举例 列表框各主要属性的值： List1.ListIndex = 3 (下标从0开始 的) List1. ListCount = 5 List1. Selected(3) = True，其余 为False。 List1. Text 为 “cox” ， 与List1. List(List1. ListIndex)相 等 List1 第第5 5章章 循环结构循环结构 基本方法 1. AddItem方法 格式：Object.AddItem 列表项 ,索引 功能：AddItem方法用于在程序代码中添加列表项 。 说明：默认索引时，在列表框的最后添加新列表 项，有索引时，则在索引指定的位置添加。 例如：在城市名称列表框例如：在城市名称列表框(List1)(List1)的第一个位置前添加的第一个位置前添加 “ “广州市广州市” ”： List1.AddItem “List1.AddItem “广州市广州市“, 0“, 0 第第5 5章章 循环结构循环结构 2. RemoveItem方法 格式：Object.RemoveItem 索引 功能：用于删除指定的列表项。 例如：删除例如：删除“ “重庆市重庆市” ”列表项，索引号为列表项，索引号为2 2，则：，则： List1.RemoveItem 2List1.RemoveItem 2 例如：删除选中的列表项：例如：删除选中的列表项： List1.RemoveItem List1.RemoveItem List1.ListIndexList1.ListIndex 例如：添加选中的列表项：例如：添加选中的列表项： List2.AddItem List2.AddItem List1.TextList1.Text 第第5 5章章 循环结构循环结构 3.Clear方法 格式：Object.Clear 功能：用于删除所有列表项。 例如：从List1中删除所有列表项： List1.Clear 第第5 5章章 循环结构循环结构 采用以下方法，可为列表框List1赋值(添加列表项)： (1)在属性窗口中设置（Ctrl+Enter） (2)利用AddItem赋值 (3) 利用List属性赋值 List1.AddItem “教授” List1.List(0)= “教授” List1.AddItem “副教授” List1.List(1)= “副教 授” List1.AddItem “讲师” List1.List(2)= “讲师” List1.AddItem “助教” List1.List(3)= “助教” 第第5 5章章 循环结构循环结构 列表框列表项的输出 (1) 用鼠标单击列表框内某一表项，则该表项值存放在Text属 性中。 例如：x = List1.Text 把表项值存放在x变量 中 (2) 指定索引号来取表项的内容，例如： List1.ListIndex = 3 x = List1.Text (3) 直接从数组List()中读取，例如： x = List1.List(5) 第第5 5章章 循环结构循环结构 (1)分析：判别条件为 (n Mod 16=0) And (Sqr(n) =Int(Sqr(n) 。 (2)创建应用程序的用户界面和设置对象属性 例5.12 设计程序，找出4位数中能被16整除的完全平方数，把这4 位数显示在列表框中，其个数显示在标签中。 第第5 5章章 循环结构循环结构 (3)编写程序代码 Private Sub Form_Load() Label1.Caption = “按“显示”按钮，可以在列表框中显示4位数中“ _ Combo1.Text; “GB“ Picture1.Print “硬盘(GB)：“; Combo2.Text Picture1.Print “内存(MB)：“; Combo3.Text End Sub 第第5 5章章 循环结构循环结构 (1)创建应用程序的用户界面 (2)设置对象属性 组合框的Style属性为0，TabIndex(键序)为0 两个标签；四个命令按钮； 一个文本框Text1，用来显示当前的选修课总课 程数 例5.19 编制程序，把一批课程名放入组合框中，再对组 合框进行项目显示、添加、删除、全部删除等操作 例5.20 第第5 5章章 循环结构循环结构 (3)编写程序代码 Private Sub Form_Load() Combo1.AddItem “电子商务“ Combo1.AddItem “网页制作“ Combo1.AddItem “Internet简明教程“ Combo1.AddItem “计算机网络基础“ Combo1.AddItem “多媒体技术“ Combo1.Text = “ 置空值 Text1.Text = Combo1.ListCount 表项个 数 End Sub Private Sub Command1_Click() ”添加 ” If Len(Combo1.Text) 0 Then Combo1.AddItem Combo1.Text Text1.Text = Combo1.ListCount End If Combo1.Text = “ Combo1.SetFocus End Sub 第第5 5章章 循环结构循环结构 Private Sub Command2_Click() “删除” Dim ind As Integer ind = Combo1.ListIndex If ind = 0.00001 判断 Print a; “的平方根为“; xn1 End Sub 如果输入的a值为3，程序运行结果是： 3的平方根为 1.732051 第第5 5章章 循环结构循环结构 例5.18 从键盘输入一个正整数，然后把该数的每位数字按 逆序输出。例如：输入3485，则输出5843；输入100000，则输出 000001。 以下采用两种不同解法。 （1）数值处理方法 通过表达式x Mod 10取出该整数x的个位数并输出，如对 于x=3485,则取出5； 利用赋值语句x = x 10截去x的个位数, 如对于x=3485,处理后x=348；重复执行和,直到x= 10 Print x Mod 10; x = x 10 Loop Print x 第第5 5章章 循环结构循环结构 （2）字符串处理方法 把该整数作为一个数字字符串，从字符串后部往前逐 个取出字符，即可实现按逆序输出。 Dim x As String x = InputBox(“请输入一个正整数“) 把该数以字符串方式赋给变 量x For k = Len(x) To 1 Step -1 Print Mid(x, k, 1); 从后部往前逐个取出字符并显 示 Next k 第第5 5章章 循环结构循环结构 例5.19 求解s = 1! + 2! + 3! + + 10!的值 采用两种不同解法 （1）解法一：采用两重循环，外循环10次，每次循环计算 一次阶乘，把每次阶乘值累加起来，即得求解结果。 Dim s As Long, t As Long s = 0 For j = 1 To 10 计算10个阶乘 t = 1 计算1个阶乘前，先赋初值 For k = 1 To j 计算j!，需要循环j次 t = t * k 连乘j次 Next k s = s + t 把每次计算得到的阶乘值t累加 Next j P