Access利用数组实现矩阵转换

时　间:2022-10-26 08:55:30
作　者:欧志华   ID：51519  城市：广州
摘　要:利用数组实现矩阵转换。
正　文:

代码如下:

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

示   例:

点击下载此附件

演   示: