vb课件--第5讲 数组

vb课件--第5讲 数组

ID:6579337

大小:109.50 KB

页数:11页

时间:2018-01-18

vb课件--第5讲 数组_第1页
vb课件--第5讲 数组_第2页
vb课件--第5讲 数组_第3页
vb课件--第5讲 数组_第4页
vb课件--第5讲 数组_第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后加Preserve参数用来保留数组中的数据,若使用Pres

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

4、LBound(<数组名>[,

5、])例: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)=InputBox(“输入第”&I&“个数据")NextIEndSub(2)循环和随机数函数给数组赋值u用循环给数组赋

7、值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.数组的输出(1)窗体或图形控件每行输出一个数据。ForK=1ToN窗体或图形控件名.PrintK,A(K)NextK(2)文本和标签控件每行输出一个

8、数据(文本控件必须设置多行属性)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个后换行EndIfNextKForJ=1To5ForK=1To6Picture1.PrintS(J,K);‘输出数组元素NextKPicture1.Print‘输出完一行换行

9、NextJ(4)文本或标签控件分行输出使用文本控件时,首先要设置文本框的多行属性。ForK=1To100s1=s1&B(K)&Space(2)IfKMod5=0Thens1=s1&vbCrLf‘s1=s1&Chr(10)&Chr(13)EndIfNextK标签控件.Caption=s1或文本控件.Text=s1输出方阵中各元素、上三角和下三角元素求一维数组中各元素之和、最小数组元素、最小元素的下标(位置)v求元素和通过循环将每个元素进行累加v求数组中最小元素假设第一个元素为最小,然后将该数与其他元素逐一比较,若发现小于最小值,

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。