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

《VB语言程序设计循环结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、循环结构程序设计第五章本章内容5.1循环语句5.2多重循环5.3列表框与组合框5.4常用算法5.5程序举例循环结构循环三要素：(1)初始化：决定循环的初始状态，即与循环相关的变量的初始值；(2)循环体：循环中反复执行的部分；(3)循环的条件：决定循环结束的条件。三种循环结构：for、while、do。FOR循环格式：For循环变量＝初值To终值Step步长循环体[ExitFor]Next循环变量功能：按循环变量的初值、终值和步长所确定的次数执行循环体。§5.2多重循环在一个循环结构的循环体内含有另一个完整的循环结构，称之为多重循环或嵌套循环。说明：内外循环之间必须完整包含，不

2、得交叉。内循环变量与外循环变量不能同名。多重循环正例：fori=1to10forj=1to10……nextjnexti内循环j外循环i错例：fori=1to10forj=1to10……nextinextj例5.9多重循环程序示例PrivateSubForm_Load()ShowFori=1To3‘外循环Forj=5To7’内循环Printi,jNextjNextiEndSub注意内、外循环层次要分清，不能交叉本例可采用两重循环来实现。外循环控制输出7行，内循环控制每行输出要求的字符数。在进入内循环之前，使用PrintTab()来对起始输出位置定位，退出内循环后，使用Prin

3、t来控制换行。例5.10编一程序，输出下列所示的图形PrivateSubForm_Load()ShowFori=1To7PrintTab(10-i);'输出位置Forj=1To2*i-1PrintChr(i+48);NextjPrintNextiEndSub注意：PrintChr(i+48)与Printi有所不同(1)分析：设1元硬币为a枚，2元硬币为b枚，5元硬币为c枚，可列出方程a+b+c=10a+2b+5c=25采用两重循环，外循环变量a从0～10，内循环变量b从0～10(2)创建应用程序的用户界面例5.11取1元、2元、5元的硬币共10枚，付给25元钱，有多少种不同

4、的取法?PrivateSubForm_Load()ShowCurrentX=0:CurrentY=1500Print,“5元",“2元",“1元"n=0'记录解的组数Fora=0To10Forb=0To10c=10-b-aIfa+2*b+5*c=25Andc>=0Thenn=n+1Print"(";n;")",c,b,aEndIfNextb,a‘合并两个Next语句EndSub例题打印九九乘法表。思考：程序如何改动，可以得到如下结果。列表框(ListBox)列表框(ListBox)如果列表项数量超过列表框所能显示的数目，VB会自动为列表框加上滚动条。列表框只能从其中选择，而不

5、能直接修改其中的内容(不像文本框Text)。列表框的属性属性名属性值说明List(i)字符该属性是一个字符串数组，存放列表框的项目,下标i从0开始，List(0)是第一个列表项。该属性值既可在设计状态下设置，也可在程序中设置或引用。ListCount数值其值为列表项目的总数。该属性只能在程序中引用。Fori=0toList1.ListCount-1step1PrintList1.List(i)Nexti列表框的属性属性名值说明ListIndex数值选中的项目的序号，其值从0开始直到ListCount-1.该属性只能在程序运行时使用，没有项目被选定时为-1.Text字符该属性只

6、能在程序中引用。其值为列表项中被选定的内容，与表达式List(List1.ListIndex)的返回值相同。Selected(i)逻辑值该属性是一个逻辑型数组，其元素的个数是列表框中的项目数。True：表示此列表项被选中False(默认值)：表示此列表项未被选中。该属性只能在程序中被设置或引用。PrintList1.List(List1.ListIndex)PrintList1.Text列表框的属性属性名属性值说明MultiSelect数值设置列表框一次可选择的项数0：一次只能选择一项1：用鼠标单击可选择多项2：按住Ctrl、shift键鼠标单击可选择多项该属性只能在设计状态

7、下设置Style数值0：标准1：复选框形式Multiselect和Style属性举例列表框举例列表框各主要属性的值：List1.ListIndex=3(下标从0开始的)List1.ListCount=5List1.Selected(3)=True，其余为False。List1.Text为“cox”，与List1.List(List1.ListIndex)相等List1基本方法1.AddItem方法格式：[Object.]AddItem列表项[,索引]功能：AddItem方法用于在程序代码中添加列表项。说