formuleto
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) = "Na2O"
fo(2) = "CaO"
fo(3) = "Al2O3"
fo(4) = "FeO"
fo(5) = "Fe2O3"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub acidi2()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub acidi3()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub CommandButton10_Click()
MsgBox "informazioni sul programma"
MsgBox "vengono presentati nomi di composti chimici"
MsgBox "si devono scrivere le formule corrispondenti"
MsgBox "per usare il programma attivare di seguiti i
pulsanti"
MsgBox "per cancellare e poi per le domande
d1..d2..d16"
MsgBox "scrivere le risposte usando TAB per spostarsi"
MsgBox "premere pulsante per controlli corrispondente a
domande"
MsgBox "vengono fornite indicazioni sulla correttezza delle
risposte"
End Sub
Private Sub CommandButton11_Click()
aci1
End Sub
Private Sub CommandButton12_Click()
verificaci1
End Sub
Private Sub CommandButton13_Click()
aci2
End Sub
Private Sub CommandButton14_Click()
verificaci2
End Sub
Private Sub CommandButton15_Click()
aci3
End Sub
Private Sub CommandButton16_Click()
verificaci3
End Sub
Private Sub CommandButton17_Click()
aci4
End Sub
Private Sub CommandButton18_Click()
verificaci4
End Sub
Private Sub CommandButton19_Click()
basix1
End Sub
Private Sub CommandButton2_Click()
verifica1
End Sub
Private Sub verifica2()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub verifica1()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub CommandButton3_Click()
acidi1
End Sub
Private Sub CommandButton20_Click()
verificabx1
End Sub
Private Sub CommandButton21_Click()
basix2
End Sub
Private Sub CommandButton22_Click()
verificabx2
End Sub
Private Sub CommandButton23_Click()
basix3
End Sub
Private Sub CommandButton24_Click()
verificabx3
End Sub
Private Sub CommandButton25_Click()
basix4
End Sub
Private Sub CommandButton26_Click()
verificabx4
End Sub
Private Sub CommandButton27_Click()
salex1
End Sub
Private Sub CommandButton28_Click()
verificasx1
End Sub
Private Sub CommandButton29_Click()
salex2
End Sub
Private Sub CommandButton30_Click()
verificasx2
End Sub
Private Sub CommandButton31_Click()
salex3
End Sub
Private Sub CommandButton32_Click()
verificasx3
End Sub
Private Sub CommandButton33_Click()
salex4
End Sub
Private Sub CommandButton34_Click()
verificasx4
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) = "SO2"
fo(2) = "CO2"
fo(3) = "Cl2O3"
fo(4) = "SO3"
fo(5) = "N2O5"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Public Sub acidi4()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub verifica4()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub aci1()
Dim fo(5) As String
Dim rispo(5) As String
rispo(1) = "acido solforico"
rispo(2) = "acido nitrico"
rispo(3) = "acido cloridrico"
rispo(4) = "acido solfidrico"
rispo(5) = "acido fluoridrico"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub aci2()
Dim fo(5) As String
Dim rispo(5) As String
rispo(1) = "acido solforoso"
rispo(2) = "acido nitrico"
rispo(3) = "acido cloridrico"
rispo(4) = "acido solfidrico"
rispo(5) = "acido fluoridrico"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub aci3()
Dim fo(5) As String
Dim rispo(5) As String
rispo(1) = "acido ipocloroso"
rispo(2) = "acido perclorico"
rispo(3) = "acido clorico"
rispo(4) = "acido cloroso"
rispo(5) = "acido fosforico"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub verificaci2()
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"
rispo(1) = "acido solforoso"
rispo(2) = "acido nitroso"
rispo(3) = "acido iodidrico"
rispo(4) = "acido bromidrico"
rispo(5) = "acido carbonico"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
esa = esa + 1
Else
Label6.Caption = "errato:" & fo(1)
era = era + 1
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
esa = esa + 1
Else
Label7.Caption = "errato:" & fo(2)
era = era + 1
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
esa = esa + 1
Else
Label8.Caption = "errato:" & fo(3)
era = era + 1
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
esa = esa + 1
Else
Label9.Caption = "errato:" & fo(4)
era = era + 1
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
esa = esa + 1
Else
Label10.Caption = "errato:" & fo(5)
era = era + 1
End If
MsgBox " esatte=" & esa & " errate="
& era
End Sub
Private Sub verificaci1()
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"
rispo(1) = "acido solforico"
rispo(2) = "acido nitrico"
rispo(3) = "acido cloridrico"
rispo(4) = "acido solfidrico"
rispo(5) = "acido fluoridrico"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
esa = esa + 1
Else
Label6.Caption = "errato:" & fo(1)
era = era + 1
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
esa = esa + 1
Else
Label7.Caption = "errato:" & fo(2)
era = era + 1
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
esa = esa + 1
Else
Label8.Caption = "errato:" & fo(3)
era = era + 1
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
esa = esa + 1
Else
Label9.Caption = "errato:" & fo(4)
era = era + 1
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
esa = esa + 1
Else
Label10.Caption = "errato:" & fo(5)
era = era + 1
End If
MsgBox " errate=" & era & " esatte="
& esa
End Sub
Private Sub verificaci3()
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 fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
esa = esa + 1
Else
Label6.Caption = "errato:" & fo(1)
era = era + 1
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
esa = esa + 1
Else
Label7.Caption = "errato:" & fo(2)
era = era + 1
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
esa = esa + 1
Else
Label8.Caption = "errato:" & fo(3)
era = era + 1
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
esa = esa + 1
Else
Label9.Caption = "errato:" & fo(4)
era = era + 1
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
esa = esa + 1
Else
Label10.Caption = "errato:" & fo(5)
era = era + 1
End If
MsgBox " esatte=" & esa & " errate="
& era
End Sub
Public Sub aci4()
Dim fo(5) As String
Dim rispo(5) As String
rispo(1) = "acido periodico"
rispo(2) = "acido fosforoso"
rispo(3) = "acido bromico"
rispo(4) = "acido bromoso"
rispo(5) = "acido iodoso"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub verificaci4()
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"
rispo(1) = "acido periodico"
rispo(2) = "acido fosforoso"
rispo(3) = "acido bromico"
rispo(4) = "acido bromoso"
rispo(5) = "acido iodoso"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
esa = esa + 1
Else
Label6.Caption = "errato:" & fo(1)
era = era + 1
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
esa = esa + 1
Else
Label7.Caption = "errato:" & fo(2)
era = era + 1
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
esa = esa + 1
Else
Label8.Caption = "errato:" & fo(3)
era = era + 1
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
esa = esa + 1
Else
Label9.Caption = "errato:" & fo(4)
era = era + 1
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
esa = esa + 1
Else
Label10.Caption = "errato:" & fo(5)
era = era + 1
End If
MsgBox " esatte=" & esa & " errate="
& era
End Sub
Private Sub basix1()
Dim fo(5) As String
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub basix2()
Dim fo(5) As String
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub basix3()
Dim fo(5) As String
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub verificabx2()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub verificabx1()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub verificabx3()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Public Sub basix4()
Dim fo(5) As String
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub verificabx4()
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 = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub salex1()
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub salex2()
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub salex3()
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub verificasx2()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & (4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub verificasx1()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub verificasx3()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Public Sub salex4()
Dim rispo(5) As String
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
End Sub
Private Sub verificasx4()
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"
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"
Label1.Caption = rispo(1)
Label2.Caption = rispo(2)
Label3.Caption = rispo(3)
Label4.Caption = rispo(4)
Label5.Caption = rispo(5)
If fo(1) = (TextBox1.Text) Then
Label6.Caption = "esatto"
Else
Label6.Caption = "errato:" & fo(1)
End If
If fo(2) = (TextBox2.Text) Then
Label7.Caption = "esatto"
Else
Label7.Caption = "errato:" & fo(2)
End If
If fo(3) = (TextBox3.Text) Then
Label8.Caption = "esatto"
Else
Label8.Caption = "errato:" & fo(3)
End If
If fo(4) = (TextBox4.Text) Then
Label9.Caption = "esatto"
Else
Label9.Caption = "errato:" & fo(4)
End If
If fo(5) = (TextBox5.Text) Then
Label10.Caption = "esatto"
Else
Label10.Caption = "errato:" & fo(5)
End If
End Sub
Private Sub UserForm_Click()
End Sub