第6章 vb数组及应用

《第6章 vb数组及应用》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第6章数组及应用学习要求1．掌握数组的概念2．掌握一维数组的定义、引用和应用3．掌握多维数组的定义和二维数组的应用4．掌握控件数组的定义和应用6.1数组的概念在实际应用过程中，将一批相互有联系、有一定顺序、同一类型和具有相同性质的数据采用集合进行定义和存储，这样的集合就是数组。VisualBasic6.0中的数组，按不同方式可分为以下几类：（1）按数组元素的个数是否可变可分为：定长数组和动态数组。（2）按数组元素的数据类型可分为：数值型数组、字符型数组和变体数组等。（3）按数组的维数可分为：一维数组、二维数组和多维数组。6.2.1一维数组的声明VisualBasic6.0

2、中所有使用的数组在引用前，必须先声明。一维数组的声明包括数组变量的定义、数组的元素个数和元素的数据类型。其格式为：（1）Dim数组变量名(元素个数)As数据类型（2）Dim数组变量名(下界to上界)As数据类型（3）Dim数组变量名<数据类型符>(元素个数)（4）Dim数组变量名<数据类型符>(下界to上界)（1）数组元素变量的赋值①使用“=”对变量赋值②使用InputBox函数对变量赋值③使用随机函数Rnd对数组元素变量赋值，（2）使用表达式进行运算或给其他变量进行赋值。（3）数组元素变量的输出，可使用Print命令或MsgBox函数来输出数组中的元素值。6.2.1一维

3、数组的引用6.2.2一维数组--给数组元素赋初始值1、使用键盘给每个元素输入数据。其基本语句为OptionBase1Dima(10)AsIntegerForI=1to10a(i)=val(InputBox(“请输入第”&I&“个元素”))NextI6.2.2一维数组--给数组元素赋初始值2、给每个元素赋于随机数，这个算法主要用于测试程序是否可行。OptionBase1Dima(10)AsIntegerForI=1to10a(i)=Int(Rnd*90)+10NextI6.2.2一维数组--给数组元素赋初始值3、使用Array函数为数组元素赋值，其格式为：数组名=Array

4、(元素列表)说明：使用Array函数为数组元素赋值时，它只能声明为变体型变量或动态数组，数组的长度由输入的元素个数决定。6.2.2一维数组--计算所有数组元素的和或平均值将所有数组元素赋值后，可使用For循环语句语句首先计算数组中n个元素的和，然后计算这n个元素的平均值。OptionBase1Dima(10)AsIntegerDimsasinteger,averassingle……数组元素的赋值………ForI=1to10S=s+a(i)NextIAver=s/10……结果的输出…………6.2.2一维数组--计算数组元素的最大值、最小值首先将数组中第一个元素值赋值于最大值变

5、量max和最小值变量min，然后从第2个元素到最后一个元素为止，逐个与max或min比较，与比max要大，则将该元素赋值于max；若比min要小，则将该元素赋值于min。OptionBase1Dima(10)AsIntegerDimmaxAsInteger,MinAsInteger……数组元素的赋值………………max=a(1)min=a(1)Fori=2to10Ifa(i)>maxthenMax=a(i)EndifIfa(i)

6、0)排序前的状态6.2.2一维数组--对数组中所有元素选择法排序PPPP①①①①②②②③③④图6-1(1)只有1人图6-1(2)有2人图6-1(3)有3人图6-1(4)有4人参加排序6.2.2一维数组--对数组中所有元素选择法排序PP①①②②③③④④⑤⑤⑥交换图6-1(5)有5人参加排序图6-1(6)有6人参加排序6.2.2一维数组--对数组中所有元素选择法排序⑥①②③④图⑤6-1(7)排序后的状态6.2.2一维数组--对数组中所有元素选择法排序该算法的程序流程图6.2.2一维数组--对数组中所有元素选择法排序选择法排序的关键语句PrivateSubForm1_Click

7、()……数组元素的输入…………ForI=1ton-1P=IForj=I+1tonIfa(p)>a(j)thenp=jNextjT=a(p):a(p)=a(j):a(j)=TNexti……数组元素的输出……EndSub6.2.2一维数组--对数组中所有元素冒泡法排序⑥①②③④⑤图6-3(0)排序前的状态6.2.2一维数组--对数组中所有元素冒泡法排序图-3(3)③与④比较①②③①②PP①③②P④交换交换交换图6-3(1)①与②比较图6-3(2)②与③比较图6-3(3)③与④比较6.2.2一维数组--对数组中所有元素冒泡法排序①②