vb课件--第5讲 数组

《vb课件--第5讲 数组》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第5讲数组和自定义类型第5讲数组5.1数组5.1.1数组的概念数组不是一种数据类型，而是一组相同类型的变量的集合。数组必须先声明后使用，用声明语句声明数组时要声明：5.1.2定长数组及声明1.一维数组Dim数组名(下标上界)[As类型]Dim数组名(下标下界To上界)[As类型]下标必须为常数，不能是表达式或变量；下标下界默认为0；一维数组的大小为：“上界-下界+1”Dimmark(99)AsIntegerConstN=10‘声明一个符号常量N；Dims!(N)‘用符号常量代表下标2.多维数组Dim数组名(下标1，下标2…)[As类型]下标个数

2、决定了数组的维数；每一维的大小=上界-下界+1；其大小为各维大小的乘积。5.1.3动态数组及声明建立动态数组分两步：(1)用Dim语句声明数组，但不能指定数组大小Dim数组名()As数据类型(2)在过程中用ReDim语句动态地分配元素个数ReDim数组名(下标[,下标2…])定义动态数组大小注意：vDim说明语句，可出现在程序的任何地方。v而ReDim是执行语句，只能出现在过程代码中。Redim语句中的下标可以是常量，也可以是已赋值的变量。v过程中可多次使用ReDim语句来改变数组的大小，但每次使用都会使数组中原有数据丢失。v可在ReDim后加

3、Preserve参数用来保留数组中的数据，若使用Preserve参数后，只能改变最后一维的大小。5.2数组的基本操作1.与数组相关的函数和设置(1)Array函数<变量名>=Array(<常量数据列表>)Aarry函数将常量列表的各项值分别赋给一个一维数组。变量名必须声明为Variant的变体类型，可以是变体变量名和变体动态数组名。数组大小由数据列表中的常数个数确定。Array函数作用返回一个Variant型的数组。DimaAsVariant,b()(2)UBound()、下界LBound()函数UBound()函数和LBound()函数分别用

4、来确定数组某一维的上界和下界值。形式如下：UBound

5、LBound(<数组名>[,])例：k=Ubound(a,1)；k=UBound(a)(3)OptionBase语句用来声明数组下标的缺省下界。语法：OptionBase{0

6、1}11第5讲数组和自定义类型该语句必须出现在模块的所有过程之前。一个模块中只能出现一次OptionBase。2.数组的输入(1)在循环中用InputBox函数输入数据赋予数组元素OptionBase1PrivateSubForm_Load()Dims(20)AsIntegerFori=1To20s(i)=In

7、putBox(“输入第”&I&“个数据")NextIEndSub(2)循环和随机数函数给数组赋值u用循环给数组赋值Fori=1tonx(i)=inextiu用随机数函数产生随机数给数组赋值Fori=1tony(i)=Rnd*71+120nexti(3)二维数组的数组元素赋值例如：DimA(1To6,1To7)①以行的方式赋值ForK=1To6ForJ=1To7A(K,J)=Int(Rnd*91+20)NextJNextK②以列的方式赋值ForK=1To7ForJ=1To6A(J,K)=Int(Rnd*91+20)NextJNextK3.数组的输

8、出（1）窗体或图形控件每行输出一个数据。ForK=1ToN窗体或图形控件名.PrintK,A(K)NextK（2）文本和标签控件每行输出一个数据（文本控件必须设置多行属性）ForK=1To100s1=s1&B(K)&vbCrLf或s1=s1&B(K)&Chr(10)&Chr(13)NextK标签控件名.Caption=s1或文本控件名.Text=s1（3）窗体和图形控件的分行输出ForK=1ToNPicture1.PrintA(K);‘输出数组元素11第5讲数组和自定义类型IfK/6=K6thenPicture1.Print‘每行输出6个后换

9、行EndIfNextKForJ=1To5ForK=1To6Picture1.PrintS(J,K);‘输出数组元素NextKPicture1.Print‘输出完一行换行NextJ（4）文本或标签控件分行输出使用文本控件时，首先要设置文本框的多行属性。ForK=1To100s1=s1&B(K)&Space(2)IfKMod5=0Thens1=s1&vbCrLf‘s1=s1&Chr(10)&Chr(13)EndIfNextK标签控件.Caption=s1或文本控件.Text=s1输出方阵中各元素、上三角和下三角元素求一维数组中各元素之和、最小数组元

10、素、最小元素的下标(位置)v求元素和通过循环将每个元素进行累加v求数组中最小元素假设第一个元素为最小，然后将该数与其他元素逐一比较，若发现小于最小值，