fatjeronimo 0 Posted May 18, 2020 Report Share Posted May 18, 2020 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 post Share on other sites
antseq 83 Posted May 18, 2020 Report Share Posted May 18, 2020 (edited) 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 Link to post Share on other sites
fatjeronimo 0 Posted May 18, 2020 Author Report Share Posted May 18, 2020 Obrigada. Funcionou. Link to post Share on other sites
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now