test interattivo
per ormoni e ghiandole endocrine
si richiede inserimento nome ghiandola endocrina che produce
ormone indicato
si visualizza risposta esatta o correzione
esci con indice1.htm
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 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 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"
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 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
vedi testendocrino.ppt