使用二维数组的一个例子，通过数组对行与列进行转换（即矩阵转换），从而实现对数据的分析，如下图：

代码如下:

Dim myArray(1 To 5, 1 To 5) As Long
Dim intX As Integer
Dim intY As Integer
Private Sub Command5_Click()
    Dim temp As Variant
    For intX = 1 To 5
        For intY = intX To 5
            temp = myArray(intY, intX)
            myArray(intY, intX) = myArray(intX, intY)
            myArray(intX, intY) = temp
        Next intY
    Next intX
    For intX = 1 To 5
        For intY = 1 To 5
            Me.Text6 = Me.Text6 & myArray(intX, intY) & ","
        Next intY
        Me.Text6 = Me.Text6 & vbCrLf
    Next intX
End Sub


Private Sub Command77_Click()
    For intX = 1 To 5
        For intY = 1 To 5
            myArray(intX, intY) = Int(Rnd * 100) + 10
        Next intY
    Next intX
    For intX = 1 To 5
        For intY = 1 To 5
            Me.Text3 = Me.Text3 & myArray(intX, intY) & ","
        Next intY
        Me.Text3 = Me.Text3 & vbCrLf
    Next intX
End Sub

示   例:

点击下载此附件

演   示: