Scomposizione di un numero

[lottomoney]

Buonasera e Buona Pasqua a tutti
Non sapendo dove postare questa richiesta, probabilmente qualcuno troverà strana la collocazione.
Vorrei sapere se esiste già qualcosa per risolvere il problema di trovare tutti gli abbinamenti,
compresi i fuori 90, per la ricerca di un numero? Mi spiego meglio con un esempio:
dovendo trovare la combinazione che forma il numero 28,
sappiamo che è composto da 1+27; 2+26; 3+25; ecc...ecc...
ma nel lotto tale numero è composto anche da: 89+29; 88+30; 87+31; ecc...ecc...
Mi chiedevo se con uno script è possibile avere questo tipo di ricerca, o magari esiste già qualcosa del genere.
Grazie per le eventuali risposte.
lottomoney

[Master]

Ciao lottomoney
Intendi uno script che faccia questo (con numero a tua scelta) ?

Codice: Seleziona tutto

01.27 = 28
02.26 = 28
03.25 = 28
04.24 = 28
05.23 = 28
06.22 = 28
07.21 = 28
08.20 = 28
09.19 = 28
10.18 = 28
11.17 = 28
12.16 = 28
13.15 = 28
28.90 = 28
29.89 = 28
30.88 = 28
31.87 = 28
32.86 = 28
33.85 = 28
34.84 = 28
35.83 = 28
36.82 = 28
37.81 = 28
38.80 = 28
39.79 = 28
40.78 = 28
41.77 = 28
42.76 = 28
43.75 = 28
44.74 = 28
45.73 = 28
46.72 = 28
47.71 = 28
48.70 = 28
49.69 = 28
50.68 = 28
51.67 = 28
52.66 = 28
53.65 = 28
54.64 = 28
55.63 = 28
56.62 = 28
57.61 = 28
58.60 = 28

[lottomoney]

Si Master, ovviamente per i 90 numeri
sempre gentilissimo, grazie.
lottomoney

[Master]

Ciao
ecco lo script..Buona serata

Codice: Seleziona tutto

Sub Main()
nn = CInt(InputBox("Quale numero? ",,28))
For n = 1 To 89
For n1 = n + 1 To 90
If Fuori90(n + n1) = nn Then
Scrivi Format2(n) & "." & Format2(n1) & " = " & Fuori90(n + n1)
End If
Next
Next
End Sub
 

[lottomoney]

semplicemente Fantastico!!!!
grazie mille Master.