acidoto

esci con testvba.htm

test su formule chimiche delle quali si richiede il nome
acidoto.ppt

Private Sub CommandButton1_Click()
Call cancella
End Sub

Private Sub cancella()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
Label10.Caption = ""
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
End Sub


Private Sub acidi1()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "H2SO4"
fo(2) = "HNO3"
fo(3) = "HCl"
fo(4) = "H2S"
fo(5) = "HF"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido solforico"
rispo(2) = "acido nitrico"
rispo(3) = "acido cloridrico"
rispo(4) = "acido solfidrico"
rispo(5) = "acido fluoridrico"


End Sub


Private Sub acidi2()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "H2SO3"
fo(2) = "HNO3"
fo(3) = "HCl"
fo(4) = "H2S"
fo(5) = "HF"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido solforoso"
rispo(2) = "acido nitrico"
rispo(3) = "acido cloridrico"
rispo(4) = "acido solfidrico"
rispo(5) = "acido fluoridrico"


End Sub


Private Sub acidi3()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "HClO"
fo(2) = "HClO4"
fo(3) = "HClO3"
fo(4) = "HClO2"
fo(5) = "H3PO4"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido ipocloroso"
rispo(2) = "acido perclorico"
rispo(3) = "acido clorico"
rispo(4) = "acido cloroso"
rispo(5) = "acido fosforico"


End Sub



Private Sub CommandButton10_Click()
MsgBox "informazioni sul programma"
MsgBox "vengono presentate formule chimiche"
MsgBox "si devono scrivere i nomi corrispondenti come indicato"
MsgBox "per usare il programma attivare di seguito"
MsgBox "pulsante per cancellare e poi per domande d1..d2..d16"
MsgBox "scrivere le risposte usando TAB per spostarsi"
MsgBox "premere pulsante per controlli c1..c2..c3..c16"
MsgBox "viene indicato se le risposte erano esatte"
End Sub

Private Sub CommandButton11_Click()
basi1
End Sub

Private Sub CommandButton12_Click()
verificab1
End Sub

Private Sub CommandButton13_Click()
basi2
End Sub

Private Sub CommandButton14_Click()
verificab2
End Sub

Private Sub CommandButton15_Click()
basi3
End Sub

Private Sub CommandButton16_Click()
verificab3
End Sub

Private Sub CommandButton17_Click()
basi4
End Sub

Private Sub CommandButton18_Click()
verificab4
End Sub

Private Sub CommandButton19_Click()
ossidi1
End Sub

Private Sub CommandButton2_Click()
verifica1
End Sub

Private Sub verifica2()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "H2SO3"
fo(2) = "HNO2"
fo(3) = "HI"
fo(4) = "HBr"
fo(5) = "H2CO3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido solforoso"
rispo(2) = "acido nitroso"
rispo(3) = "acido iodidrico"
rispo(4) = "acido bromidrico"
rispo(5) = "acido carbonico"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub

Private Sub verifica1()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "H2SO4"
fo(2) = "HNO3"
fo(3) = "HCl"
fo(4) = "H2S"
fo(5) = "HF"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido solforico"
rispo(2) = "acido nitrico"
rispo(3) = "acido cloridrico"
rispo(4) = "acido solfidrico"
rispo(5) = "acido fluoridrico"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub

Private Sub CommandButton3_Click()
acidi1
End Sub

Private Sub CommandButton20_Click()
verificaox1
End Sub

Private Sub CommandButton21_Click()
ossidi2
End Sub

Private Sub CommandButton22_Click()
verificaox2
End Sub

Private Sub CommandButton23_Click()
ossidi3
End Sub

Private Sub CommandButton24_Click()
verificaox3
End Sub

Private Sub CommandButton25_Click()
ossidi4
End Sub

Private Sub CommandButton26_Click()
verificaox4
End Sub

Private Sub CommandButton27_Click()
sale1
End Sub

Private Sub CommandButton28_Click()
verificas1
End Sub

Private Sub CommandButton29_Click()
sale2
End Sub

Private Sub CommandButton30_Click()
verificas2
End Sub

Private Sub CommandButton31_Click()
sale3
End Sub

Private Sub CommandButton32_Click()
verificas3
End Sub

Private Sub CommandButton33_Click()
sale4
End Sub

Private Sub CommandButton34_Click()
verificas4
End Sub

Private Sub CommandButton4_Click()
acidi2
End Sub

Private Sub CommandButton5_Click()
verifica2
End Sub

Private Sub CommandButton6_Click()
acidi3
End Sub

Private Sub CommandButton7_Click()
verifica3
End Sub

Private Sub CommandButton8_Click()
acidi4
End Sub

Private Sub CommandButton9_Click()
verifica4
End Sub

Private Sub domande1_Click()
acidi1
End Sub

