Private Sub CommandButton11_Click()
Dim a1, ax1 As Integer
a1 = TextBox1
ax1 = 3
If a1 = ax1 Then
ListBox2.AddItem (1 & " esatto")
Else
ListBox2.AddItem (1 & " errato : esatta era : " & ax1)
End If
End Sub
Private Sub CommandButton12_Click()
Dim a2, ax2 As Integer
a2 = TextBox2
ax2 = 2
If a2 = ax2 Then
ListBox2.AddItem (2 & " esatto")
Else
ListBox2.AddItem (2 & " errato : esatta era : " & ax2)
End If
End Sub
Private Sub CommandButton13_Click()
Rem domanda 3
Dim a3, ax3 As Integer
a3 = TextBox3
ax3 = 4
If a3 = ax3 Then
ListBox2.AddItem (3 & " esatto")
Else
ListBox2.AddItem (3 & " errato : esatta era : " & ax3)
End If
End Sub
Private Sub CommandButton14_Click()
Rem domanda 4
Dim a4, ax4 As Integer
a4 = TextBox4
ax4 = 1
If a4 = ax4 Then
ListBox2.AddItem (4 & " esatto")
Else
ListBox2.AddItem (4 & " errato : esatta era : " & ax4)
End If
End Sub
Private Sub CommandButton15_Click()
Rem domanda 5
Dim a5, ax5 As Integer
a5 = TextBox5
ax5 = 2
If a5 = ax5 Then
ListBox2.AddItem (5 & " esatto")
Else
ListBox2.AddItem (5 & " errato : esatta era : " & ax5)
End If
End Sub
Private Sub CommandButton16_Click()
Rem domanda 6
Dim a6, ax6 As Integer
a6 = TextBox6
ax6 = 4
If a6 = ax6 Then
ListBox2.AddItem (6 & " esatto")
Else
ListBox2.AddItem (6 & " errato : esatta era : " & ax6)
End If
End Sub
Private Sub CommandButton17_Click()
Rem domanda 7
Dim a7, ax7 As Integer
a7 = TextBox7
ax7 = 3
If a7 = ax7 Then
ListBox2.AddItem (7 & " esatto")
Else
ListBox2.AddItem (7 & " errato : esatta era : " & ax7)
End If
End Sub
Private Sub CommandButton18_Click()
Rem domanda 8
Dim a8, ax8 As Integer
a8 = TextBox8
ax8 = 2
If a1 = ax1 Then
ListBox2.AddItem (8 & " esatto")
Else
ListBox2.AddItem (8 & " errato : esatta era : " & ax8)
End If
End Sub
Private Sub CommandButton19_Click()
Rem domanda 9
Dim a9, ax9 As Integer
a9 = TextBox9
ax9 = 1
If a9 = ax9 Then
ListBox2.AddItem (9 & " esatto")
Else
ListBox2.AddItem (9 & " errato : esatta era : " & ax9)
End If
End Sub
Private Sub CommandButton20_Click()
Rem domanda 10
Dim a10, ax10 As Integer
a10 = TextBox10
ax10 = 4
If a10 = ax10 Then
ListBox2.AddItem (10 & " esatto")
Else
ListBox2.AddItem (10 & " errato : esatta era : " & ax10)
End If
End Sub
Private Sub CommandButton21_Click()
Label4.Visible = True
End Sub
Private Sub CommandButton22_Click()
Label4.Visible = False
End Sub
Private Sub CommandButton6_Click()
Rem numero domande totale= 10
Rem numero domande = 1,2,3,4,5
Rem risposte per domanda 1,2,3,4
Rem risposte valide ax 1,2,3,4
Rem modificabile numero domande modificando textbox1 e If
Rem modificabile numero domande con pulsanti nuovi simili a 1,2,3,4,5
Rem mostra domande
ListBox1.AddItem ("prima domanda")
ListBox1.AddItem ("insulina da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 tiroide")
ListBox1.AddItem ("2 gonadi")
ListBox1.AddItem ("3 pancrea")
ListBox1.AddItem ("4 surrenali")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("seconda domanda")
ListBox1.AddItem ("tiroxina da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 paratiroidi")
ListBox1.AddItem ("2 tiroide")
ListBox1.AddItem ("3 ipofisi")
ListBox1.AddItem ("4 pancreas")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("terza domanda")
ListBox1.AddItem ("somatotropo da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 neuroipofisi")
ListBox1.AddItem ("2 surrenale")
ListBox1.AddItem ("3 tiroide")
ListBox1.AddItem ("4 adenoipofisi")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("quarta domanda")
ListBox1.AddItem ("aldosterone da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 surreneli")
ListBox1.AddItem ("2 tiroide")
ListBox1.AddItem ("3 gonadi")
ListBox1.AddItem ("4 pancreas")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("quinta domanda")
ListBox1.AddItem ("FSH da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 timo")
ListBox1.AddItem ("2 adenoipofisi")
ListBox1.AddItem ("3 tiroide")
ListBox1.AddItem ("4 surrenali")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("sesta domanda")
ListBox1.AddItem ("ACTH da ghhandola 1,2,3,4 ?")
ListBox1.AddItem ("1 pancreas")
ListBox1.AddItem ("2 tiroide")
ListBox1.AddItem ("3 timo")
ListBox1.AddItem ("4 adenoipofisi")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("settima domanda")
ListBox1.AddItem ("adrenalina da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 paratiroidi")
ListBox1.AddItem ("2 gonadi")
ListBox1.AddItem ("3 surrenale")
ListBox1.AddItem ("4 tiroide")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("ottava domanda")
ListBox1.AddItem ("cortisone da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 pancreas")
ListBox1.AddItem ("2 surremale")
ListBox1.AddItem ("3 timo")
ListBox1.AddItem ("4 surrenali")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("nona domanda")
ListBox1.AddItem ("LH da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 adenoipofisi")
ListBox1.AddItem ("2 tiroide")
ListBox1.AddItem ("3 surrenali")
ListBox1.AddItem ("4 paratiroide")
ListBox1.AddItem ("------------------------------")
ListBox1.AddItem ("decima domanda")
ListBox1.AddItem ("paratormone da ghiandola 1,2,3,4 ?")
ListBox1.AddItem ("1 pancreas")
ListBox1.AddItem ("2 ipofisi")
ListBox1.AddItem ("3 surrenale")
ListBox1.AddItem ("4 paratiroidi")
ListBox1.AddItem ("------------------------------")
End Sub
Private Sub CommandButton7_Click()
Rem cancella risposte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
End Sub
Private Sub CommandButton8_Click()
Rem cancella domande
ListBox1.Clear
End Sub
Private Sub CommandButton9_Click()
Rem cancella esiti
ListBox2.Clear
End Sub
Private Sub UserForm_Click()
End Sub