interactive test on chemical reactions are proposed series of simple chemical reactions, incomplete: must be entered for each reagent or reaction product with missing coefficients for balancing you check the responses and provides complete reaction with visual basic tutorial on powerpoint variant with variable sized, for-next loop display data and answers, call control procedures for answers
http:// utenti.multimania.it/fumari/anno10/elenco.htm
http://utenti.multimania.it/fumari/anno10/chimicatest.htm
http://utenti.multimania.it/fumari/anno10/chimicatest.ppt
http://utenti.multimania.it/ fumari/anno10/chimica1.GIF
http://utenti.multimania.it/fumari/anno10/chimica2.GIF
http://utenti.multimania.it/fumari/anno10/chimica3.GIF
chemistry tests with corrective reactions
provides three sets of reactions to be completed by inserting formula
reactive or missing product
you view the correct answers and the reaction
full version (more compact) of
http://utenti.multimania .it/fumari/anno10/testchimicax.htm
as an exercise with visual basic powerpoint
up: use of variable size, display
questions and answers with-next loop, verification procedure call
Rem shows reaction to be completed share three series
Dim d (27) As String Rem
first set
d (1) = "CaO + CO2>>>"
d (2) = "CaO + H2O>>>"
d (3) = "H2 + Cl2>>>"
d (4) = "2NaCl + H2SO4>>> 2HCl +"
d (5) = "2SO2 + O2>>>"
d (6) = "2HCl + Zn>>> H2 + "
d (7) =" NaOH + HCl>>> H2O + "
d (8) =" 2NaOH + H2SO4>>> 2H2O + "
d (9) =" AgNO3 + NaCl >>> NaNO3 + "
Rem
second set of (10) =" Ca (OH) 2 + X>>> CaCO3 + H2O "
d (11) = 'FeS + X>>> FeCl2 + 2H2S"
d (12) = 'SO2 + X>>> H2SO3 "
d (13) =" SO3 + X>>> H2SO4 "
d (14) =" CO2 + X>>> H2CO3 "
d (15) =" Cl2O3 + X>>> 2HClO2 "
d (16) =" Cl2O5 + X>>> 2HClO3 "
d (17) =" X + H2O>>> 2HClO4 "
d (18) =" N2O3 + X>>> 2HNO2 "
Rem third series
d (19) =" CaO + CO2>>> "
d (20) = "+ MgO SO3>>>"
d (21) = "CaO + H2O>>>"
d (22) = "Ca (OH) 2 + 2HCl>>> 2H2O +" d
(23) = "NaOH + HNO3>>> H2O +"
d (24) = "H2 + F2>>>"
d (25) = "2Cl2 + 3O2>>>"
d (26) = 'N2 + 3H2>>> "
d (27) =" 2C + O2>>> "
Rem
ListBox1.AddItem receive questions ("Write the answers in the boxes")
ListBox1.AddItem ("at the end Click to check answers")
ListBox1.AddItem ("------ first set --- ---- ")
For k = 1 To 27
ListBox1.AddItem (d (k))
If k = 9 or k = 18 Then
ListBox1.AddItem ("----------- -----------")
End If Next k
TextBox1.SetFocus
End Sub Private Sub
CommandButton1_Click ()
Rem Rem write the first series
reaction products
Dim r ( 9) As String Dim
rd (9) As String Dim
d (27) As String Rem
correct answer
r (1) = "CaCO3"
r (2) = "Ca (OH) 2"
r (3) = "2HCl"
r (4) = "Na2SO4"
r (5) = "2SO3"
r (6) = "ZnCl2"
r (7) = "NaCl"
r (8) = "Na2SO4"
r (9) = "AgCl"
Rem response
rd (1) = TextBox1
rd (2) = TextBox2
rd (3) Textbox3
= rd (4) = TextBox4
rd (5) = TextBox5
rd (6) = TextBox6
rd (7) = TextBox7
rd (8) = TextBox8
rd (9) = TextBox9
Rem reactions to be completed complete
d (1) = "CaO + CO2>>> CaCO3"
d (2) = "CaO + H2O> Ca (OH) 2"
d (3) = "H2 + Cl2>>> HCl"
d (4) = "2NaCl + H2SO4>>> 2HCl + Na2SO4"
d (5) = "2SO2 + O2> 2SO3"
d (6) = "2HCl + Zn>>> H2 + ZnCl2 "
d (7) =" NaOH + HCl> NaCl + H2O "
d (8) =" 2NaOH + H2SO4>>> 2H2O + Na2SO4 "
d (9) =" AgNO3 + NaCl>>> NaNO3 + AgCl "
Rem check answers
For k = 1 To 9
Call Verification (r (k), rd (k), d (k)) k
Next End Sub
Private Sub CommandButton5_Click ()
second set
Rem Rem write reaction products or reactive
Rem correct answer
Dim r (9) As String Dim
rd (9) As String Dim
d (27) As String Rem
correct answer
r (1) = "CO2"
r (2) = "2HCl"
r (3) = "H2O"
r (4) = "H20"
r (5) = "H2O"
r (6) = "H2O"
r (7) = " Cl2O5 "
r (8) =" Cl2O7 "
r (9) =" H2O "
Rem response
rd (1) = TextBox1
rd (2) = TextBox2
rd (3) = Textbox3
rd (4 ) = TextBox4
rd (5) = TextBox5
rd (6) = TextBox6
rd (7) = TextBox7
rd (8) = TextBox8
rd (9) = TextBox9
Rem
reactions to complete, full
d (1) = "Ca (OH) 2 + CO2>>> CaCO3 + H2O"
d (2) = 'FeS + 2HCl>>> FeCl2 + 2H2S "
d (3) = "SO2 + H2O> H2SO3"
d (4) = "SO3 + H2O> H2SO4"
d (5) = "CO2 + H2O>>> H2CO3"
d (6) = "+ H2O Cl2O3 >>> 2HClO2 "
d (7) =" Cl2O5 + H2O>>> 2HClO3 "
d (8) =" Cl2O7 + H2O>>> 2ClO4 "
d (9) =" N2O3 + X>>> 2HNO2 "
Rem check answers
For k = 1 To 9
Call Verification (r (k) rd (k), d (k)) k
Next End Sub Private Sub
CommandButton6_Click ()
Rem Rem
third series to write the reaction products
Dim r (9) As String Dim
rd (9)
As String Dim d (27) As String Rem
correct answer
r (1) = "CaCO3"
r (2) = "MgSO4"
r (3) = "Ca (OH) 2"
r (4 ) = "CaCl2"
r (5) = "NaNO3"
r (6) = "2HF"
r (7) = "2ClO3"
r (8) = "2NH3"
r (9) = "2CO"
Rem response
rd (1) = TextBox1
rd (2) = TextBox2
rd (3) = Textbox3
rd (4) = TextBox4
rd (5) = TextBox5
rd (6) = TextBox6
rd (7) = TextBox7
rd (8) = TextBox8
rd (9) = TextBox9
Rem reactions to complete, full
d (1) = "CaO + CO2>>> CaCO3 "
d (2) =" + MgO SO3>>> MgSO4 "
d (3) =" CaO + H2O> Ca (OH) 2 "
d (4) =" Ca ( OH) 2 + 2HCl>>> 2H2O + CaCl2 "
d (5) =" NaOH + HNO3> NaNO3 + H2O "
d (6) =" H2 + F2>>> 2HF "
d (7) = "2Cl2 + 3O2>>> 2ClO3"
d (8) = "N2 + 3H2>>> 2NH3"
d (9) = "2C + O2>>> 2CO"
Rem check answers
For k = 1 To 9
Call Verification (r (k), rd (k), d (k)) Next k
End Sub Private Sub
verification (exact date, complete) data = exact If
Then
ListBox2.AddItem ("exact:" & exact)
ListBox2.AddItem (complete)
Else
ListBox2.AddItem (" Wrong: it was: "& exact)
ListBox2.AddItem (complete) End If
ListBox2.AddItem ("------------------------- ")
End Sub Private Sub
CommandButton3_Click ()
ListBox1.Clear
ListBox2.Clear
End Sub
Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
End Sub
