test su formule chimiche con excel e vba

esercitazione con excel e vba su test di chimicatest per verifica apprendimento nomenclatura chimicavengono fornite formule chimiche e nomi corrispondenti individuati da nuneri 1-9l'allievo deve inserire come rispostail numero corrispondente al nome delle formulevengono elaborate le risposte e alla fine dell'inserimento visualizzati i risultatinumero risposte esatte, errate, percentualiconferma o correzione per ogni risposta inseritagrafico che evidenzia risposte attese e risposte fornite in foglio2http://digilander.libero.it/francescovise/verifica/chimicatest1.htmhttp://digilander.libero.it/francescovise/verifica/chimicatest1.xlshttp://digilander.libero.it/francescovise/verifica/chimicatest1a.GIFhttp://digilander.libero.it/francescovise/verifica/chimicatest1b.GIFhttp://digilander.libero.it/francescovise/verifica/chimicatest1c.GIFhttp://digilander.libero.it/francescovise/verifica/chimicatest1d.GIFcodice da copiare e incollarePrivate Sub CommandButton1_Click() Rem nasconde risultati ListBox1.Visible = True End Sub Private Sub CommandButton2_Click() Rem visualizza risultati ListBox1.Visible = Falserem modulo ripetibile per altre domande If Cells(1, 7) = Cells(5, 1) Then 'confronta risposta fornita con quella attesa Cells(1, 9) = "esatto" 'conferma se esatta Else Cells(1, 9) = "errato:era= " & Cells(5, 1) 'corregge se errata End If If Cells(2, 7) = Cells(8, 1) Then Cells(2, 9) = "esatto" Else Cells(2, 9) = "errato:era= " & Cells(8, 1) End If If Cells(3, 7) = Cells(7, 1) Then Cells(3, 9) = "esatto" Else Cells(3, 9) = "errato:era= " & Cells(7, 1) End If If Cells(4, 7) = Cells(4, 1) Then Cells(4, 9) = "esatto" Else Cells(4, 9) = "errato:era= " & Cells(4, 1) End If If Cells(5, 7) = Cells(2, 1) Then Cells(5, 9) = "esatto" Else Cells(5, 9) = "errato:era= " & Cells(2, 1) End If If Cells(6, 7) = Cells(3, 1) Then Cells(6, 9) = "esatto" Else Cells(6, 9) = "errato:era= " & Cells(3, 1) End If If Cells(7, 7) = Cells(6, 1) Then Cells(7, 9) = "esatto" Else Cells(7, 9) = "errato:era= " & Cells(6, 1) End If If Cells(8, 7) = Cells(1, 1) Then Cells(8, 9) = "esatto" Else Cells(8, 9) = "errato:era= " & Cells(1, 1) End If If Cells(9, 7) = Cells(9, 1) Then Cells(9, 9) = "esatto" Else Cells(9, 9) = "errato:era= " & Cells(9, 1) End If End Sub Private Sub CommandButton3_Click() Rem cancella risposte e risultati For riga = 1 To 9 Cells(riga, 7) = "" Cells(riga, 9) = "" Next riga End Sub Private Sub CommandButton4_Click() Rem trasferisce risposte per grafica For riga = 1 To 9 Foglio2.Cells(riga, 1) = Cells(riga, 7) Next riga Foglio2.Cells(12, 1) = Cells(15, 10) 'esatte End Sub