Jump to content

System.NullReferenceException


fatjeronimo

Recommended Posts

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()

Link to comment
Share on other sites

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 by antseq
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.