Visual Basic 6 - aiuto per visuaizare la ricerca

scusa se mi intrometto...ma se usi le textbox come matrici risulta molto facile!!

concordo pienamente sulle matrici poi devi prendere tutti i numeri <=45 gli sommi 45 e controlli se sono stati estratti se si
txt.text = txt.text & "," & x & " " & (x +45)

ok era confuso.
ho sviluppato il codice.
è possibile.
se non riesci proprio dimmi che posto.
prova prima tu xò. altrimenti non imparerai nulla.

scusa ho riporvato e riprovato ma non ci capisco niente per cortesia mi aiuti tu ti prego grazie ciao

Private Sub Command1_Click()
Text1.Text = ""

'-----ordino pr grandezza-----
For y = 1 To 55
For x = 1 To 55
If estrazioni(x) > estrazioni(y) Then
j = estrazioni(y)
estrazioni(y) = estrazioni(x)
estrazioni(x) = j
End If
Next x
Next y

'-----calcolo le coppie----
For y = 1 To 55
If estrazioni(y) <= 45 Then
For x = 1 To 55
If estrazioni(x) = (estrazioni(y) + 45) Then
Text1.Text = Text1.Text & " " & estrazioni(y) & "-" & estrazioni(x)
End If
Next x
End If
Next y
End Sub

Grazie di tutto sei stato gentile e scusami se ti rompo..
Ma il codice che mi hai dato non va cioè dice (errore di compilazione
impossibile trovare il metodo o il mebro dei dati)
non so se hai capito ma io ho 50 textbox
ora come hai fatto il codice è giusto sulla ricerca ma non visualiza nella text3 cioè dove vedro i risultati come devo fare e scusami di nuovo grazie ciaoo

ovvio che non va. non hai riempito la variabile estrazioni(x) col contenuto delle text(x)
e spero vivamente che tu le abbia indicizzate
basterebbe un

For x = 0 to 49
estrazioni(x + 1) = text(x)
next x

subito dopo il Private Sub Command1_Click()
e se la casella finale delle estrazioni è text3 devi cambiare la mia text1 con la tua text3 ne codice. riassumendo

Private Sub Command1_Click()
Text[b]3[/b].Text = ""
[b]
'------recupero valori-------

For x = 0 to 54
estrazioni(x + 1) = text(x)
next x
[/b]
'-----ordino pr grandezza-----
For y = 1 To 55
For x = 1 To 55
If estrazioni(x) > estrazioni(y) Then
j = estrazioni(y)
estrazioni(y) = estrazioni(x)
estrazioni(x) = j
End If
Next x
Next y

'-----calcolo le coppie----
For y = 1 To 55
If estrazioni(y) <= 45 Then
For x = 1 To 55
If estrazioni(x) = (estrazioni(y) + 45) Then
Text[b]3[/b].Text = Text[b]3[/b].Text & " " & estrazioni(y) & "-" & estrazioni(x)
End If
Next x
End If
Next y
End Sub

grazie di tutto ok sei stato gentilissimo alla prossima.