 Sub Command1_Click ()
label1.caption = ""
a$ = "A: condizioni estremamente instabili"
b$ = "B: condizioni moderatamente instabili"
c$ = "C: condizioni debolmente instabili"
d$ = "D: condizioni di neutralitą"
e$ = "E: condizioni debolmente stabili"
f$ = "F: condizioni moderatamente stabili"
If option1.value And option6.value Then label1.caption = a$
If option2.value And option6.value Then label1.caption = a$ + " e " + b$
If option3.value And option6.value Then label1.caption = b$
If option4.value And option6.value Then label1.caption = c$
If option5.value And option6.value Then label1.caption = c$
If option1.value And option7.value Then label1.caption = a$ + " e " + b$
If option2.value And option7.value Then label1.caption = b$
If option3.value And option7.value Then label1.caption = b$ + " e " + c$
If option4.value And option7.value Then label1.caption = c$ + " e " + d$
If option5.value And option7.value Then label1.caption = d$
If option1.value And option8.value Then label1.caption = b$
If option2.value And option8.value Then label1.caption = c$
If option3.value And option8.value Then label1.caption = c$
If option4.value And option8.value Then label1.caption = d$
If option5.value And option8.value Then label1.caption = d$
If option1.value And option9.value Then label1.caption = e$
If option2.value And option9.value Then label1.caption = e$
If option3.value And option9.value Then label1.caption = d$
If option4.value And option9.value Then label1.caption = d$
If option5.value And option9.value Then label1.caption = d$
If option1.value And option10.value Then label1.caption = f$
If option2.value And option10.value Then label1.caption = f$
If option3.value And option10.value Then label1.caption = e$
If option4.value And option10.value Then label1.caption = d$
If option5.value And option10.value Then label1.caption = d$
End Sub
|