Private Sub verifica3()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "HClO"
fo(2) = "HClO4"
fo(3) = "HClO3"
fo(4) = "HClO2"
fo(5) = "H3PO4"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido ipocloroso"
rispo(2) = "acido perclorico"
rispo(3) = "acido clorico"
rispo(4) = "acido cloroso"
rispo(5) = "acido fosforico"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Public Sub acidi4()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "HIO4"
fo(2) = "H3PO3"
fo(3) = "HBrO3"
fo(4) = "HBrO2"
fo(5) = "HIO2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido periodico"
rispo(2) = "acido fosforoso"
rispo(3) = "acido bromico"
rispo(4) = "acido bromoso"
rispo(5) = "acido iodoso"
End Sub


Private Sub verifica4()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "HIO4"
fo(2) = "H3PO3"
fo(3) = "HBrO3"
fo(4) = "HBrO2"
fo(5) = "HIO2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "acido periodico"
rispo(2) = "acido fosforoso"
rispo(3) = "acido bromico"
rispo(4) = "acido bromoso"
rispo(5) = "acido iodoso"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub








Private Sub basi1()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "NaOH"
fo(2) = "Ca(OH)2"
fo(3) = "Al(OH)3"
fo(4) = "Fe(OH)2"
fo(5) = "Fe(OH)3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idrossido di sodio1"
rispo(2) = "idrossido di calcio2"
rispo(3) = "idrossido di alluminio3"
rispo(4) = "idrossido di ferro2"
rispo(5) = "idrossido di ferro3"


End Sub


Private Sub basi2()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "Ba(OH)2"
fo(2) = "Pb(OH)4"
fo(3) = "Sn(OH)4"
fo(4) = "Cd(OH)2"
fo(5) = "Cu(OH)2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idrossido di bario2"
rispo(2) = "idrossido di piombo4"
rispo(3) = "idrossido di stagno4"
rispo(4) = "idrossido di cadmio2"
rispo(5) = "idrossido di rame2"


End Sub


Private Sub basi3()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "NaH"
fo(2) = "CaH2"
fo(3) = "AlH3"
fo(4) = "BaH2"
fo(5) = "PbH2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idruro di sodio1"
rispo(2) = "idruro di calcio2"
rispo(3) = "idruro di alluminio3"
rispo(4) = "idruro di bario2"
rispo(5) = "idruro di piombo2"


End Sub





Private Sub verificab2()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "Ba(OH)2"
fo(2) = "Pb(OH)4"
fo(3) = "Sn(OH)4"
fo(4) = "Cd(OH)2"
fo(5) = "Cu(OH)2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idrossido di bario2"
rispo(2) = "idrossido di piombo4"
rispo(3) = "idrossido di stagno4"
rispo(4) = "idrossido di cadmio2"
rispo(5) = "idrossido di rame2"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub

Private Sub verificab1()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "NaOH"
fo(2) = "Ca(OH)2"
fo(3) = "Al(OH)3"
fo(4) = "Fe(OH)2"
fo(5) = "Fe(OH)3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idrossido di sodio1"
rispo(2) = "idrossido di calcio2"
rispo(3) = "idrossido di alluminio3"
rispo(4) = "idrossido di ferro2"
rispo(5) = "idrossido di ferro3"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Private Sub CommandButton4_Clickacidi2()
End Sub











Private Sub verificab3()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "NaH"
fo(2) = "CaH2"
fo(3) = "AlH3"
fo(4) = "BaH2"
fo(5) = "PbH2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idruro di sodio1"
rispo(2) = "idruro di calcio2"
rispo(3) = "idruro di alluminio3"
rispo(4) = "idruro di bario2"
rispo(5) = "idruro di piombo2"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Public Sub basi4()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "MgH2"
fo(2) = "KH"
fo(3) = "CuH"
fo(4) = "CuH2"
fo(5) = "AlH3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idruro di magnesio2"
rispo(2) = "idruro di potassio1"
rispo(3) = "idruro di rame1"
rispo(4) = "idruro di rame2"
rispo(5) = "idruro di alluminio3"
End Sub


Private Sub verificab4()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "MgH2"
fo(2) = "KH"
fo(3) = "CuH"
fo(4) = "CuH2"
fo(5) = "AlH3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "idruro di magnesio2"
rispo(2) = "idruro di potassio1"
rispo(3) = "idruro di rame1"
rispo(4) = "idruro di rame2"
rispo(5) = "idruro di alluminio3"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub





Private Sub ossidi1()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "Na2O"
fo(2) = "CaO"
fo(3) = "Al2O3"
fo(4) = "FeO"
fo(5) = "Fe2O3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di sodio1"
rispo(2) = "ossido di calcio2"
rispo(3) = "ossido di alluminio3"
rispo(4) = "ossido di ferro2"
rispo(5) = "ossido di ferro3"


End Sub


Private Sub ossidi2()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "BaO"
fo(2) = "PbO2"
fo(3) = "SnO2"
fo(4) = "CdO"
fo(5) = "CuO"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di bario2"
rispo(2) = "ossido di piombo4"
rispo(3) = "ossido di stagno4"
rispo(4) = "ossido di cadmio2"
rispo(5) = "ossido di rame2"


End Sub


