UP

Per non creare un altra discussione chiedo qui

Se potete aiutarmi con questo compito:
Realizzare un progetto che reigstri i risultait delle verifiche di informatica su tre vettori paralleli: uno per memorizzare il nome dell'alunno, uno per memorizzare le valutazioni della Teoria e uno per le valutaizoni della Pratica. Si preveda:
-il caricamento dei tre vettori
-la visualizzazzione in due liste dei nomi degli studenti con valutazione di teoria sufficente e relativa valutazione dell'alunno;
-il calcolo della media dei voti di Pratica

codice:
Public Class Form1    
Dim Nomi(100) As String    
Dim VotiTeoria(100), VotiPratica(100), N, MediaPratica, Somma As Decimal    

Private Sub BtnCarica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCarica.Click         
N = InputBox("Inserisci il numero degli studenti")         
For I = 0 To N - 1             
Nomi(I) = InputBox("Inserisci il nome dell'alunno")             
VotiPratica(I) = InputBox("Inserisci la valutazione per la Pratica dell'alunno") 
VotiTeoria(I) = InputBox("Inserisci la valutazione per la Teoria dell'alunno")          
Next      
End Sub     

Private Sub BtnVisualizza_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnVisualizza.Click         
For I = 0 To N - 1            
If VotiTeoria(I) >= 6 Then                 
ListBox1.Items.Add(Nomi(I))                 
ListBox2.Items.Add(VotiTeoria(I))              
End If         
Next     
End Sub      

Private Sub BtnmediaPratica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnmediaPratica.Click        
For I = 0 To N - 1            
Somma = Somma + VotiPratica(I)             
MediaPratica = Somma / N        
Next         
MsgBox(Mediapratica)     
End Sub
Questa prima parte l'ho fatta(èm cosi giusto? o 3 vettori paralleli vuol dire che devo fare tre pulsanti carica?..), ora da qualcuno mi servirebbe una mano con questo ultimo pezzo:

-Prevedere un pulsante che permetta di calcolare, caricare in un array e visualizzare in una lista le valutazioni medie (tra teoria e pratica) per ciascun alunno.


Ho provato a fare cosi:

codice:
    
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         
For I = 0 To N - 1             
Somma = Somma + VotiPratica(I)            
Somma = Somma + VotiTeoria(I)              
MediaPraticaTeoria = Somma / N            
ListBox3.Items.Add("la media di " & Nomi(I) & " è " & MediaPraticaTeoria)         
Next     
End Sub
End Class
Ma

1)Appaiono
2) Ma la media non è giusta..cosa ho sbagliato?
3) però che significa allora che permetta di caricare in un array, devo fare un altor pulsante carica, o comunque ricaricare i dati?..


inoltre riguardo la media della Prima parte è normale che se riclicco sul pulsante mi dà altri numeri in aumento, per es. la media è 5 e appare giusta, ma poi se riclicco appare 10,15,20 ecc ecc ...e la stessa cosa con quest'ultimo pezzo alla listbox se riclicco sul pulsante riappaiono le stesse scritte ma con numeri piu grandi..