可以,在标准模块中定义: 要创建动态数组,请按照以下步骤执行: (如果希望数组为公用数组,则)用 Public 语句声明数组,或者,(如果希望数组为模块级,则)在模块级用 Dim 语句声明数组,或者(如果希望数组为局部数组,则)在过程中用 Static 或 Dim 语句声明数组。给数组附以一个空维数表,这样就将数组声明为动态数组。 ReDim 语句用来定义或重定义原来已经用带空圆括号(没有维数下标)的 Private、Public 或 Dim 语句声明过的动态数组的大小。 例: 标准模块 Option Explicit Public BL() As String 窗体部分 Option Explicit Dim i As Integer Dim j As Integer Private Sub Command1_Click() ReDim BL(5, 10) As String For i = 0 To 2 For j = 0 To 5 BL(i, j) = i ^ 2 + j ^ 2 Next Next For i = 0 To 2 For j = 0 To 5 Print BL(i, j) Next Next End Sub
Dim a() As String ReDim a(n1,n2) '初始化数组大小 a(1,1)="啊"
要创建动态数组,请按照以下步骤执行:
(如果希望数组为公用数组,则)用 Public 语句声明数组,或者,(如果希望数组为模块级,则)在模块级用 Dim 语句声明数组,或者(如果希望数组为局部数组,则)在过程中用 Static 或 Dim 语句声明数组。给数组附以一个空维数表,这样就将数组声明为动态数组。
ReDim 语句用来定义或重定义原来已经用带空圆括号(没有维数下标)的 Private、Public 或 Dim 语句声明过的动态数组的大小。
例:
标准模块
Option Explicit
Public BL() As String
窗体部分
Option Explicit
Dim i As Integer
Dim j As Integer
Private Sub Command1_Click()
ReDim BL(5, 10) As String
For i = 0 To 2
For j = 0 To 5
BL(i, j) = i ^ 2 + j ^ 2
Next
Next
For i = 0 To 2
For j = 0 To 5
Print BL(i, j)
Next
Next
End Sub
Dim a() As String
ReDim a(n1,n2) '初始化数组大小
a(1,1)="啊"
redim f(n,2) as single