Sto lavorando su un algoritmo in cui inserisco i voti in un vettore con un ciclo for, ma ad un certo punto mi appare errore dicendomi: Riferimento a un oggetto non impostato su un'istanza di oggetto. Mi evidenzia in particolare: "voti(i) = ReadLine()"
codice:
Imports System.Console
Module Module1
Dim na As Integer 'numero alunni
Dim i As Integer
Dim voti() As Decimal 'vettore contenete i voti degli alunni
Dim media As Decimal 'media voti
Dim num_ins As Integer 'numero dei voti insufficienti
Dim per_ins As Decimal 'relativa percentuale dei voti insufficienti
Dim voto_max As Decimal 'voto massimo
Dim somma_voti As Decimal 'variabile locale, somma totale dei voti
Sub Main()
Write("Inserire il numero degli alunni: ")
na = ReadLine()
For i = 1 To na
Write("Inserire il voto dell'alunno numero " & i & " : ")
voti(i) = ReadLine()
Next i
Grazie