1.动态数组的使用时，先在窗体层、标准模块或过程中声明一个没有下标的数组(括号不能省略)，不指定维数。
 2.在过程中用ReDim语句定义带下标的数组，给出数组的维数。注意：用ReDim定义的数组，只能改变数组元素的个数，不能改变数组的维数和数据类型。
 
以下举例几个错误类型：
 
 
 

 

 
定义数组后，为了使用数组，必须为数组分配所需要的内存区。根据内存区分配时机的不同，可以把数组分为静态(Static)数组和动态(Dynamic)数组。通常把需要在编译时分配内存区的数组叫做静态数组，而把需要在运行时分配内存区的数组叫做动态数组。当程序没有运行时，动态数组不占据内存，因此可以把这部分内存用于其他操作。
 
在VB中定义动态数组通常分两步：首先在窗体层或标准模块中用Dim、Private或Public声明一个没有下标的数组(括号不能省略)，然后在过程中用ReDim语句定义带下标的数组。
 
．ReDim语句的作用，是重新指出数组的大小。它是在程序执行到ReDim语句时才分配存储空间。
 
格式：ReDim(数组名)(下标)[As(类型)]
 
功能：改变动态数组的大小和存储空间。
 
考试大说明：
 
(1)下标可以是常量，也可以是具有确定值的变量。
 
(2)语句中各参量的含义与用Dim定义数组的语句相同。
 
(3)ReDim语句只能用于动态数组，它可以改变每一维的大小，但不能改变维数。
 
(4)当程序编译时，ReDim语句中的所有数组均被说明为动态数组。在程序运行中，当执行到ReDim语句时，就把新的上下界重新分配给数组，数组元素的值将被初始化，所有的数值元素的值被置为0，字符串元素被置为空字符串。
 
(5)ReDim语句可以同Dim语句一样定义数组。在同一程序中，ReDim语句还可以多次使用。在用：ReDim语句重新定义数组之前，可以使用：Erase语句将原来的数组删除。
 

 
VB动态数组的定义方法.doc
 
下载Word文档到电脑，方便收藏和打印[全文共606字]
 
编辑推荐：
 

 

 

 
下载Word文档

 
计算机等级考试二级VB考点：动态数组及声明
 
建立动态数组的方法是：利用Dim、Private、Public语句声明括号内为空的数组，然后在过程中用ReDim语句指明该数组的大小。下面是小编为大家带来的关于动态数组及声明的知识，欢迎阅读。
 
1. 动态数组的建立与声明
 
建立动态数组的方法是：利用Dim、Private、Public语句声明括号内为空的数组，然后在过程中用ReDim语句指明该数组的大小。语法是：
 
ReDim 数组名(下标1[，下标2…]) [As 类型]
 
其中下标可以是常量，也可以是有了确定值的变量，类型可以省略，若不省略，必须与Dim中的声明语句保持一致。
 
例： Dim D() As Single
 
Sub Form_Load()
 
……
 
ReDim D(4，6)
 
……
 
End Sub
 
2.注意事项
 
(1)在动态数组ReDim语句中的下标可以是常量，也可以是有了确定值的变量。
 
(2)在过程中可以多次使用ReDim来改变数组的大小，也可改变数组的维数。
 
(3)每次使用ReDim语句都会使原来数组中的值丢失，可以在ReDim语句后加Preserve参数来保留数组中的数据，但使用Preserve只能改变最后一维的大小，前面几维大小不能改变。
 
1. 给数组元素赋初值
 
(1) 利用循环结构
 
例：Dim iA(1 To 10) As Integer
 
For i=1 To 10
 
A(i)=0
 
Next i
 
(2) 利用Array函数
 
例：Dim a As Variant, b As Variant, i%
 
a = Array (1,2,3,4,5)
 
b = Array ("abc","def","67")
 
For i=0 To Ubound (a)
 
Picture1.print a(i);"";
 
Next i
 
For i=0 To Ubound (b)
 
Picture1.print b(i);"";
 
Next i
 
2.数组的输入
 
(1) 通过InputBox函数输入适合输入少量数据。
 
例：Dim sB(3,4) As singer
 
For i=0 To 3
 
For j=0 To 4
 
SB(i,j) =InputBox("输入" & i & j & "的值")
 
Next j
 
Next i
 
(2) 通过文本框控件输入
 
对大批量的数据输入，采用文本框和函数split()join()进行处理，效率更高。
 
3.数组的`赋值
 
在VB6.0中可以直接将一个数组的值赋值给另一个数组：
 
Dim a(3) as integer, b() as integer
 
A(0)=2: A(1)=5: A(2)=-2: A(3)=2
 
b=a
 
在早期的VB中，这需要用循环语句才可以实现：
 
ReDim b(UBound(a))
 
For I=0 to UBound(a)
 
b(I)=a(I)
 
Next i
 
注意：
 
(1)赋值号两边的数据类型必须一致;
 
(2)如果赋值号左边的是一个动态数组，则赋值时系统自动将动态数组ReDim成右边相同大小的数组;
 
(3)如果赋值号左边的是一个大小固定的数组，则数组赋值出错。
 
4.数组的输出
 
用For……Next循环语句输出。
 
5.求数组中最大元素和所在下标及各元素之和
 
求数组中最大元素及下标，一般假设第一个元素及下标为最大，然后将该数与数组中的其他元素逐一比较，若有比其大的就替换，同时替换下标。
 
6.交换数组中各元素
 
交换的要求是将数组第一个元素与最后一个交换，第二个与倒数第二个交换，依次类推。
 
【计算机等级考试二级VB考点：动态数组及声明】相关文章：

Private Sub Command1_Click()
 Text1.Text = “”
 Dim s As Long, i As Long
 Dim a()
 Do
 ReDim Preserve a(s)
 a(s) = InputBox(“请输入字符串，输入空串时结束”, “输入”)
 s = s + 1
 Loop Until a(s - 1) = “”
 For i = 0 To s - 2
 Text1.Text = Text1.Text & “第” & CStr(i + 1) & “个是：” & CStr(a(i)) & “”
 Next i
 Erase a
 End Sub