如何在程序中定义全局多维动态数组???

Question

Dim urArray()
ReDim urArray(24, 38)

Answer 1

同意：：　Bardo(巴顿)　
^_^

Answer 2

对了是全局的，应当在模块中
Public urArray()比如Form中可以有下列代码：
Private Sub Form_Load()
Dim i, j
ReDim UrArray(24, 38)
For i = 0 To 24
For j = 0 To 38
UrArray(i, j) = i * j
Next j
Next i
For i = 0 To 24
For j = 0 To 38
Debug.Print UrArray(i, j)
Next j
Next iEnd Sub
 

Answer 3

Bardo(巴顿)　的方法没有演示动态,巴顿的实际意思应该如下:
为了是全局的，应当在模块中
Public urArray() as 随便
比如Form中可以有下列代码：
Private Sub Form_Load()
Dim i, jFor i = 1 To 24  
  For j = 1 To 38
    ReDim UrArray(i, j) '这样都可以的,这只是例子,实际中应该不需要这样,因为每次redim后数组中的数据就会全部清空
  Next j
Next iEnd Sub

Answer 4

Bardo(巴顿)说的对。
可惜我晚来一步。哈：）