VBA - 使用多维数组而不是两个单独的数组

使用多维数组而不是两个单独的数组

vba
Dim myArray(1 To 2, 1 To 3) As Variant
myArray(1, 1) = "A"
myArray(1, 2) = "B"
myArray(1, 3) = "C"
myArray(2, 1) = "D"
myArray(2, 2) = "E"
myArray(2, 3) = "F"

vba
Dim scores(1 To 3, 1 To 4) As Double
scores(1, 1) = 80
scores(1, 2) = 90
scores(1, 3) = 85
scores(1, 4) = 95
scores(2, 1) = 70
scores(2, 2) = 75
scores(2, 3) = 80
scores(2, 4) = 85
scores(3, 1) = 60
scores(3, 2) = 65
scores(3, 3) = 70
scores(3, 4) = 75
Dim totalScore As Double
Dim averageScore As Double
For i = 1 To 3
    totalScore = 0
    For j = 1 To 4
        totalScore = totalScore + scores(i, j)
    Next j
    averageScore = totalScore / 4
    Debug.Print "Student " & i & " average score: " & averageScore
Next i