Per Mike

[antonio65]

Buonasera Mike...volendo fare un sommativo per la lotteria Millionsday...anzichè il fuori90 dovrei usare il fuori 55...ma non c'è....a parte il 90 c'è il fuori49 fuori42 e fuorix
ho provato quest'ultimo Fuorix ma è come se riconoscesse sempre 90 numeri....essendo una funzione FT se ti è possibile mi potresti dare un suggerimento?Grazie Antonio

 

[avio]

ciao

si usa MOD

Sub Main
For p1= 1 To 54
For p2=p1+1 To 55
a=(p1+p2) Mod 55
If a=0 Then a=55
Scrivi p1 & " " & p2 & " " & a
Next
Next

End Sub

 

[antonio65]

Ciao Avio grazie infinite.....mi metto all'opera grazie ancora...

 

[i legend]

Ciao nella pagina apposita di spaziometria ci sono le spiegazioni di tutte le funzioni

 

[antonio65]

Ciao i legend lo so, me ne sono servito tante volte....ma in questo caso non riesco a coordinare ciò che voglio....il sommativo gira ma occorre
inserire almeno credo i codici che ha scritto avio nel post #2

 

[salvo50]

Ciao a tutti!

Antonio, probabilmente l'hai scritto male, il fuorix lo puoi fare con qualunque numero

 Option Explicit
Dim a,b,c
Sub Main
   a = 53
   b = 37
   c = FuoriX((a + b),55)
   Scrivi Format2(c)
End Sub

io l'ho sfruttato anche con numeri superiori a 90

 

[salvo50]

Ti faccio un altro esempio col fuori 99

Option Explicit
Dim a,b,c
Sub Main
   a = 53
   b = 69
   c = FuoriX((a + b),99)
   Scrivi Format2(c)
End Sub

 

[antonio65]

Ciao Salvo, funziona meravigliosamente....grazie mille per l'intervento..