test didattici con VBA
ritorna con testvba.htm
testendocrino.ppt
ghiandole endocrine e loro ormoni
Private Sub
CommandButton7_Click()
Rem domande prima serie
Dim d(9) As String
Rem prima serie
d(1) = "adrenocorticotropo ACTH "
d(2) = "tirotropina TSH"
d(3) = "follicolo stimolante FSH"
d(4) = "luteinizzante LH"
d(5) = "somatotropo "
d(6) = "somatotropo"
d(7) = "prolattina"
d(8) = "vasopressina ADH"
d(9) = "oxitocina"
ListBox1.AddItem ("nomi da inserire per risposta")
ListBox1.AddItem ("ipofisi, neuroipofisi,surrenali")
ListBox1.AddItem ("ovaio,testicoli,tiroide")
ListBox1.AddItem ("pancreas, intestino, stomaco ")
ListBox1.AddItem ("paratiroidi,ipotalamo ")
ListBox1.AddItem ("-------------------------------------
")
For k = 1 To 9
ListBox1.AddItem (d(k))
Next k
TextBox1.SetFocus
End Sub
Private Sub CommandButton8_Click()
Rem risposte prima serie
Dim r(9) As String
Dim rd(9) As String
Rem risposta esatta
r(1) = "ipofisi"
r(2) = "ipofisi"
r(3) = "ipofisi"
r(4) = "ipofisi"
r(5) = "ipofisi"
r(6) = "ipofisi"
r(7) = "ipofisi"
r(8) = "neuroipofisi"
r(9) = "neuroipofisi"
Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9
Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k))
Next k
End Sub
Private Sub CommandButton9_Click()
Rem domande seconda serie
Dim d(9) As String
Rem prima serie
d(1) = "cortisone "
d(2) = "aldosterone"
d(3) = "tiroxina"
d(4) = "estradiolo"
d(5) = "progesterone"
d(6) = "testosterone"
d(7) = "insulina"
d(8) = "glucagone"
d(9) = "paratormone"
Rem ListBox1.AddItem ("nomi ghiandole da inserire come
risposta")
ListBox1.AddItem ("nomi da inserire per risposta")
ListBox1.AddItem ("ipofisi,
neuroipofisi,surrenali,ovaio,testicoli,tiroide")
ListBox1.AddItem ("pancreas, intestino,
stomaco,paratiroidi,ipotalamo ")
ListBox1.AddItem
("--------------------------------------------------")
For k = 1 To 9
ListBox1.AddItem (d(k))
Next k
TextBox1.SetFocus
End Sub
Private Sub CommandButton10_Click()
Rem risposte seconda serie
Dim r(9) As String
Dim rd(9) As String
Rem risposta esatta
r(1) = "surrenali"
r(2) = "surrenali"
r(3) = "tiroide"
r(4) = "ovaio"
r(5) = "ovaio"
r(6) = "testicoli"
r(7) = "pancreas"
r(8) = "pancreas"
r(9) = "paratiroidi"
Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9
Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k))
Next k
End Sub
Private Sub CommandButton11_Click()
Rem domande terza serie
Dim d(9) As String
Rem prima serie
d(1) = "adrenalina "
d(2) = "noradrenalina"
d(3) = "secretina"
d(4) = "gastrina"
d(5) = "colecistochinina"
d(6) = "fattore liberazione RF-ACTH"
d(7) = "fattore liberazione RF-TSH"
d(8) = "fattore liberazione RF-LH"
d(9) = "fattore liberazione RF-FSH"
ListBox1.AddItem ("nomi ghiandole da inserire come
risposta")
ListBox1.AddItem ("ipofisi,
neuroipofisi,surrenali,ovaio,testicoli,tiroide")
ListBox1.AddItem ("pancreas, intestino,
stomaco,paratiroidi,ipotalamo ")
ListBox1.AddItem
("----------------------------------------------------")
For k = 1 To 9
ListBox1.AddItem (d(k))
Next k
TextBox1.SetFocus
End Sub
Private Sub CommandButton12_Click()
Rem risposte terza serie
Dim r(9) As String
Dim rd(9) As String
Rem risposta esatta
r(1) = "surrenali"
r(2) = "surrenali"
r(3) = "intestino"
r(4) = "stomaco"
r(5) = "intestino"
r(6) = "ipotalamo"
r(7) = "ipotalamo"
r(8) = "ipotalamo"
r(9) = "ipotalamo"
Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9
Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k))
Next k
End Sub
Private Sub CommandButton3_Click()
ListBox1.Clear
ListBox2.Clear
End Sub
Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
End Sub
Private Sub verifica(esatta, data)
If data = esatta Then
ListBox2.AddItem ("esatto : " & esatta)
Else
ListBox2.AddItem ("errato: era : " & esatta &
" *** ")
End If
ListBox2.AddItem ("-------------------------")
End Sub
Private Sub UserForm_Click()
End Sub
endocrinotest.ppt variante con codificazione numerica
Private Sub
CommandButton7_Click()
Rem domande prima serie
Dim d(9) As String
Rem prima serie
d(1) = "adrenocorticotropo ACTH "
d(2) = "tirotropina TSH"
d(3) = "follicolo stimolante FSH"
d(4) = "luteinizzante LH"
d(5) = "somatotropo "
d(6) = "somatotropo"
d(7) = "prolattina"
d(8) = "vasopressina ADH"
d(9) = "oxitocina"
ListBox1.AddItem ("nomi da inserire per risposta")
ListBox1.AddItem ("1 ipofisi, 2 neuroipofisi,3
surrenali")
ListBox1.AddItem ("4 ovaio, 5 testicoli, 6 tiroide")
ListBox1.AddItem ("7 pancreas, 8 intestino, 9 stomaco
")
ListBox1.AddItem ("10 paratiroidi,11 ipotalamo ")
ListBox1.AddItem ("-------------------------------------
")
For k = 1 To 9
ListBox1.AddItem (d(k))
Next k
TextBox1.SetFocus
End Sub
Private Sub CommandButton8_Click()
Rem risposte prima serie
Dim r(9) As String
Dim rd(9) As String
Rem risposta esatta
r(1) = "1"
r(2) = "1"
r(3) = "1"
r(4) = "1"
r(5) = "1"
r(6) = "1"
r(7) = "1"
r(8) = "2"
r(9) = "2"
Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9
Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k), k)
Next k
End Sub
Private Sub CommandButton9_Click()
Rem domande seconda serie
Dim d(9) As String
Rem prima serie
d(1) = "cortisone "
d(2) = "aldosterone"
d(3) = "tiroxina"
d(4) = "estradiolo"
d(5) = "progesterone"
d(6) = "testosterone"
d(7) = "insulina"
d(8) = "glucagone"
d(9) = "paratormone"
Rem ListBox1.AddItem ("nomi ghiandole da inserire come
risposta")
ListBox1.AddItem ("nomi da inserire per risposta")
ListBox1.AddItem ("1 ipofisi, 2 neuroipofisi,3
surrenali")
ListBox1.AddItem ("4 ovaio, 5 testicoli, 6 tiroide")
ListBox1.AddItem ("7 pancreas, 8 intestino, 9 stomaco
")
ListBox1.AddItem ("10 paratiroidi,11 ipotalamo ")
ListBox1.AddItem
("--------------------------------------------------")
For k = 1 To 9
ListBox1.AddItem (d(k))
Next k
TextBox1.SetFocus
End Sub
Private Sub CommandButton10_Click()
Rem risposte seconda serie
Dim r(9) As String
Dim rd(9) As String
Rem risposta esatta
r(1) = "3"
r(2) = "3"
r(3) = "6"
r(4) = "4"
r(5) = "4"
r(6) = "5"
r(7) = "7"
r(8) = "7"
r(9) = "10"
Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9
Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k), k)
Next k
End Sub
Private Sub CommandButton11_Click()
Rem domande terza serie
Dim d(9) As String
Rem prima serie
d(1) = "adrenalina "
d(2) = "noradrenalina"
d(3) = "secretina"
d(4) = "gastrina"
d(5) = "colecistochinina"
d(6) = "fattore liberazione RF-ACTH"
d(7) = "fattore liberazione RF-TSH"
d(8) = "fattore liberazione RF-LH"
d(9) = "fattore liberazione RF-FSH"
ListBox1.AddItem ("nomi da inserire per risposta")
ListBox1.AddItem ("1 ipofisi, 2 neuroipofisi,3
surrenali")
ListBox1.AddItem ("4 ovaio, 5 testicoli, 6 tiroide")
ListBox1.AddItem ("7 pancreas, 8 intestino, 9 stomaco
")
ListBox1.AddItem ("10 paratiroidi,11 ipotalamo ")
ListBox1.AddItem
("----------------------------------------------------")
For k = 1 To 9
ListBox1.AddItem (d(k))
Next k
TextBox1.SetFocus
End Sub
Private Sub CommandButton12_Click()
Rem risposte terza serie
Dim r(9) As String
Dim rd(9) As String
Rem risposta esatta
r(1) = "3"
r(2) = "3"
r(3) = "8"
r(4) = "9"
r(5) = "8"
r(6) = "11"
r(7) = "11"
r(8) = "11"
r(9) = "11"
Rem risposta data
rd(1) = TextBox1
rd(2) = TextBox2
rd(3) = TextBox3
rd(4) = TextBox4
rd(5) = TextBox5
rd(6) = TextBox6
rd(7) = TextBox7
rd(8) = TextBox8
rd(9) = TextBox9
Rem controlla risposte
For k = 1 To 9
Call verifica(r(k), rd(k), k)
Next k
End Sub
Private Sub CommandButton3_Click()
ListBox1.Clear
ListBox2.Clear
End Sub
Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
End Sub
Private Sub verifica(esatta, data, k)
If data = esatta Then
ListBox2.AddItem (k & " esatto : " & esatta)
Else
ListBox2.AddItem (k & " errato: era : " &
esatta & " *** ")
End If
ListBox2.AddItem ("-------------------------")
End Sub
Private Sub UserForm_Click()
End Sub