$N0=0
$N1=0
$N2=0
$N3=0
$N4=0
$N5=0
$N6=0
$N7=0
$N8=0
$N9=0
$errore=6
While $errore=6
$N0=InputBox ("Inserisci il primo numero","Da 1 a 20")
$N1=InputBox ("Inserisci il secondo numero","Da 1 a 20 ")
$N2=InputBox ("Inserisci il terzo numero","Da 1 a 20 ")
$N3=InputBox ("Inserisci il quarto numero","Da 1 a 20 ")
$N4=InputBox ("Inserisci il quinto numero","Da 1 a 20 ")
$N5=InputBox ("Inserisci il sesto numero","Da 1 a 20 ")
$N6=InputBox ("Inserisci il settimo numero","Da 1 a 20")
$N7=InputBox ("Inserisci l'ottavo numero","Da 1 a 20 ")
$N8=InputBox ("Inserisci il nono numero","Da 1 a 20 ")
$N9=InputBox ("Inserisci il decimo numero","Da 1 a 20 ")
Select
Case $N0<>$N1<>$N2<>$N3<>$N5<>$N4<>$N7<>$N6<>$N8<>$N9 and $N0 <= 20 and $N1 <= 20 and $N2 <= 20 and $N3 <= 20 and $N4 <= 20 and $N5 <= 20 and $N6 <= 20 and $N7 <= 20 and $N8 <= 20 and $N9 <= 20
$numero1=0
$numero2=0
$numero3=0
$numero4=0
$numero5=0
$numero6=0
$numero7=0
$numero8=0
$numero9=0
$numero0=0
$ricominciare=0
$rifare=0
$ricominciare=1
$rifare=1
$numero1= Random (1,20,1)
$numero2= Random (1,20,1)
While $ricominciare=1
While $rifare=1
Select
Case $numero1=$numero2
$numero2=0
$Numero2= Random (1,20,1)
$rifare=1
Case $numero1<>$numero2
$rifare=2
EndSelect
WEnd
While $rifare=2
$numero3=Random (1,20,1)
Select
Case $numero3=$numero1 or $numero3=$numero2
$numero3=0
$numero3=Random (1,20,1)
$rifare=2
Case $numero1 <>$numero3 and $numero2<>$numero3
$rifare=3
EndSelect
WEnd
While $rifare=3
$numero4=Random (1,20,1)
Select
Case $numero1=$numero4 or $numero2= $numero4 or $numero3=$numero4
$numero4=0
$numero4=Random (1,20,1)
$rifare=3
Case $numero1<>$numero4 and $numero2<>$numero4 and $numero3 <>$numero4
$rifare=4
EndSelect
WEnd
While $rifare=4
$numero5=Random (1,20,1)
Select
Case $numero1=$numero5 or $numero2= $numero5 or $numero3=$numero5 or $numero4=$numero5
$numero5=0
$numero5=Random (1,20,1)
$rifare=4
Case $numero1<>$numero5 and $numero2<>$numero5 and $numero3 <>$numero5 and $numero4<>$numero5
$rifare=5
EndSelect
WEnd
While $rifare=5
$numero6=Random (1,20,1)
Select
Case $numero1=$numero6 or $numero2= $numero6 or $numero3=$numero6 or $numero4=$numero6 or $numero5=$numero6
$numero6=0
$numero6=Random (1,20,1)
$rifare=5
Case $numero1<>$numero6 and $numero2<>$numero6 and $numero3<>$numero6 and $numero4<>$numero6 and $numero5<>$numero6
$rifare=6
EndSelect
WEnd
While $rifare=6
$numero7=Random (1,20,1)
Select
Case $numero1=$numero7 or $numero2= $numero7 or $numero3=$numero7 or $numero4=$numero7 or $numero5=$numero7 or $numero6=$numero7
$numero6=0
$numero6=Random (1,20,1)
$rifare=6
Case $numero1<>$numero7 and $numero2<>$numero7 and $numero3<>$numero7 and $numero4<>$numero7 and $numero5<>$numero7 and $numero6<>$numero7
$rifare=7
EndSelect
WEnd
While $rifare=7
$numero8=Random (1,20,1)
Select
Case $numero1=$numero8 or $numero2= $numero8 or $numero3=$numero8 or $numero4=$numero8 or $numero5=$numero8 or $numero6=$numero8 or $numero7=$numero8
$numero8=0
$numero8=Random (1,20,1)
$rifare=7
Case $numero1<>$numero8 and $numero2<>$numero8 and $numero3<>$numero8 and $numero4<>$numero8 and $numero5<>$numero8 and $numero6<>$numero8 and $numero7<>$numero8
$rifare=8
EndSelect
WEnd
While $rifare=8
$numero9=Random (1,20,1)
Select
Case $numero1=$numero9 or $numero2= $numero9 or $numero3=$numero9 or $numero4=$numero9 or $numero5=$numero9 or $numero6=$numero9 or $numero7=$numero9 or $numero8<>$numero9
$numero9=0
$numero9=Random (1,20,1)
$rifare=8
Case $numero1<>$numero9 and $numero2<>$numero9 and $numero3<>$numero9 and $numero4<>$numero9 and $numero5<>$numero9 and $numero6<>$numero9 and $numero7<>$numero9 and $numero8<>$numero9
$rifare=9
EndSelect
WEnd
While $rifare=9
$numero0=Random (1,20,1)
Select
Case $numero1=$numero0 or $numero2= $numero0 or $numero3=$numero0 or $numero4=$numero0 or $numero5=$numero0 or $numero6=$numero0 or $numero7=$numero0 or $numero8<>$numero0 or $numero9=$numero0
$numero0=0
$numero0=Random (1,20,1)
$rifare=9
Case $numero1<>$numero0 and $numero2<>$numero0 and $numero3<>$numero0 and $numero4<>$numero0 and $numero5<>$numero0 and $numero6<>$numero0 and $numero7<>$numero0 and $numero8<>$numero0 and $numero9<>$numero0
MsgBox (0,"I numeri usciti sono", $numero0 & @cr & $numero1 & @cr & $numero2 & @cr & $numero3 & @cr & $numero4 & @cr & $numero5 & @cr & $numero6 & @cr & $numero7 & @cr & $numero8 & @cr & $numero9)
$rifare=0
EndSelect
WEnd
If $rifare=0 Then
$ricomincia=0
EndIf
WEnd
$errore=MsgBox (4,"Risultato ottenuto","Numeri Inseriti:" & @CR & $N0 & @CR & $N1 & @CR & $N2 & @CR & $N3 & @CR & $N4 & @CR & $N5 & @CR & $N6 & @CR & $N7 & @CR & $N8 & @CR & $N9 & @CR & @Cr & "Numeri usciti:" & @CR & $numero0 & @CR & $numero1 @CR & $numero2 @CR & $numero3 @CR & $numero4 @CR & $numero5 @CR & $numero6 @CR & $numero7 @CR & $numero8 @CR & $numero9)
Case $N0 > 20 or $N1 > 20 or $N2 > 20 or $N3 > 20 or $N4 > 20 or $N5 > 20 or $N6 > 20 or $N7 > 20 or $N8 > 20 or $N9 > 20
$errore= MsgBox (4, "Errore", "Hai inserito uno o più numeri maggiori di 20" & @CR & "Devi inserire solo numeri compresi tra 1 e 20" & @CR & "Vuoi riinserire nuovi numeri?")
Case not $N0<>$N1<>$N2<>$N3<>$N5<>$N4<>$N7<>$N6<>$N8<>$N9
$errore= MsgBox (4,"Errore", "Hai inserito dei numeri uguali" & @CR & "Devi inserire 10 numeri diversi tra loro" & @CR & "Vuoi riinserire nuovi numeri?")
EndSelect
wend