System.NullReferenceException

[fatjeronimo 0]

Quando introduzo a nota ele dá-me o seguinte erro: System.NullReferenceException: 'A referência de objecto não foi definida como uma instância de um objecto.'

O código é o seguinte:

<Public Class Form1
    Structure aluno
        Dim nome As String
        Dim notas() As Integer
    End Structure
    Dim al(10) As aluno
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, j As Integer
        ReDim Preserve al(10).notas(2)
        For i = 1 To 2
            al(i).nome = InputBox("Nome")
            For j = 1 To 2
                al(i).notas(j) = Val(InputBox(j & " ª Nota"))
            Next
        Next
    End Sub

...

>

O objetivo era ler para 11 alunos o nome e para cada a classificação a três disciplinas, mas dá-me erro ao ler a primeira nota ele dá o erro acima e 

Nome                    Valor            Tipo

al(i).notas             Nothing         Integer()

 

[antseq 83]

já há muitos anos que não vejo um programa em vb... salvo erro:

- tens de fazer o "redim" das "notas" para cada "aluno" dentro do "for"...

- se são 11 alunos o primeiro "for" devia de ser de 0 a 10

- assim como se são 3 notas o segundo "for" devia ser de 0 a 2

For i = 0 To 10
 	ReDim Preserve al(i).notas(2)
    ....
	For j = 0 To 2
  		...
    Next
Next

 

Edited May 18, 2020 by antseq

[fatjeronimo 0]

Obrigada. Funcionou.