Aiutone grazieeeeeee

[solare]

Chiedo a chi può un listato che faccia quanto segue:
Trovare in due estrazioni consecutive e nella stessa ruota due numeri che diano somma 90
sempre che sia possibile nella visualizzazione della coppia trovata deve indicare oltre che la coppia che ha dato la somma 90 anche la lo ro posizione di sortita.
Grazie

 

[franca46]

ciao solare io ho questo listato credo che puoi usarlo ma devi modificare i calcoli di gioco

'Ricerca in due estrazioni consecutive in Posizione isotopa 
'Due Elementi la cui somma è 90 

Sub main() 
Dim am(6) 
Dim ruota(10) 
Dim ruote(10) 
Dim poste(3) 
Dim post(5) 
poste(2)=1 
poste(3)=1 
post(3)=1 

s1=CInt (InputBox ("Quale somma vuoi rilevare ?","SOMMA",90)) 
nc=CInt (InputBox ("Quante Estrazioni Controlliamo ?","ESTRAZIONI",100)) 
ini=EstrazioneFin-nc 
fin=EstrazioneFin 

For n=ini To fin 
For x=1 To 10 
For p=1 To 5 
a=Estratto(n-1,x,p) 
b=Estratto(n , x,p) 
If (a+b)=s1 Then 



Scrivi String (65,"=") 
Scrivi 
Scrivi DataEstrazione(n-1)& " "& NomeRuota(x)&" "& StringaEstratti (n-1,x) &" trovato "&a &" in "&p&"° pos.",1 
Scrivi DataEstrazione(n) & " " & NomeRuota(x)&" "& StringaEstratti (n,x) &" trovato "&b &" in "&p&"° pos.",1 
Scrivi "Condizione Somma "& s1 &" valida.. " 
Scrivi 
Scrivi SiglaRuota(x) & " - "& SiglaRuota(ruotaD(x)) 
ruote(1)=x 
ruote(2)=ruotaD(x) 

ruota(1)=11 
'-------------------------------------------------------------------------- 

am(1)=1 
am(2)=2 
am(3)=3 
am(4)=(A) 
am(5)=(B) 
am(6)=30 
ImpostaGiocata 1,am,ruote,poste,9,3 
ImpostaGiocata 4,am,ruota,post,9,3 
am(1)=4 
am(2)=5 
am(3)=6 
am(4)=(A) 
am(5)=(B) 
am(6)=60 
ImpostaGiocata 2,am,ruote,poste,9,3 
ImpostaGiocata 5,am,ruota,post,9,3 
am(1)=7 
am(2)=8 
am(3)=9 
am(4)=(A) 
am(5)=(B) 
am(6)=90 
ImpostaGiocata 3,am,ruote,poste,9,3 
ImpostaGiocata 6,am,ruota,post,9,3 
scrivi"********************************************************************************" 
Gioca n 

End If 
Next 
Next 
Next 

ScriviResoconto 
End Sub 
Function ruotaD(i) 
If i <6 Then ruotaD=i+5 Else ruotaD =i-5 
End Function

buona giornata

 

[solare]

Grazie Franca46
ottimo