geovisa2

Option Explicit

Private Sub CommandButton1_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 5
Label1.Caption = ""
Label2.Caption = "HIO4"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:5"
End If
End Sub

Private Sub CommandButton10_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 1
Label2.Caption = "BeCl2"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:4"
End If

End Sub

Private Sub CommandButton11_Click()
UserForm6.Show
End Sub

Private Sub CommandButton12_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 3
Label2.Caption = "AlCl3"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:3"
End If

End Sub

Private Sub CommandButton13_Click()
UserForm4.Show
End Sub

Private Sub CommandButton14_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 4
Label2.Caption = "PH3"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:4"
End If

End Sub

Private Sub CommandButton15_Click()
UserForm8.Show
End Sub

Private Sub CommandButton16_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 2
Label2.Caption = "Cl2O"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:2"
End If

End Sub

Private Sub CommandButton17_Click()
UserForm14.Show
End Sub

Private Sub CommandButton18_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 3
Label2.Caption = "SO3"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:3"
End If

End Sub

Private Sub CommandButton19_Click()
UserForm10.Show
End Sub

Private Sub CommandButton2_Click()
Rem HIO4
UserForm2.Show
End Sub

Private Sub CommandButton20_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 3
Label2.Caption = "H2CO3"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:3"
End If

End Sub

Private Sub CommandButton21_Click()
UserForm11.Show
End Sub

Private Sub CommandButton22_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 3
Label2.Caption = "H2SO3"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:3"
End If

End Sub

Private Sub CommandButton23_Click()
UserForm12.Show
End Sub

Private Sub CommandButton24_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 2
Label2.Caption = "HBrO2"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:2"
End If

End Sub

Private Sub CommandButton25_Click()
UserForm15.Show
End Sub

Private Sub CommandButton26_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 3
Label2.Caption = "AlBr3"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:3"
End If

End Sub

Private Sub CommandButton27_Click()
UserForm13.Show
End Sub

Private Sub CommandButton28_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 1
Label2.Caption = "BeBr2"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:1"
End If

End Sub

Private Sub CommandButton29_Click()
UserForm16.Show
End Sub

Private Sub CommandButton3_Click()
Rem HClO4
Dim a, b, c As Integer
a = TextBox1.Text
c = 5
Label2.Caption = "HClO4"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:5"
End If

End Sub

Private Sub CommandButton4_Click()
UserForm7.Show
End Sub

Private Sub CommandButton5_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 4
Label2.Caption = "NH3"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:4"
End If
End Sub

Private Sub CommandButton6_Click()
UserForm3.Show
End Sub

Private Sub CommandButton7_Click()
Rem cancella label
Label1.Caption = ""
Label2.Caption = ""
TextBox1.Text = ""
TextBox1.SetFocus
End Sub

Private Sub CommandButton8_Click()
Dim a, b, c As Integer
a = TextBox1.Text
c = 2
Label2.Caption = "H2O"
If a = c Then
Label1.Caption = "esatto"
Else
Label1.Caption = "errato:2"
End If

End Sub

Private Sub CommandButton9_Click()
UserForm5.Show
End Sub

Private Sub UserForm_Click()

End Sub