Private Sub ossidi3()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "SO2"
fo(2) = "CO2"
fo(3) = "Cl2O3"
fo(4) = "SO3"
fo(5) = "N2O5"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di zolfo4"
rispo(2) = "ossido di carbonio4"
rispo(3) = "ossido di cloro3"
rispo(4) = "ossido di zolfo6"
rispo(5) = "ossido di azoto5"


End Sub






Private Sub verificaox2()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "BaO"
fo(2) = "PbO2"
fo(3) = "SnO2"
fo(4) = "CdO"
fo(5) = "CuO"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di bario2"
rispo(2) = "ossido di piombo4"
rispo(3) = "ossido di stagno4"
rispo(4) = "ossido di cadmio2"
rispo(5) = "ossido di rame2"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub

Private Sub verificaox1()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "Na2O"
fo(2) = "CaO"
fo(3) = "Al2O3"
fo(4) = "FeO"
fo(5) = "Fe2O3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di sodio1"
rispo(2) = "ossido di calcio2"
rispo(3) = "ossido di alluminio3"
rispo(4) = "ossido di ferro2"
rispo(5) = "ossido di ferro3"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Private Sub verificaox3()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "SO2"
fo(2) = "CO2"
fo(3) = "Cl2O3"
fo(4) = "SO3"
fo(5) = "N2O5"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di zolfo4"
rispo(2) = "ossido di carbonio4"
rispo(3) = "ossido di cloro3"
rispo(4) = "ossido di zolfo6"
rispo(5) = "ossido di azoto5"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Public Sub ossidi4()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "N2O3"
fo(2) = "Cl2O5"
fo(3) = "P2O3"
fo(4) = "Cl2O7"
fo(5) = "P2O5"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di azoto3"
rispo(2) = "ossido di cloro5"
rispo(3) = "ossido di fosforo3"
rispo(4) = "ossido di cloro7"
rispo(5) = "ossido di fosforo5"
End Sub


Private Sub verificaox4()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "N2O3"
fo(2) = "Cl2O5"
fo(3) = "P2O3"
fo(4) = "Cl2O7"
fo(5) = "P2O5"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ossido di azoto3"
rispo(2) = "ossido di cloro5"
rispo(3) = "ossido di fosforo3"
rispo(4) = "ossido di cloro7"
rispo(5) = "ossido di fosforo5"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Private Sub sale1()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "NaCl"
fo(2) = "KNO3"
fo(3) = "CaSO4"
fo(4) = "FeS"
fo(5) = "Al2(SO3)3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)

End Sub


Private Sub sale2()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "CaSO3"
fo(2) = "NaNO3"
fo(3) = "KCl"
fo(4) = "CaS"
fo(5) = "KF"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)

End Sub


Private Sub sale3()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "KClO"
fo(2) = "NaClO4"
fo(3) = "KClO3"
fo(4) = "NClO2"
fo(5) = "AlPO4"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)

End Sub





Private Sub verificas2()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "CaSO3"
fo(2) = "NaNO2"
fo(3) = "KCl"
fo(4) = "CaS"
fo(5) = "KF"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "solfito di calcio2"
rispo(2) = "nitrito di sodio1"
rispo(3) = "cloruro di potassio1"
rispo(4) = "solfuro di calcio2"
rispo(5) = "fluoruro di potassio1"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub

Private Sub verificas1()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "NaCl"
fo(2) = "KNO3"
fo(3) = "CaSO4"
fo(4) = "FeS"
fo(5) = "Al2(SO3)3"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "cloruro di sodio1"
rispo(2) = "nitrato di potassio1"
rispo(3) = "solfato di calcio2"
rispo(4) = "solfuro di ferro2"
rispo(5) = "solfito di alluminio3"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub



Private Sub verificas3()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "KClO"
fo(2) = "NaClO4"
fo(3) = "KClO3"
fo(4) = "NaClO2"
fo(5) = "AlPO4"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "ipoclorito di potassio1"
rispo(2) = "perclorato di sodio1"
rispo(3) = "clorato di potassio1"
rispo(4) = "clorito di sodio1"
rispo(5) = "fosfato di alluminio3"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub




Public Sub sale4()
Dim fo(5) As String
Dim rispo(5) As String

fo(1) = "KIO4"
fo(2) = "Ca3(PO4)2"
fo(3) = "NaBrO3"
fo(4) = "KBrO2"
fo(5) = "NaClO2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
End Sub


Private Sub verificas4()
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = "KIO4"
fo(2) = "Ca3(PO4)2"
fo(3) = "NaBrO3"
fo(4) = "KBrO2"
fo(5) = "NaClO2"
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = "periodato di potassio1"
rispo(2) = "fosfato di calcio3"
rispo(3) = "bromato di sodio1"
rispo(4) = "bromito di potassio1"
rispo(5) = "clorito di sodio1"
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & rispo(1)
End If

If rispo(2) = LCase$(TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & rispo(2)
End If

If rispo(3) = LCase$(TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & rispo(3)
End If

If rispo(4) = LCase$(TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & rispo(4)
End If

If rispo(5) = LCase$(TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & rispo(5)
End If

End Sub



Private Sub UserForm_Click()

End Sub