VB中如何声明及使用多维数组,多层数组及动态数组
声明固定大小的数组 &
& 有三种方法声明固定大小的数组，用哪一种方法取决于数组应有的有效范围： &
& 建立公用数组，在模块的声明段用 & Public & 语句声明数组。 &
& 建立模块级数组，在模块的声明段用 & Private & 语句声明数组。 &
& 建立局部数组，在过程中用 & Private & 语句声明数组。 &
& 设定上下界 &
& 声明数组时，在数组名之后跟一个用括号括起来的上界。上界不得超过 & Long & 数据类型的范围（-2,147,483,648 & 到 & 2,147,483,647）。例如，下列数组声明可出现在模块的声明段： &
& Dim & Counters & (14) & As & Integer &
& '15 & 个元素。 &
& Dim & Sums & (20) & As & Double &
& '21 & 个元素。 &
& 为建立公用数组，直接用 & Public & 取代 & Dim。 &
& Public & Counters & (14) & As & Integer &
& Public & Sums & (20) & As & Double &
& 在过程之中同样的声明使用 & Dim： &
& Dim & Counters & (14) & As & Integer &
& Dim & Sums & (20) & As & Double &
& 第一个声明建立了一个有 & 15 & 个元素的数组，其索引号从 & 0 & 到 & 14 & 。第二个声明建立了一个有 & 21 & 个元素的数组，其索引号从 & 0 & 到 & 20 & 。缺省的下界为 & 0。 &
& 为了规定下界，用关键字 & To & 显式提供下界（为 & Long & 数据类型）： &
& Dim & Counters & (1 & To & 15) & As & Integer &
& Dim & Sums & (100 & To & 120) & As & String &
& 在前述声明中，Counters & 的索引值范围从 & 1 & 到 & 15，而 & Sums & 的索引值范围从 & 100 & 到 & 200。 &
& 包含其它数组的数组 &
& 有可能建立 & Variant & 数据类型数组，并与不同数据类型的数组共居一处。以下代码建立两个数组，一个包含整数，而另一个包含 & 字符串。然后声明第三个 & Variant & 数组，并将整数和字符串数组放置其中： &
& Private & Sub & Command1_Click & () &
& Dim & intX & As & Integer &
& '声明计数器变量。 &
& '声明并放置整数数组。 &
& Dim & countersA & (5) & As & Integer &
& For & intX & = & 0 & To & 4 &
& countersA & (intX) & = & 5 &
& Next & intX &
& '声明并放置字符串数组。 &
& Dim & countersB & (5) & As & String &
& For & intX & = & 0 & To & 4 &
& countersB & (intX) & = & &hello& &
& Next & intX &
& Dim & arrX & (2) & As & Variant &
& '声明拥有两个成员的新数组。 &
& arrX & (1) & = & countersA & () &
& '将其它数组移居到数组。 &
& arrX & (2) & = & countersB & () &
& MsgBox & arrX & (1) & (2) &
& '显示每一个数组的成员。 &
& MsgBox & arrX & (2) & (3) &
& End & Sub
& 多维数组 &
& 有时需要追踪记录数组中的相关信息。例如，为了追踪记录计算机屏幕上的每一个像素，需要引用它的 & X、Y & 坐标。这时应该用多维数组存储值。 &
& 可用 & Visual & Basic & 声明多维数组。例如，下面的语句声明了一个过程内的 & 10 & & & 10 & 的二维数组。 &
& Static & MatrixA & (9, & 9) & As & Double &
& 可用显式下界来声明两个维数或两个维数中的任何一个： &
& Static & MatrixA & (1 & To & 10, & 1 & To & 10) & As & Double &
& 可以将所有这些推广到二维以上的数组。例如： &
& Dim & MultiD & (3, & 1 & To & 10, & 1 & To & 15) &
& 这个声明建立了三维数组，大小为 & 4 & & & 10 & & & 15。元素总数为三个维数的乘积，为 & 600。 &
& 注意 & 在增加数组的维数时，数组所占的存储空间会大幅度增加，所以要慎用多维数组。使用 & Variant & 数组时更要格外小心，因为他们需要更大的存储空间。 &
& 用循环操作数组 &
& 可以用 & For & 循环嵌套有效的处理多维数组。例如，在 & MatrixA & 中基于每个元素在数组中的位置为其赋值： &
& Dim & I & As & Integer, & J & As & Integer &
& Static & MatrixA(1 & To & 10, & 1 & To & 10) & As & Double &
& For & I & = & 1 & To & 10 &
& For & J & = & 1 & To & 10 &
& MatrixA & (I, & J) & = & I & * & 10 & + & J &
& Next & J &
& Next & I &
& 要创建动态数组，请按照以下步骤执行： &
& （如果希望数组为公用数组，则）用 & Public & 语句声明数组，或者，（如果希望数组为模块级，则）在模块级用 & Dim &
语句声明数组，或者（如果希望数组为局部数组，则）在过程中用 & Static & 或 & Dim &
语句声明数组。给数组附以一个空维数表，这样就将数组声明为动态数组。 & &
& Dim & DynArray & () &
& 用 & ReDim & 语句分配实际的元素个数。 &
& ReDim & DynArray & (X & + & 1) &
& ReDim & 语句只能出现在过程中。与 & Dim & 语句、Static & 语句不同，ReDim & 语句是一个可执行语句，由于这一语句，应用程序在运行时执行一个操作。 &
& ReDim & 语句支持这样的语法，它与固定数组中使用的语法相同。对于每一维数，每个 & ReDim & 语句都能改变元素数目以及上下界。但是，数组的维数不能改变。 &
& ReDim & DynArray & (4 & to & 12) &
& 例如，用第一次声明在模块级所建立的动态数组 & Matrix1： &
& Dim & Matrix1 & () & As & Integer &
& 然后，在过程中给数组分配空间： &
& Sub & CalcValuesNow & () &
& ReDim & Matrix1 & (19, & 29) &
& End & Sub &
& 这里的 & ReDim & 语句给 & Matrix & 分配一个 & 20 & & & 30 & 的整数矩阵（元素总大小为 & 600）。还有一个办法，用变量设置动态数组的边界： &
& ReDim & Matrix1 & (X, & Y) &
& 注意 & 您可以将字符串赋值给大小可变的字节数组。一个字节数组也可以被赋值给一个可变长的字符串。一定要注意字符串中的字节数会随平台而变化。同一个字符串在 & Unicode & 平台上的字节数是它在非 & Unicode & 平台上的两倍。 &
& 保留动态数组的内容 &
& 每次执行 & ReDim & 语句时，当前存储在数组中的值都会全部丢失。Visual & Basi & 重新将数组元素的值置为 &
Empty（对 & Variant & 数组）、置为 & 0（对 & Numeric & 数组）、置为 & 零长度字符串（对 & String
& 数组）或者置为 & Nothing（对于对象的数组）。 &
在为新数据准备数组，或者要缩减数组大小以节省内存时，这样做是非常有用的。有时希望改变数组大小又不丢失数组中的数据。使用具有 &
Preserve & 关键字的 & ReDim & 语句就可做到这点。例如，使用 & UBound &
函数引用上界，使数组扩大、增加一个元素，而现有元素的值并未丢失： &
& ReDim & Preserve & DynArray & (UBound & (DynArray) & + & 1) &
& 在用 & Preserve & 关键字时，只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错。
所以可这样编程： &
& ReDim & Preserve & Matrix & (10, & UBound & (Matrix, & 2) & + & 1) &
& 而不可这样编程： &
& ReDim & Preserve & Matrix & (UBound & (Matrix, & 1) & + & 1, & 10) &
更多相关文章
asp中REDIM的功能是动态定义数组长度 动态数组里面的一个语句,只能出现在过程里面,可以多次使用.可以改变数组大小,和维数.格式:REDIM [Preserve] 数组名(下标1[下标2....])Preserve 保留动态数组的内容(不用的话,每次执行REDIM语句,当前存储的语句会全部丢失) ...
源:/EditPosts.aspx?opt=1
和AnsiString类型一样,动态数组是为了和DELPHI中的动态数组相兼容而定义,在BCB中,动态数组是用模板(template)的方式使用的,动态数组的定义如下: template class DE ...
源:/EditPosts.aspx?opt=1
和AnsiString类型一样,动态数组是为了和DELPHI中的动态数组相兼容而定义,在BCB中,动态数组是用模板(template)的方式使用的,动态数组的定义如下:template class DELP ...
VB中实现IObjectSafety接口以声明控件安全的方法
转载自:/Shana/archive//VB_Iobjsafe.html VB编写的ActiveX控件,在被Javascript脚本调用时会弹出讨厌的对话框,警告用户即将 ...
在做学生管理系统中,遇到了太多太多的问题,发现了VB的学习是多么的不牢固,即使当初耗费了大量的时间.从现在开始,将把自己遇到的那些模糊或者不懂的知识总结出来,查漏补缺,欢迎大家提出批评指正!
VB中的调用主要针对Sub子过程和自定义函数的调用.不论是Sub子过程还是函数过程,都是将一 ...
在机房收费系统中,其中有一个功能是:将Msflexgrid控件中的数据导入到excel中,经过几天的奋战,连查带改,现在提供一种方法,仅供参考: 实现这个功能,首先需先在工程中&引用&MrcrosoftExcel xx Object Library&,然后新建一个模块, ...
既然软件由 程序,数据 和文档组成,那么系统自然少不了数据库的使用. 今天,我就给大家分享一下,我在这次实践中关于数据库基本功能--增删改查的理解和实现 . 一.VB中集成的数据库对象 站在巨人的肩膀上是我们一贯的作风,那么关于vb和数据库,有哪些巨人等着我们来踩呢? 下面我来为大家介绍三个大巨人
VB中操作目录的Winodws API小结
16:45 来源:yesky 作者:潇潇 责任编辑:方舟·yesky 评论(0) 下面是windows中提供的对于目录进行操作的API函数及其功能: CreateDirectory, CreateDirectoryEx 创建一个新目录 ...
这个问题一般出现在一对多的情况下,解决的方法有两种 1.设置lazy=false 如果是用annotation,则配置如下 @OneToMany(
targetEntity = CourseAuthorizat ...
FluorineFx.NET的认证(Authentication )与授权(Authori ...
A.The Wall 题意:两个人粉刷墙壁,甲从粉刷标号为x,2x,3x...的小块乙粉刷 ...
1.使用gedit 查看从windows拷贝过来并且中文是乱码的文件 [因为windows文本文档默认保存为ANSI格式,而中文对应的ANSI为GB2312]$gedit --encoding gb2312 read ...
AngularJS: Everything you need to understand to start with AngularJS
介绍了AngularJS的主要构成 AngularJS Tutorial
写在前面:案例.常用.归类.解释说明.(By Jim) Linux文件权限用户useradd test (添加用户test)userdel test (删除用户test)passwd test(修改用户密码)gr ...
企业工商设立(营业执照)流程: 先去做 名称核准通知书.然后开立临时户,存入注册资金,找会计师事务所验资并获取验资报告.然后去工商局进行申请.申请所需材料:验资报告一份.股东决议两份. 租赁合同或者房屋产权证复印件一 ...
Ctrl+Shift+L 显示所有快捷键 Ctrl+K 参照选中的词(Word)快速定位到下一个 Ctrl+Shift+K 参照选中的词(Word)快速定位到上一个 Ctrl+O 快速显示OutLine Ctrl+T ...
在InDesign制作的表格,可以转为纯文字内容吗?文字内容也可以转为表格吗? 可以.选择&转换表格为文本&命令即可自动转换为文本:还可以把文本直接转换为表格,前提是字符之间用&Ta ...
搭建伪分布环境 上传hadoop2.7.0编译后的包并解压到/zzy目录下 mkdir /zzy 解压 tar -zxvf hadoop.2.7.0.tar.gz -C /zzy
配置hadoop 注意:had ...vb代码，再问一个问题，怎么删除数组中的一个元素后，后面的元素往前移动？_百度知道
vb代码，再问一个问题，怎么删除数组中的一个元素后，后面的元素往前移动？
提问者采纳
ReDim a(n)
For i = 1 To n
a(i) = Int(Rnd() * 100)
str = str & a(i) & &
n = InputBox(&
str = str & vbCrLf
For i = m To n - 1
a(i) = a(i + 1)
For i = 1 To n - 1
str = str & a(i) & &请输入要产生随机数的个数&quotDim a(),)
m = InputBox(&quot, m As Integer
Dim str As String = &请输入要删除元素的位置&
TextBox6; &quot
提问者评价
太给力了，你的回答完美地解决了我的问题，非常感谢！
来自团队：
其他类似问题
为您推荐：
其他2条回答
情分析，需要进一步彩超检查确定性别：你好。其他方法无法确定孩子的性别、指导意见：不过国家禁止非医学需要检查孩子性别
病情分析：你好，需要进一步彩超检查确定性别、指导意见：不过国家禁止非医学需要检查孩子性别。其他方法无法确定孩子的性别。
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁声明固定大小的数组 &
& 有三种方法声明固定大小的数组，用哪一种方法取决于数组应有的有效范围： &
& 建立公用数组，在模块的声明段用 & Public & 语句声明数组。 &
& 建立模块级数组，在模块的声明段用 & Private & 语句声明数组。 &
& 建立局部数组，在过程中用 & Private & 语句声明数组。 &
& 设定上下界 &
& 声明数组时，在数组名之后跟一个用括号括起来的上界。上界不得超过 & Long & 数据类型的范围（-2,147,483,648 & 到 & 2,147,483,647）。例如，下列数组声明可出现在模块的声明段： &
& Dim & Counters & (14) & As & Integer &
& '15 & 个元素。 &
& Dim & Sums & (20) & As & Double &
& '21 & 个元素。 &
& 为建立公用数组，直接用 & Public & 取代 & Dim。 &
& Public & Counters & (14) & As & Integer &
& Public & Sums & (20) & As & Double &
& 在过程之中同样的声明使用 & Dim： &
& Dim & Counters & (14) & As & Integer &
& Dim & Sums & (20) & As & Double &
& 第一个声明建立了一个有 & 15 & 个元素的数组，其索引号从 & 0 & 到 & 14 & 。第二个声明建立了一个有 & 21 & 个元素的数组，其索引号从 & 0 & 到 & 20 & 。缺省的下界为 & 0。 &
& 为了规定下界，用关键字 & To & 显式提供下界（为 & Long & 数据类型）： &
& Dim & Counters & (1 & To & 15) & As & Integer &
& Dim & Sums & (100 & To & 120) & As & String &
& 在前述声明中，Counters & 的索引值范围从 & 1 & 到 & 15，而 & Sums & 的索引值范围从 & 100 & 到 & 200。 &
& 包含其它数组的数组 &
& 有可能建立 & Variant & 数据类型数组，并与不同数据类型的数组共居一处。以下代码建立两个数组，一个包含整数，而另一个包含 & 字符串。然后声明第三个 & Variant & 数组，并将整数和字符串数组放置其中： &
& Private & Sub & Command1_Click & () &
& Dim & intX & As & Integer &
& '声明计数器变量。 &
& '声明并放置整数数组。 &
& Dim & countersA & (5) & As & Integer &
& For & intX & = & 0 & To & 4 &
& countersA & (intX) & = & 5 &
& Next & intX &
& '声明并放置字符串数组。 &
& Dim & countersB & (5) & As & String &
& For & intX & = & 0 & To & 4 &
& countersB & (intX) & = & &hello& &
& Next & intX &
& Dim & arrX & (2) & As & Variant &
& '声明拥有两个成员的新数组。 &
& arrX & (1) & = & countersA & () &
& '将其它数组移居到数组。 &
& arrX & (2) & = & countersB & () &
& MsgBox & arrX & (1) & (2) &
& '显示每一个数组的成员。 &
& MsgBox & arrX & (2) & (3) &
& End & Sub
& 多维数组 &
& 有时需要追踪记录数组中的相关信息。例如，为了追踪记录计算机屏幕上的每一个像素，需要引用它的 & X、Y & 坐标。这时应该用多维数组存储值。 &
& 可用 & Visual & Basic & 声明多维数组。例如，下面的语句声明了一个过程内的 & 10 & & & 10 & 的二维数组。 &
& Static & MatrixA & (9, & 9) & As & Double &
& 可用显式下界来声明两个维数或两个维数中的任何一个： &
& Static & MatrixA & (1 & To & 10, & 1 & To & 10) & As & Double &
& 可以将所有这些推广到二维以上的数组。例如： &
& Dim & MultiD & (3, & 1 & To & 10, & 1 & To & 15) &
& 这个声明建立了三维数组，大小为 & 4 & & & 10 & & & 15。元素总数为三个维数的乘积，为 & 600。 &
& 注意 & 在增加数组的维数时，数组所占的存储空间会大幅度增加，所以要慎用多维数组。使用 & Variant & 数组时更要格外小心，因为他们需要更大的存储空间。 &
& 用循环操作数组 &
& 可以用 & For & 循环嵌套有效的处理多维数组。例如，在 & MatrixA & 中基于每个元素在数组中的位置为其赋值： &
& Dim & I & As & Integer, & J & As & Integer &
& Static & MatrixA(1 & To & 10, & 1 & To & 10) & As & Double &
& For & I & = & 1 & To & 10 &
& For & J & = & 1 & To & 10 &
& MatrixA & (I, & J) & = & I & * & 10 & + & J &
& Next & J &
& Next & I &
& 要创建动态数组，请按照以下步骤执行： &
& （如果希望数组为公用数组，则）用 & Public & 语句声明数组，或者，（如果希望数组为模块级，则）在模块级用 & Dim &
语句声明数组，或者（如果希望数组为局部数组，则）在过程中用 & Static & 或 & Dim &
语句声明数组。给数组附以一个空维数表，这样就将数组声明为动态数组。 & &
& Dim & DynArray & () &
& 用 & ReDim & 语句分配实际的元素个数。 &
& ReDim & DynArray & (X & + & 1) &
& ReDim & 语句只能出现在过程中。与 & Dim & 语句、Static & 语句不同，ReDim & 语句是一个可执行语句，由于这一语句，应用程序在运行时执行一个操作。 &
& ReDim & 语句支持这样的语法，它与固定数组中使用的语法相同。对于每一维数，每个 & ReDim & 语句都能改变元素数目以及上下界。但是，数组的维数不能改变。 &
& ReDim & DynArray & (4 & to & 12) &
& 例如，用第一次声明在模块级所建立的动态数组 & Matrix1： &
& Dim & Matrix1 & () & As & Integer &
& 然后，在过程中给数组分配空间： &
& Sub & CalcValuesNow & () &
& ReDim & Matrix1 & (19, & 29) &
& End & Sub &
& 这里的 & ReDim & 语句给 & Matrix & 分配一个 & 20 & & & 30 & 的整数矩阵（元素总大小为 & 600）。还有一个办法，用变量设置动态数组的边界： &
& ReDim & Matrix1 & (X, & Y) &
& 注意 & 您可以将字符串赋值给大小可变的字节数组。一个字节数组也可以被赋值给一个可变长的字符串。一定要注意字符串中的字节数会随平台而变化。同一个字符串在 & Unicode & 平台上的字节数是它在非 & Unicode & 平台上的两倍。 &
& 保留动态数组的内容 &
& 每次执行 & ReDim & 语句时，当前存储在数组中的值都会全部丢失。Visual & Basi & 重新将数组元素的值置为 &
Empty（对 & Variant & 数组）、置为 & 0（对 & Numeric & 数组）、置为 & 零长度字符串（对 & String
& 数组）或者置为 & Nothing（对于对象的数组）。 &
在为新数据准备数组，或者要缩减数组大小以节省内存时，这样做是非常有用的。有时希望改变数组大小又不丢失数组中的数据。使用具有 &
Preserve & 关键字的 & ReDim & 语句就可做到这点。例如，使用 & UBound &
函数引用上界，使数组扩大、增加一个元素，而现有元素的值并未丢失： &
& ReDim & Preserve & DynArray & (UBound & (DynArray) & + & 1) &
& 在用 & Preserve & 关键字时，只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错。
所以可这样编程： &
& ReDim & Preserve & Matrix & (10, & UBound & (Matrix, & 2) & + & 1) &
& 而不可这样编程： &
& ReDim & Preserve & Matrix & (UBound & (Matrix, & 1) & + & 1, & 10) &
阅读(...) 评论()vb 删除二维数组中和最大的一行_百度知道
vb 删除二维数组中和最大的一行
例如a(5,5)删除二维数组中和最大的一行变为a（4，5），怎么实现
提问者采纳
!, j) = Int(Rnd * 6)
Print a(i, j)!, 1)
For j = 0 To UBound(a, 2)
Print a(i, j) = a(i + z!For i = 0 To UBound(a, j)
NextNexta = b '
sum = sum + a(i!!, j)
Print &quot!!!Private Sub Command1_Click()Dim a() As Integer, xb As IntegerDim max As Integer, b() As IntegerDim sum As Integer, z As IntegerReDim a(5;
&quot, 5)!!, j); & sum
If max &lt, b(4, 1)
For j = 0 To UBound(a!!!, 5)Dim i As Integer!, j As IntegerFor i = 0 To UBound(a!!!;!; sum Then max = sum, 2)
a(i: xb = i
sum = 0NextPrintFor i = 0 To 4
If i = xb Then z = z + 1
For j = 0 To 5
来自团队：
其他类似问题
为您推荐：
二维数组的相关知识
其他2条回答
1，逐行求和：设数组H行，向前移动一行，L列.
将N行以后的数据.
从第1行开始到第H行，取最大行号N2。3思路
最开始定义并且初始化两个数组。
option explicit
to 5,1 to 5 )
dim ArrRec()
sub DeleteMaxRow(Arr,ArrRec)
redim ArrRec(0 to 5,0 to 0)
dim I as long
dim J as long
dim TempRow as long
dim TempValue as long
for i=1 to
ubound(arr,2)
for j=1 to ubound(arr,1)
arr(0,i)=arr(0,i)+arr(j,i)
if arr(0,i)&TempValue then
TempValue=arr(0,i)
to ubound(arr,2)
i&&TempRow then
redim presver ArrRec(
0 to5,0 to ubound(ArrRec,2)+1)
for j=1 to ubound(arr,1)
ArrRec（j,i)=arr(j,i)
记录最大数在数组第一列，如果是最大数，就把那一行的行标...
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁&&&&VB 删除数组中指定元素实例
VB 删除数组中指定元素实例
VB 删除数组中指定元素实例
VB 删除数组中指定元素实例
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
您可能还需要
开发技术下载排行}