Matriz Multidimencional

Sub MatrizMultidimencional()

'Representação de linha e coluna
'3x2 (3 linhas / 2 colunas)
'5x5 (5 linhas / 5 colunas)
'Dim matriz(2,1) as integer "Matriz de 3 linha 2 Coluna"
'Dim matriz(4,4) as integer "Matriz de 5 linhas 5 colunas"
' 5 nomes 2 Notas e a Media

 Dim nome(4) As String
 Dim resultado(4) As String
 Dim nota(4, 2) As Double
 Dim n As Integer
 Dim c As Integer
 Dim mensagem As String

'Alimentar os dados Vetor e Matriz
 For n = 0 To 4
 nome(n) = InputBox("Nome do Aluno" & n + 1)
 nota(n, 0) = CDbl(InputBox("Nota da Primeira Prova: " & nome(n)))
 nota(n, 1) = CDbl(InputBox("Nota da Segunda Prova: " & nome(n)))
 nota(n, 2) = (nota(n, 0) + nota(n, 1)) / 2

 If nota(n, 2) >= 6 Then
  resultado(n) = "Aprovado"
 Else
  resultado(n) = "Reprovado"
  End If
  Next
 
For n = 0 To 4
    mensagem = mensagem & "Nome : " & nome(n) & " Media : " & nota(n, 2) & " Situação : " & resultado(n) & Chr(13)
Next
    MsgBox mensagem
End Sub