Visual Basic - Funcion empareja numeros

Life is soft - evento anual de software empresarial
   
Vista:

Funcion empareja numeros

Publicado por Juan (1 intervención) el 28/08/2009 13:07:59
Tengo que idear una función que teniendo x números me busque los mejores emparejamientos sin que la suma de la pareja sobrepase un total y que no se quede por debajo de otra cantidad.

Ejemplo:

numeros: 5,7,3,8,1,1,5,7,9,8,4,3,5,3

Quiero que la suma de las parejas no pase de 10 y no sea menor de 7.

La función debe buscar la forma en la que empareje mas numeros.

7+3
8+1
9+1
5+4
5+3
7+3

Me quedarían el 8,5 con estos emparejamientos. La función debería buscar la mejor combinación para ver si en vez de 2 numeros, me sobrase 1 o mejor aún ninguno.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Funcion empareja numeros

Publicado por juan carlos (518 intervenciones) el 29/08/2009 08:01:39
hola juan

abre una Form1
Inserta un text1
ponle en multiline a true
ponle en scrollbars a 2 o vertical
Inserta un command1

Inserta este codigo
----------------------------------------------------
Private Sub Command1_Click()
r = Chr(13) & Chr(10)
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer

For c = 1 To 9
For d = 1 To 9
text1.SelText = c & "+" & d & r
Next d
Next c
c = c + 1
End Sub
----------------------------------------------------
corre el programa

espero esto te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar