chimicatest1

vedi chimicatest1.xls

test per verifica apprendimento nomenclatura chimica
vengono fornite formule chimiche e nomi corrispondenti individuati da nuneri 1-9
l'allievo deve inserire come risposta il numero corrispondente al nome delle formule
vengono elaborate le risposte e alla fine dell'inserimento visualizzati i risultati
numero risposte esatte, errate, percentuali
conferma o correzione per ogni risposta inserita
grafico che evidenzia risposte attese e risposte fornite in foglio2

Private Sub CommandButton1_Click()
Rem nasconde risultati
ListBox1.Visible = True
End Sub

Private Sub CommandButton2_Click()
Rem visualizza risultati
ListBox1.Visible = False

rem 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

ritorna a verifica