determinazione geometria molecolare
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 CommandButton10_Click()
MsgBox "informazioni sul programma"
MsgBox "viene presentata una serie di domande su"
MsgBox "geometria molecolare per esempi semplici"
MsgBox "1=tetraedrica...2=piramidale..3=angolare..4=triangolare..5=lineare"
MsgBox "angoli 109..107..105..120..180 rispettivamente"
MsgBox "scrivere la risposta usando solo caratteri minuscoli "
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 acidi1(f1, f2, f3, f4, f5, r1, r2, r3, r4, r5 As String)
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = f1
fo(2) = f2
fo(3) = f3
fo(4) = f4
fo(5) = f5
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = r1
rispo(2) = r2
rispo(3) = r3
rispo(4) = r4
rispo(5) = r5
End Sub
Private Sub verifica1(a, b, c, d, e, f, g, h, k, m As String)
Dim fo(5) As String
Dim rispo(5) As String
fo(1) = a
fo(2) = b
fo(3) = c
fo(4) = d
fo(5) = e
Label1.Caption = fo(1)
Label2.Caption = fo(2)
Label3.Caption = fo(3)
Label4.Caption = fo(4)
Label5.Caption = fo(5)
rispo(1) = f
rispo(2) = g
rispo(3) = h
rispo(4) = k
rispo(5) = m
If rispo(1) = LCase$(TextBox1.Text) Then
Label6.Caption = "risultato"
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 CommandButton11_Click()
Call acidi1("geometria molecolare", "H2O", "BeCl2", "CH4", "NH3", "", "3", "5", "1", "2")
End Sub
Private Sub CommandButton12_Click()
Call verifica1("geometria molecolare", "H2O", "BeCl2", "CH4", "NH3", "", "3", "5", "1", "2")
End Sub
Private Sub CommandButton35_Click()
Call acidi1("geometria molecolare", "BF3", "Cl2O", "SO3", "CO2", "", "4", "3", "4", "5")
End Sub
Private Sub CommandButton36_Click()
Call verifica1("geometria molecolare", "BF3", "Cl2O", "SO3", "CO2", "", "4", "3", "4", "5")
End Sub
Private Sub CommandButton27_Click()
Call acidi1("geometria molecolare", "H2SO3", "H2SO4", "HNO3", "H2CO3", "", "2", "1", "4", "4")
End Sub
Private Sub CommandButton28_Click()
Call verifica1("geometria molecolare", "H2SO3", "H2SO4", "HNO3", "H2CO3", "", "2", "1", "4", "4")
End Sub
Private Sub CommandButton29_Click()
Call acidi1("geometria molecolare", "AlF3", "H2S", "BCl3", "CCl4", "", "4", "3", "4", "1")
End Sub
Private Sub CommandButton30_Click()
Call verifica1("geometria molecolare", "AlF3", "H2S", "BCl3", "CCl4", "", "4", "3", "4", "1")
End Sub
Private Sub CommandButton31_Click()
Call acidi1("geometria molecolare", "HClO3", "HClO2", "HClO4", "CF4", "", "2", "3", "1", "1")
End Sub
Private Sub CommandButton32_Click()
Call verifica1("geometria molecolare", "HClO3", "HClO2", "HClO4", "CF4", "", "2", "3", "1", "1")
End Sub
Private Sub CommandButton33_Click()
Call acidi1("P+HNO3+H2O-->H3PO4+NO", "ossidante", "riducente", "ossidato", "ridotto", "", "n", "p", "p", "n")
End Sub
Private Sub CommandButton34_Click()
Call verifica1("P+HNO3+H2O-->H3PO4+NO", "ossidante", "riducente", "ossidato", "ridotto", "", "n", "p", "p", "n")
End Sub
Private Sub CommandButton4_Click()
Call acidi1("Cu + H2SO4---> CuSO4+ SO2+H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "s", "cu", "cu", "s")
End Sub
Private Sub CommandButton5_Click()
Call verifica1("Cu + H2SO4---> CuSO4+ SO2+H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "s", "cu", "cu", "s")
End Sub
Private Sub CommandButton6_Click()
Call acidi1("Cu + HNO3---> Cu(NO3)2 + NO + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "n", "cu", "cu", "n")
End Sub
Private Sub CommandButton7_Click()
Call verifica1("Cu + HNO3---> Cu(NO3)2 + NO + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "n", "cu", "cu", "n")
End Sub
Private Sub CommandButton8_Click()
Call acidi1("Ag + HClO3 + HCl---> AgCl + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "cl", "ag", "ag", "cl")
End Sub
Private Sub CommandButton9_Click()
Call verifica1("Ag + HClO3 + HCl---> AgCl + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "cl", "ag", "ag", "cl")
End Sub
Private Sub CommandButton13_Click()
Call acidi1("Cl2 + NaOH --> NaCl + NaClO + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "cl", "cl", "cl", "cl")
End Sub
Private Sub CommandButton14_Click()
Call verifica1("Cl2 + NaOH --> NaCl + NaClO + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "cl", "cl", "cl", "cl")
End Sub
Private Sub CommandButton15_Click()
Call acidi1("FeCl2 + SnCl4 ---> FeCl3 + SnCl2", "ossidante", "riducente", "ossidato", "ridotto", "", "sn", "fe", "fe", "sn")
End Sub
Private Sub CommandButton16_Click()
Call verifica1("FeCl2 + SnCl4 ---> FeCl3 + SnCl2", "ossidante", "riducente", "ossidato", "ridotto", "", "sn", "fe", "fe", "sn")
End Sub
Private Sub CommandButton17_Click()
Call acidi1("K2MnO4 + H2O -->KMnO4 + MnO2 + KOH", "ossidante", "riducente", "ossidato", "ridotto", "", "mn", "mn", "mn", "mn")
End Sub
Private Sub CommandButton18_Click()
Call verifica1("K2MnO4 + H2O -->KMnO4 + MnO2 + KOH", "ossidante", "riducente", "ossidato", "ridotto", "", "mn", "mn", "mn", "mn")
End Sub
Private Sub CommandButton19_Click()
Call acidi1("NH3 + O2 --> NO + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "o", "n", "n", "o")
End Sub
Private Sub CommandButton20_Click()
Call verifica1("NH3 + O2 --> NO + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "o", "n", "n", "o")
End Sub
Private Sub CommandButton21_Click()
Call acidi1("KMnO4 + HCl --> KCl + MnCl2 + Cl2 + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "mn", "cl", "cl", "mn")
End Sub
Private Sub CommandButton22_Click()
Call verifica1("KMnO4 + HCl --> KCl + MnCl2 + Cl2 + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "mn", "cl", "cl", "mn")
End Sub
Private Sub CommandButton23_Click()
Call acidi1("KBrO3 + HBr + FeBr2 --> FeBr3 + KBr + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "br", "fe", "fe", "br")
End Sub
Private Sub CommandButton24_Click()
Call verifica1("KBrO3 + HBr + FeBr2 --> FeBr3 + KBr + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "br", "fe", "fe", "br")
End Sub
Private Sub CommandButton25_Click()
Call acidi1("SnCl2 + KIO3 + HCl --> SnCl4 + KI + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "i", "sn", "sn", "i")
End Sub
Private Sub CommandButton26_Click()
Call verifica1("SnCl2 + KIO3 + HCl --> SnCl4 + KI + H2O", "ossidante", "riducente", "ossidato", "ridotto", "", "i", "sn", "sn", "i")
End Sub
Private Sub UserForm_Click()
End Sub
inizio