Private Declare Sub RtlMoveMemory Lib "kernel32" (Destination As Any, Source As Any, ByVal Length As Long)

 'code by lichmama from cnblogs.com

 Private Sub Form_Load()

     Dim a() As Byte

     Dim b(, ) As Byte

     Dim c(, , ) As Byte

     Debug.Print "一维数组："

     Debug.Print VarPtr(a()), VarPtr(a()), VarPtr(a())

     '数组元素在内存中的排列情况：

     'a[0]|a[1]|a[2]

     Debug.Print "二维数组："

     Debug.Print VarPtr(b(, )), VarPtr(b(, )), VarPtr(b(, ))

     Debug.Print VarPtr(b(, )), VarPtr(b(, )), VarPtr(b(, ))

     Debug.Print VarPtr(b(, )), VarPtr(b(, )), VarPtr(b(, ))

     '数组元素在内存中的排列情况：

     'b[0,0]|b[1,0]|b[2,0]-->b[0,1]|b[1,1]|b[2,1]-->b[0,2]|b[1,2]|b[2,2]

     Debug.Print "三维数组："

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     Debug.Print VarPtr(c(, , )), VarPtr(c(, , )), VarPtr(c(, , ))

     '数组元素在内存中的排列情况：

     'c[0,0,0]|c[1,0,0]|c[2,0,0]-->c[0,1,0]|c[1,1,0]|c[2,1,0]-->c[0,2,0]|c[1,2,0]|c[2,2,0]

     '-->c[0,0,1]|c[1,0,1]|c[2,0,1]-->c[0,1,1]|c[1,1,1]|c[2,1,1]-->c[0,2,1]|c[1,2,1]|c[2,2,1]

     '-->c[0,0,2]|c[1,0,2]|c[2,0,2]-->c[0,1,2]|c[1,1,2]|c[2,1,2]-->c[0,2,2]|c[1,2,2]|c[2,2,2]

     '我们习惯逻辑上这么给数组赋值，字面上像是b()="lhmimaca!"

     b(, ) = &H6C: b(, ) = &H68: b(, ) = &H6D

     b(, ) = &H69: b(, ) = &H6D: b(, ) = &H61

     b(, ) = &H63: b(, ) = &H61: b(, ) = &H21

     Dim text As String

     text = String(, " ")

     Call RtlMoveMemory(ByVal StrPtr(text), ByVal VarPtr(b(, )), )

     Debug.Print "但，其实结果是这样的：";

     Debug.Print StrConv(text, vbUnicode)

 End Sub

一维数组：

二维数组：

三维数组：

但，其实结果是这样的：lichmama!