Como Hacer un intervalo entre dos NUMEROS ayuda
Publicado por Rossy (6 intervenciones) el 25/08/2003 17:05:31
Ya tengo el codigo y puedo ver los valores COMPRENDIDOS entre esos dos NUMEROS ahora bien mi pregunta es como PUEDO DAR UN INTERVALO A los valores comprendidos, mas de talles aqui un ejeplito de eso
List1.Clear
Dim X, Y, Z As Integer
X = Val(Txt1.Text)
Y = Val(Txt2.Text)
Z = Val(Txt3.Text)
List1.Height = 3060 * (Y - X) And List1.Height = 3060 * (X + Y)
For N = X + 1 To Y - 1
List1.AddItem N
Next N
For N = Y + 1 To X - 1
List1.AddItem N
Next N
COMO PUDEO DAR UN INTERVALO A LOS COMPRENDIDOS ENTRE LOS PRIMEROS DOS
GRACIAS
List1.Clear
Dim X, Y, Z As Integer
X = Val(Txt1.Text)
Y = Val(Txt2.Text)
Z = Val(Txt3.Text)
List1.Height = 3060 * (Y - X) And List1.Height = 3060 * (X + Y)
For N = X + 1 To Y - 1
List1.AddItem N
Next N
For N = Y + 1 To X - 1
List1.AddItem N
Next N
COMO PUDEO DAR UN INTERVALO A LOS COMPRENDIDOS ENTRE LOS PRIMEROS DOS
GRACIAS
Valora esta pregunta


0