test su formule chimiche e loro nomi
chimica
esci con testvba.htm
chimica.ppt
test su formule chimiche e loro nomi
Private Sub
CommandButton1_Click()
Rem accetta nome acido come risposta
Rem da confrontare con nomi esatti
Dim n(15) As String
Dim r(15) As String
n(1) = "solforico"
n(2) = "nitrico"
n(3) = "cloridrico"
n(4) = "fluoridrico"
n(5) = "carbonico"
n(6) = "iodidrico"
n(7) = "solforoso"
n(8) = "nitroso"
n(9) = "fosforico"
n(10) = "ipocloroso"
n(11) = "cloroso"
n(12) = "clorico"
n(13) = "perclorico"
n(14) = "fosforoso"
n(15) = "solfidrico"
r(1) = TextBox1.Text
r(2) = TextBox2.Text
r(3) = TextBox3.Text
r(4) = TextBox4.Text
r(5) = TextBox5.Text
r(6) = TextBox6.Text
r(7) = TextBox7.Text
r(8) = TextBox8.Text
r(9) = TextBox9.Text
r(10) = TextBox10.Text
r(11) = TextBox11.Text
r(12) = TextBox12.Text
r(13) = TextBox13.Text
r(14) = TextBox14.Text
r(15) = TextBox15.Text
If r(1) = n(1) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(1))
End If
If r(2) = n(2) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(2))
End If
If r(3) = n(3) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(3))
End If
If r(4) = n(4) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(4))
End If
If r(5) = n(5) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(5))
End If
If r(6) = n(6) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(6))
End If
If r(7) = n(7) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(7))
End If
If r(8) = n(8) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(8))
End If
If r(9) = n(9) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(9))
End If
If r(10) = n(10) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(10))
End If
If r(11) = n(11) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(11))
End If
If r(12) = n(12) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(12))
End If
If r(13) = n(13) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(13))
End If
If r(14) = n(14) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(14))
End If
If r(15) = n(15) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(15))
End If
End Sub
Private Sub CommandButton3_Click()
Rem visualizza formule acidi
Dim d(15) As String
d(1) = "H2SO4"
d(2) = "HNO3"
d(3) = "HCl"
d(4) = "HF"
d(5) = "H2CO3"
d(6) = "HI"
d(7) = "H2SO3"
d(8) = "HNO2"
d(9) = "H3PO4"
d(10) = "HClO"
d(11) = "HClO2"
d(12) = "HClO3"
d(13) = "HClO4"
d(14) = "H3PO3"
d(15) = "H2S"
ListBox3.AddItem (d(1))
ListBox3.AddItem (d(2))
ListBox3.AddItem (d(3))
ListBox3.AddItem (d(4))
ListBox3.AddItem (d(5))
ListBox3.AddItem (d(6))
ListBox3.AddItem (d(7))
ListBox3.AddItem (d(8))
ListBox3.AddItem (d(9))
ListBox3.AddItem (d(10))
ListBox3.AddItem (d(11))
ListBox3.AddItem (d(12))
ListBox3.AddItem (d(13))
ListBox3.AddItem (d(14))
ListBox3.AddItem (d(15))
End Sub
Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
End Sub
Private Sub CommandButton5_Click()
ListBox3.Clear
End Sub
Private Sub CommandButton6_Click()
ListBox2.Clear
End Sub
Private Sub CommandButton7_Click()
Rem visualizza nomi acidi
Dim d(15) As String
d(1) = "solforico"
d(2) = "nitrico"
d(3) = "cloridrico"
d(4) = "fluoridrico"
d(5) = "carbonico"
d(6) = "iodidrico"
d(7) = "solforoso"
d(8) = "nitroso"
d(9) = "fosforico"
d(10) = "ipocloroso"
d(11) = "cloroso"
d(12) = "clorico"
d(13) = "perclorico"
d(14) = "fosforoso"
d(15) = "solfidrico"
ListBox3.AddItem (d(1))
ListBox3.AddItem (d(2))
ListBox3.AddItem (d(3))
ListBox3.AddItem (d(4))
ListBox3.AddItem (d(5))
ListBox3.AddItem (d(6))
ListBox3.AddItem (d(7))
ListBox3.AddItem (d(8))
ListBox3.AddItem (d(9))
ListBox3.AddItem (d(10))
ListBox3.AddItem (d(11))
ListBox3.AddItem (d(12))
ListBox3.AddItem (d(13))
ListBox3.AddItem (d(14))
ListBox3.AddItem (d(15))
End Sub
Private Sub CommandButton8_Click()
Rem accetta formula acido come risposta
Rem da confrontare con formula esatta
Dim n(15) As String
Dim r(15) As String
n(1) = "H2SO4"
n(2) = "HNO3"
n(3) = "HCl"
n(4) = "HF"
n(5) = "H2CO3"
n(6) = "HI"
n(7) = "H2SO3"
n(8) = "HNO2"
n(9) = "H3PO4"
n(10) = "HClO"
n(11) = "HClO2"
n(12) = "HClO3"
n(13) = "HClO4"
n(14) = "H3PO3"
n(15) = "H2S"
r(1) = TextBox1.Text
r(2) = TextBox2.Text
r(3) = TextBox3.Text
r(4) = TextBox4.Text
r(5) = TextBox5.Text
r(6) = TextBox6.Text
r(7) = TextBox7.Text
r(8) = TextBox8.Text
r(9) = TextBox9.Text
r(10) = TextBox10.Text
r(11) = TextBox11.Text
r(12) = TextBox12.Text
r(13) = TextBox13.Text
r(14) = TextBox14.Text
r(15) = TextBox15.Text
If r(1) = n(1) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(1))
End If
If r(2) = n(2) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(2))
End If
If r(3) = n(3) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(3))
End If
If r(4) = n(4) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(4))
End If
If r(5) = n(5) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(5))
End If
If r(6) = n(6) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(6))
End If
If r(7) = n(7) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(7))
End If
If r(8) = n(8) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(8))
End If
If r(9) = n(9) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(9))
End If
If r(10) = n(10) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(10))
End If
If r(11) = n(11) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(11))
End If
If r(12) = n(12) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(12))
End If
If r(13) = n(13) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(13))
End If
If r(14) = n(14) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(14))
End If
If r(15) = n(15) Then
ListBox2.AddItem ("esatto")
Else
ListBox2.AddItem ("errato : era " & n(15))
End If
End Sub
Private Sub UserForm_Click()
End Sub