acidoto

esci con testvba.htm

test su formule chimiche :scrivere formule con nome fornito
conteggio risposte errate , esatte
acidi2.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"
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 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"
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 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"
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 CommandButton10_Click()
MsgBox "per usare il programma attivare"
MsgBox "pulsante per cancellare(1)"
MsgBox "un pulsante per domande(2) :1,2,3,4"
MsgBox "scrivere le risposte usando TAB per spostarsi"
MsgBox "pulsante per controlli(4) :1,2,3,4"
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"
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 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"
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 CommandButton3_Click()
acidi1
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 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 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"
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 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"
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 UserForm_Click()
Dim era As Integer
Dim esa As Integer
End Sub