fatjeronimo Posted May 18, 2020 at 08:18 PM Report Share #618142 Posted May 18, 2020 at 08:18 PM 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 More sharing options...
antseq Posted May 18, 2020 at 09:23 PM Report Share #618143 Posted May 18, 2020 at 09:23 PM (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 at 09:24 PM by antseq Link to comment Share on other sites More sharing options...
fatjeronimo Posted May 18, 2020 at 10:14 PM Author Report Share #618147 Posted May 18, 2020 at 10:14 PM Obrigada. Funcionou. Link to comment Share on other sites More sharing options...
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